repeat ... until

[dR4g0N]

Ist ein Konsolenprogramm:

hab eine var a

wenn a = j ist soll er repeaten
wenn a = n soll er aufhören
wenn a = der rest ist soll eine Zeile ausgegeben werden: Falsche Eingabe


ich krieg es aber nur so hin:

repeat
...
until a = 'n';

nun weiss ich nicht wie ich das mit WriteLn('Falsche Eingabe') mache ...

[fkerber]

Hi!

Weiß nicht genau was du meinst mit: wenn a= der Rest

aber vielleicht geht das hier ja:

Delphi-Quellcode:

if a=j then begin //falls a ein string ist, das j in ' ' setzen

repeat

until a='n'

end 
else
begin
WriteLn('Falsche Eingabe');

BTW: ist a ein String?

Ciao fkerber

[n00b_on_knees]

Delphi-Quellcode:

repeat

if a = 'rest' then
begin
  writeln('Falsche Eingabe');
  a = 'n';
end;

until ((a <> 'j') or (a = 'n'));

mit einer while do schleife, wären einfach die Bedinungen vertauscht. Statt a auf n zuzuweisen, kannst du aber auch mit break aus der Schleife gehen, ist aber unsauber.

[himitsu]

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';

[dR4g0N]

ich meine mit rest jede andere eingabe.

also j (ja) oder n (nein) darf nur eingegeben werden, falls irgendeine andere taste gedrückt wird soll eine textausgabe ... falshe eingabe kommen, und ähmm ist kein string ^^

[himitsu]

siehe oben ...

Und a muß ein String, oder zumindestens ein Char sein.