Hallo
, so schaut das Testauswertungsprogramm zu Beginn aus.
Delphi-Quellcode:
program testauswertung
uses crt;
var nr, summe, punkte:integer;
begin
clrscr;
summe:=0;
FOR nr:=1 TO 4 DO
begin
writeln('Aufgabe: ',nr);
readln(punkte);
summe:=summe+punkte;
end;
writeln('Gesamtpunktezahl: ',summe);
readln;
end.
Jetzt will ich das ürsprüngliche Programm insofern umbauen, so dass der Start- u. Endwert der zu summierenden Aufgaben frei wählbar ist.
Ich habe überlegt, dass man dazu zwei neue Variablen braucht, nämlich startwert und endwert
Die muss man dann oben bei der Variablendeklaration einfügen. Und dann muss man es auch da einbauen:
FOR nr:=startwert TO endwert DO, Ich glaube aber, bei summe:=0 muss ich auch noch etwas umändern, oder
.....
Dann würde das ganze ja folgendermaßen aussehen:
Delphi-Quellcode:
program testauswertung
uses crt;
var startwert, endwert, nr, summe, punkte:integer;
begin
clrscr;
summe:=0;
FOR nr:=startwert TO endwert DO
begin
writeln('Aufgabe: ',nr);
readln(punkte);
summe:=summe+punkte;
end;
Alles kein Problem, es geht zum Ausführen, doch beim Ausführen steht dann:
Aufgabe: 0
dann muss man eine zahl eingeben, z.b. 34
Gesamtpunktezahl: 34
Könnt ihr mir hier weiterhelfen
Danke, Martin