Einzelnen Beitrag anzeigen

FreePascal

Registriert seit: 31. Mai 2009
39 Beiträge
 
#12

Re: Testauswertungsprogramm - Variablen umändern

  Alt 12. Jun 2009, 13:26
Hallo, auch wenn ich die Fehleingaben nicht überprüfen will, funktioniert es so nicht:
Delphi-Quellcode:
program testauswertung
uses crt;
var startwert, endwert, nr, summe, punkte:integer;


begin
     clrscr;
     summe:=0;
              writeln('Bitte Startwert eingeben!!!');
               readln(startwert);
             writeln('Bitte Endwert eingeben!!!');
                readln(endwert);

FOR nr:=startwert TO endwert DO
              begin
                  writeln('Aufgabe: ',nr);
                  readln(punkte);
                  summe:=summe+punkte;
              end;
Alles schön u. gut
Zuerst fragt er mich nach startwert, liest ihn ein z.B:4
dann fragt er mich nach meinem endwert, liest ihn ein z.B:12

Dann gibt er aus: Aufgabe: 4 er gibt immer den Startwert aus.

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. Dann muss ich Pascal immer schliessen.
Hat jemand eine idee wie das Programm richtig laufen könnte, ohne eine Abfrage von Fehleingaben


Danke, Martin
Angehängte Dateien
Dateityp: pas testauswertungsprogrammzwei_144.pas (541 Bytes, 0x aufgerufen)
  Mit Zitat antworten Zitat