T
Trekkii
Gast
Moin,
ich habe das folgende Pascal-Programm geschrieben, welches eine Folge von integer Zahlen einlesen soll und dann die kleinste Zahl ausgeben soll. Als Ende der Eingabe wollte ich die Funktion "eof" verwenden, also bei meinem Rechner die Tastenkombination < Strg > d. Dummerweise bricht das Programm auch dann ab, wenn ich die "Null" in der Zahlenfolge eingebe. Hat jemand eine Idee, warum das so ist?
ich habe das folgende Pascal-Programm geschrieben, welches eine Folge von integer Zahlen einlesen soll und dann die kleinste Zahl ausgeben soll. Als Ende der Eingabe wollte ich die Funktion "eof" verwenden, also bei meinem Rechner die Tastenkombination < Strg > d. Dummerweise bricht das Programm auch dann ab, wenn ich die "Null" in der Zahlenfolge eingebe. Hat jemand eine Idee, warum das so ist?
HTML:
program kleinsteZahl3 (input, output);
{ gibt die kleinste Zahl der integer-Eingabezahlen aus }
var
Zahl,
Minimum : integer;
begin
writeln ('Geben Sie die integer-Zahlen ein. ',
'< Strg > d beendet die Eingabe.');
if eof then
writeln ('Es wurde keine Zahl eingegeben.')
else
begin
readln (Zahl);
Minimum := Zahl;
repeat
if Zahl < Minimum then
Minimum := Zahl;
readln (Zahl);
until not eof;
writeln ('Die kleinste Zahl lautet ', Minimum, '.');
end { else }
end. { kleinsteZahl3 }