Testauswertungsprogramm

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von FreePascal · begonnen am 11. Jun 2009 · letzter Beitrag vom 11. Jun 2009

Vorheriger Beitrag

Nächster Beitrag

thkerkmann

Registriert seit: 7. Jan 2006
Ort: Pulheim Brauweiler
464 Beiträge

Delphi 2010 Professional

Re: Testauswertungsprogramm

11. Jun 2009, 17:15

Warum nicht erst mal die Fehler beheben:

markieren

Delphi-Quellcode:

			writeln('Gesamtpunktezahl: ',summe);

IF (summe>23) AND (summe<=29) THEN writeln('Sie haben ein Genügend erreicht!');   <<<<<<<<<<<< semi weg

ELSE IF (summe>29) AND (summe<=37) THEN writeln('Sie haben ein Befriedigend erreicht!');   <<< semi weg

ELSE IF (summe>37) AND (summe<=44) THEN writeln('Sie haben ein Gut erreicht!');  <<<<<<<<<<<<< semi weg

ELSE (summe>44) AND (summe<=50) THEN writeln('Sie haben ein Sehr GUt erreicht!');

readln;

end.