首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

delphi初级.该如何解决

2012-03-07 
delphi初级..varmax,i:integerArr:array[0..6]ofinteger(8,5,-4,3,9,1,4)beginMax:arr[0]fori:1to6do

delphi初级..
var
  max,i:integer;
  Arr:array[0..6]   of   integer=(8,5,-4,3,9,1,4);

begin
    Max:=arr[0]
    for   i:=1   to   6   do
      if   Arr[i]> Max   then   Max:=Arr[i];
    writeln( '这些数中最大值是:   ',max);
    readln;

  Arr:array[0..6]  
    if   Arr[i]> Max   then   Max:=Arr[i];
我想知道下,这两句具体什么意思,有知道的解答下谢谢



[解决办法]
Arr:array[0..6] of integer
定义整型数祖,7个单元,下标从0到6,PASCAL可以定义下标上下界的。

if Arr[i]> Max then Max:=Arr[i];
这个是比较Arr[i] 和 Max 的大小,如果 Arr[i]> Max,让Max =Arr[i],也就是说将Arr[i] 与Max 中最大的那个数值放如 MAX 中。

for i:=1 to 6 do
if Arr[i]> Max then Max:=Arr[i];
的用意,就是通过循环,将数组中最大的数值放如 MAX中。

======================
一般来说,应该如下书写:
Max := arr[Low(Arr)]; // 你这里少写了分号
for i := Low(arr) + 1 to High(Arr) do // 通过 Low、High函数,可以避免因为修改数组定义带来的超界风险。
if Arr[i] > Max then
Max := Arr[i];
必要的空格和分行,是良好的书写习惯,也便于阅读。

热点排行