如下:
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;
请赐教!!!
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;
请赐教!!!
解决方案 »
- directshow手动连接dspack下AsyncEx Filter错误
- 如何将WordDocument1已打开的文档另存为网页?
- 请教高手 一个关于ComboBox控件的问题
- Delphi里怎么使用正则表达式
- 网页源文件里面用了iframe,但是iframe里面嵌套的页的代码没有包含在webbrowser的document里面,如何获取?iframe的嵌套也是用xml写出来的,
- 一个关于DBGRID的问题?
- 用 ADO Com 对象编程时,如何获得SQL 的执行进程??
- 有没有Delphi做的选修课管理系统啊 跪求
- 这样的报表怎么打印?
- BDE连接ASCEE数据库
- 帮我为这个程序添一条异常处理的语句.谢谢
- 如何获得对象的公布属性列表
count:real;
vcount,v2:real;beginvcount:=n1+n2+n3+n4+n5+n6+n7;
v2:= round(100*n1/vcount,2);edit1.text:=FloatTostr(v2)+'%';