私は配列で二番目に高い値を見つけるためにこのコードを書いてきました

Question

二番目に高い値検索：

var 
i, 
ZweitMax, 
    Max : integer; 

begin 
Max := -maxint; 
ZweitMax := -maxint; 

for i := 1 to FELDGROESSE do 


if inFeld[i] > Max then 
    begin 
    ZweitMax := Max; 
    Max := inFeld[i]; 
    end 
else 
if inFeld[i] > ZweitMax then 
begin 
ZweitMax := inFeld[i]; 
FeldZweitMax := ZweitMax; 
end 
end; 

このコードでの問題であり、なぜそれが正しい値をプリントアウトしていません？ 情報：コードは、機能の一部であるFeldZweitMax

Answer 1

あなたがZweitMaxを設定するだけで、それらの 2つの場所は現在ありませんが、関数の戻りコード、FeldZweitMaxに影響を与えます。

if文の最初の部分をに変更することができます：戻り値が正しく更新されていることを確認するように

if inFeld[i] > Max then 
begin 
    ZweitMax := Max; 
    FeldZweitMax := ZweitMax; (* add this line *) 
    Max := inFeld[i]; 
end 
(* and so on *) 

。

はまた、あなただけの両方の場所で一人でZweitMaxを設定し、最後に戻り値を設定することができます値の計算とリターンが別の問題であるため、

for i := 1 to FELDGROESSE do 
begin 
    if inFeld[i] > Max then 
    begin 
     ZweitMax := Max; 
     Max := inFeld[i]; 
    end 
    else 
    begin 
     if inFeld[i] > ZweitMax then 
     begin 
      ZweitMax := inFeld[i]; 
     end 
    end 
end; 
FeldZweitMax := ZweitMax; 

は、私が実際に後者を好みます。