Pascal, Mi lehet a hiba? Hol keressem?

Arra válaszolok, hogy hol/hogyan keresd:

Írasd ki a tömböt (mondjuk ez megvan) és írasd ki mellé azt is, hogy mi van a fagy és fagyott változókban. Akkor látni fogod, hol romlik el.

program fagy;

const napok = 31;

var tomb : array[1..napok] of integer;

fagyas, i : byte;

begin

Randomize;

for i := 1 to napok do tomb[i] := Random(30) - 10;

while tomb[1] = 0 do tomb[i] := Random(30) - 10;

for i := 1 to napok - 1 do if ((tomb[i] > 0) and (tomb[i+1] <= 0)) then Inc(fagyas);

for i := 1 to napok do WriteLn('Homersekletek: ', tomb[i]);

WriteLn('Fagyos napok sz ma: ', fagyas);

ReadLn;

end.

Szerintem így:)

Bocs ezt elírtam :while tomb[1] = 0 do tomb[i] := Random(30) - 10; helyett

while tomb[1] = 0 do tomb[1] := Random(30) - 10;

Amúgy ha nem muszáj ne szívasd magad :)

Szia.

Akkor most az első elem számit vagy nem ?

Ha számit, akkor az első elemet nem vizsgálja csak a második elemet (de ezt is csak akkor ha az első elem nem negativ és igy tovább, addig nem vizsgál amig nem lesz egy pozitiv elem, ha ez első 10 elem mind negativ akkor csak a 11-dik elemet fogja vizsgálni, holott addigra minimum 1 fagyás történt.)

mivel :

fagy:=False;

..

..

..

If (fagy) and (tomb[i]<=0) Then fagyott:=fagyott+1;

fagy:=tomb[i]>0;

..

..

A másik amit látok, fagyott változónak illene értéket adni valahol ott ahol a fagy boolean váltzónak is értéket adsz: fagyott:=0;

Sok sikert.

üdv.

"Repeat

tomb[1]:=Random(30)-10;

Until tomb[1]<>0; "

Csak mellékes megjegyzés, hogy ez a ciklus minden alkalommal lefut, amíg a for ciklus fut, tehát mindig megváltoztatod az első elem értékét, aminek nem sok értelme van (és az első futáskor, amikor i=1, akkor még jól felül is írod azt, amit a repeat ciklusod kiszámolt...:) ) A for ciklus előtt kéne lennie, és a for ciklusnak kettőtől kéne indulnia.