Konsolenanwendung - Wie lasse ich einen Vorgang wiederholen und runde Ergebnisse?

[timhh]

---

[hoika]

Hallo,
ja, mach um alles ein repeat until

Delphi-Quellcode:

var
  Abbruch: Boolean;

Abbruch := False;
repeat
  Abbruch := ???;
until Abbruch;

Zum Runden nimm FormatFloat
FormatFloat('0.00', FloatZahl);

Lies Dir aber die Hilfe dazu durch.

Heiko

[timhh]

---

[Jumpy]

Ich würde ein bißchen mehr mit Variablen arbeiten und ggf. die Eingaben noch etwas ausführlicher prüfen, ob das auch wirklich Zahlen sind.

Delphi-Quellcode:

var
  Abbruch: Boolean;
  EingabeOK:Boolean;
  Ausgabe:String;
  Eingabe:String; 
  a,b,c: Strings;//?  
begin
Abbruch := False;
repeat
  //Eingabewerte holen
  haste ja in etwa schon

  //Eingabewerte prüfen (und gleichzeitig umwandlung Eingabestrings in Zahlenwerte
  EingabeOK := Alle Eingaben sind Integer/Floats(?) und a<>0

  //Ergebnis berechnen, wenn Eingabe OK
  if EingabeOK then
    begin

    end;

  //Ausgabe der Antwort


  //Spielwiederholungsfrage
  write('Keine Lösung möglich! Möchten sie eine weitere Gleichung lösen? Ja= j, Nein= n');
  readln(Eingabe);
  Abbruch := LowerCase(Eingabe)<>'j';
until Abbruch;
  write('Tschüsssi');
  readln;
end;

[timhh]

---

[Jumpy]

Gibts dafür nicht auch writeln (also write+Zeilenumbruch?).
Wenn du dir noch mal meine Variante anschaust, siehst du, dass ich die J/N - Frage nur 1x Stellen will, wegen DRY. Vielleicht änderst du deine Variante dahingehend auch mal ab?

Zur Prüfung. Kenn jetzt Lazarus nicht so, aber in Delphi gibt es so Funktionen ala "TryStrToInt", such mal nach sowas.

Erstauint mich gerade eh, das das bei dir funzt:
a, b, c, x, x1, x2, Diskriminante:real;
readln(a);