Hallo, hab es jetzt doch mit IF THEN ELSE gemacht:
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);
IF (summe>23) AND (summe<=29) THEN writeln('Sie haben ein Genügend erreicht!')
ELSE IF (summe>29) AND (summe<=37) THEN writeln('Sie haben ein Befriedigend erreicht!')
ELSE IF (summe>37) AND (summe<=44) THEN writeln('Sie haben ein Gut erreicht!')
ELSE (summe>44) AND (summe<=50) THEN writeln('Sie haben ein Sehr GUt erreicht!');
readln;
end.
So hab ich zwei Fehler drinne, sagt der debug mod., und zwar bei 19,35 sagt er:
19,35: Illegal Expression
19,35: Fatal:Syntax Error, ";" expected but "THEN" found.
Ich lade das Programm mal hoch, vlt könnte jemand schauen und es dann wieder hochladen...
Danke, Martin