如下:
n:real;n1,n2,n3,n4,n5,n6,n7:integer;
count:integer;
.....
count:=n1+n2+n3+n4+n5+n6+n7;
求各个数的百分比???例如:n1/count(但如果n1=1而count=110时,如何得到百分比,我用整形得到的是0;但用REAL也不行???n:=int(n1/count)得到的也是0;
请赐教!!!