| Program karakterProg;
uses Crt;
Type simpel_karakter = (bestaaet, ikke_bestaaet);
tal_karakter = (nul_nul, nul_tre, fem, seks, syv, otte,
ni, ti, elleve, tretten);
function omsaet_karakter(k: tal_karakter): simpel_karakter;
begin
if k <= fem
then omsaet_karakter := ikke_bestaaet
else omsaet_karakter := bestaaet
end;
procedure print_karakter(k: simpel_karakter);
begin
case k of
bestaaet: writeln('bestaaet');
ikke_bestaaet: writeln('ikke_bestaaet')
end
end;
begin
ClrScr;
print_karakter(omsaet_karakter(syv));
print_karakter(omsaet_karakter(fem));
ReadKey
end.
|