Is net C++, aber der Algorithmus sollte verständlich sein:
const n=100; {Maximal mögliche Eingaben}
var a,c:integer;
w:array[1..n] of integer; {Feld, auf dem die Eingaben gespeichert werden}
{Maximalgröße der eingegebenen Zahl ca 32000}
st:string; {Dient zur Aufnahme der Eingabe}
begin
a:=1;
repeat
write(a,'. Wert eingeben');
readln(st);
val(st,w[a],c); {Transformiert die Zeichenkette st in einen Wert, sofern
eine sinnvolle (numerische) Eingabe erfolgt ist}
if c = 0 then inc(a); {c ist null, wenn eine numerische Eingabe erfolgte
in diesem Falle wird die Zählvariable erhöht}
until (a=100) or (st='e'); {Schleifenende, wenn maximale Eingaben erreicht
sind oder "e" eingegeben wurde}
for c:=1 to a do writeln(w[c]); {Gibt die eingegebenen Zahlen aus}
end.
|