Delphi Grundlagen  Mehrseitige Entscheidung

Fragen ?

---

Aufgabe: Es soll eine Note (1..6) eingegeben werden. Das Programm wandelt die Note in den entsprechenden Text um (1 = sehr gut; 2 = gut ;...; 6 = ungenügend)

Aufgaben: Würfelspiel Winterschlussverkauf

program Notenausgabe;
{$APPTYPE CONSOLE}
uses sysutils;
var note : integer;

begin
     writeln('Umwandlung der Noten in den entsprechenden Text');
     writeln;
     write('Welche Note soll gewandelt werden? ');
     readln(note);
     case note of
       1 : writeln('sehr gut');
       2 : writeln('gut');
       3 : writeln('befriedigend');
       4 : writeln('ausreichend');
       5 : writeln('mangelhaft');
       6 : writeln('ungenügend')
          else writeln ('Fehler');
    end; {of case}
    readln;
end.