var
Cost: array [0..9] of Double;
begin
cost[0]:=1;
cost[1]:=2;
cost[2]:=3;
cost[3]:=4;
cost[4]:=5;
cost[5]:=6;
cost[6]:=7;
cost[7]:=8;
cost[8]:=9;
cost[9]:=10;
最大值:=MaxValue(Cost)
最小值:=MinValue(Cost)
次大值,次小值,怎么求呀
end;
Cost: array [0..9] of Double;
begin
cost[0]:=1;
cost[1]:=2;
cost[2]:=3;
cost[3]:=4;
cost[4]:=5;
cost[5]:=6;
cost[6]:=7;
cost[7]:=8;
cost[8]:=9;
cost[9]:=10;
最大值:=MaxValue(Cost)
最小值:=MinValue(Cost)
次大值,次小值,怎么求呀
end;
解决方案 »
- TImage控件的哪个参数是Image的整个内存?
- 如何实现从文本导入SQL数据库的问题??
- ODBC数据源问题
- 如何使用GLScene读取3dmax等工具建立好的模型?
- 搞不懂了!在chart控件上进行托拽时,如何判断鼠标已经离开了chart控件?
- 求教!!!关于浏览刚刚添加的数据的问题!
- assignfile(FHtml,FileName)
- 有谁有压缩算法?谢谢。
- 数据库乱码问题.急切!
- delphi中如何操作TRegister.ReadBinaryData(),请给出实例,谢谢
- 奇怪了adoquery post方法批量导入jpeg图片(文件)到access ole字段 发现有的图片没有保存上难道post大文件需要时间? 代码如下:
- 使用FtpGetFile或idftp下载大文件后,没有反应怎么办
for I := 1 to 9 do
begin
if cost[I] > max then max := cost[I];
end;
nextmax := cost[0];
for I := 1 to 9 do
begin
if cost[I] > max then
begin
nextmax := max;
max := cost[I];
end;
end;