Ergebnis der Suchanfrage

• Forum: FreePascal

  Re: Testauswertungsprogramm

   
    by thkerkmann, 11. Jun 2009
  Danke DeddyH.
  
  Ich bin immer wieder überrascht, wie selbstverständlich man hier gerne eine andere Lösung vorschlägt, anstatt sich auch mal um sowas wie Syntax-Fehler zu kümmern. Ein Anfänger benötigt zunächst Sicherheit im Umgang mit der Syntax bevor die Eleganz Einzug halten kann.
  
  Gruss
• Forum: FreePascal

  Re: Testauswertungsprogramm

   
    by thkerkmann, 11. Jun 2009
  Warum nicht erst mal die Fehler beheben:
  
  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...