Program osztalyzat; Uses Crt; Var pont:byte; Begin write ('Hány pontot kaptál? ') ; readln (pont) ; case pont of :write ('elégtelen') ; :write ('Elégséges') ; :write ('Közepes') ; :write ('Jó') ; :write ('Kiváló') ; end; readln; End.

Íme:

if (pont <= 100) and (pont > 90) then writeln('Csudajó')

else if (pont <= 90) and (pont > 80) then writeln('Majdnem')

{STB...}

[link]

Második programblokk.

Nem értelek, mi kell tovább? Csak a pontszám határokat kell beírni:

program osztalyzat;

var pont:byte;

begin

Write ('Hány pontot kaptál? ');

ReadLn (pont) ;

case pont of

0..50 :write ('Elégtelen') ;

51..60 :write ('Elégséges') ;

61..75 :write ('Közepes') ;

76..90:write ('Jó') ;

91..100:write ('Kiváló') ;

end;

ReadLn;

end.

...és egy pici hibakezelés is:

program osztalyzat;

var pont, hiba : integer;

s : string;

begin

hiba := 1;

while (hiba > 0) or (pont < 0) or (pont >100) do

begin

Write ('Hány pontot kaptál? ');

ReadLn (s) ;

Val(s, pont, hiba);

end;

case pont of

0..50 : Write ('Elégtelen') ;

51..60 : Write ('Elégséges') ;

61..75 : Write ('Közepes') ;

76..90 : Write ('Jó') ;

91..100: Write ('Kiváló') ;

end;

ReadLn;

end.