Mi a megoldása ennek a Pascal feladatnak?

Felveszel egy logikai váltózót és bekérésnél Igazra állítod ha a szám negatív. kb. ennyi.

var negativ : boolean;

...

negativ := False;

...

if szam < 0 then negativ := True;

...

if negativ then WriteLn('Volt negativ szam');

...

Majdnem megírtam az egészet :)

A bevitt értékektől függően két megoldása is lehet... X)

Nem mutatnád be, hogy eddig mire jutottál?

SimkoL változata, a feladat betű szerinti megoldása, így fut le:

[link]

De az eredmény szempontjából szükségtelen minden érték beolvasása, ha előbb is talál negatívat. Ez is egy lehetőség:

[link]

[link]

[link]

Itt egy megoldás.

Másik lehetséges megoldás, hogy tömböt veszel fel és ebbe olvasod az értékeket, majd a beolvasás végén a tömbben keresed, hogy volt -e negatív szám. Ekkor a negatív számokat is meg tudod határozni index szerint.

Program Negativ_vizsgalat;

var

van_e_negativ:boolean;

i : byte;

szam : longint;

begin

van_e_negativ := false;

for i := 1 to 26 do

begin

write('Kérem ',i,'. értéket: ');

readln(szam);

if szam <0 then van_e_negativ := true;

end;

if van_e_negativ then writeln('Volt negatív szám!') else writeln('Nem volt negatív szám!');

readln;

end.

A legelső negatív számnál megálló (átírtam az előző megoldásomat):

Program Negativ_vizsgalat_megall;

var

van_e_negativ:boolean;

i : byte;

szam : longint;

begin

van_e_negativ := false;

i := 1;

while (i < 27) and (van_e_negativ = false) do

begin

write('Kérem ',i,'. értéket: ');

readln(szam);

inc(i);

if szam <0 then van_e_negativ := true;

end;

if van_e_negativ then writeln('Volt negatív szám!') else writeln('Nem volt negatív szám!');

readln;

end.