各路神仙,帮帮我啊,一个数组的问题!菜鸟求救!各位大哥指点一下小弟!!!

Question

请教个问题?
procedure TForm1.Button2Click(Sender: TObject);
type
Tscore=array[1..9] of single;
const
stusScore:array[1..4] of Tscore=
((6,8,9,8,8,6,6,5,7),(5,6,7,5,5,6,3,8,9),
(7,8,9,8,8,6,6,5,6),(9,9,6,8,8,6,6,5,6));
sc:array[1..9]of string=('灞桥','雁塔','末央','新城','长安','高新','莲湖','碑林','蓝田');
cp:array[1..4]of string=('猪肉','羊肉','牛肉','龙虾');
var
  i,j:integer;
  sum:single;
  Aver:array[1..4]of real;
  S,H,L,P:string;
中的Tscore=array[1..9] of single; // single是什么意思?
stusScore:array[1..4] of Tscore 定义stusScore是基于Tscore的吗 
Tscore代表行，stusScore代表列?Aver:array[1..4]of real; //real是什么意思呢?

Answer 1

sigle和Real都了浮点型数据,精度不一样而已.
看你的代码,可以用二维数组.

Answer 2

real是64位浮点数，sigle是32为浮点数。