Question

delphi一道书上的问题求高手给答案。谢谢

在控制台，随机输入10个数字，求出最大值最小值。。

随机输入的数字是不是要用记录类型记录了之后再比大小呀？

还有就是怎么进行比大小呢？？？

自学delphi的初学者，请多指教

Answer 1

DELPHI是用来快速开发的，写控制台程序的很少，恐怕只有在考试题目中才能碰到。

下面是用数组来实现的，希望对你有帮助。

//Delphi 7.0 + XP 下测试通过。

program CalcMinMax;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
ArrInput: array[1..10] of Integer;
i, itemp, iMinValue, iMaxValue: Integer;
sErrMsg: string;
label
BackPos;
begin
{ TODO -oUser -cConsole Main : Insert code here }
for i := 1 to 10 do
begin
BackPos:
Write(Format('%s请输入第%s个数字：',[sErrMsg, IntToStr(i)]));
try
sErrMsg := '';
readln(itemp);
except
sErrMsg := '输入错误,';
end;
if sErrMsg <> '' then goto BackPos;
ArrInput[i] := itemp;
end;
iMinValue := ArrInput[1] ;
iMaxValue := ArrInput[1];
for i := Low(ArrInput) to High(ArrInput) do
begin
if ArrInput[i] > iMaxValue then iMaxValue := ArrInput[i];
if ArrInput[i] < iMinValue then iMinValue := ArrInput[i];
end;
Writeln('-----------------------------');
Writeln(format('最大值：%s',[IntToStr(iMaxValue)]));
Writeln(format('最小值：%s',[IntToStr(iMinValue)]));
readln;
end.