|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.360 Beiträge
Delphi 12 Athens
|
Re: repeat ... until
17. Mär 2004, 16:05
Delphi-Quellcode:
repeat
...
{writeln('Soll das und das gemacht werden? (j/n):');}
repeat
readln(a);
if (a <> 'j') and (a <> 'n') then writeln('Falsche Eingabe');
until (a = 'j') or (a = 'n');
until a = 'n';
Ein Therapeut entspricht 1024 Gigapeut.
|