Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#14

Re: Testauswertungsprogramm - Variablen umändern

  Alt 12. Jun 2009, 13:40
Zitat von FreePascal:
Wenn ich dann die Eingabetaste drücke, um das Programm zu beenden, komm ich dann nur immer eine Zeile weiter runter, doch nicht zur Programmierung.
Das Problem wird wohl sein, dass readln eine Integervariable einlesen möchte.
Da du readln() aber nicht gibst was es verlangt bist du gefangen.
Delphi-Quellcode:
var ....
zeile : String;

FOR nr:=startwert TO endwert DO
begin
  writeln('Aufgabe: ',nr);
  readln(zeile); // als String einlesen
  zeile := Trim(zeile); // Leerzeichen raus
  if zeile = 'then break; // Abbruch, falls Benutzer keine Lust mehr hat
  punkte := StrToInt(zeile);
  summe:=summe+punkte;
end;
fork me on Github
  Mit Zitat antworten Zitat