Contoh Program Penilaian (Penggunaan Nested dan Case of)

Dengan menggunakan nested

program nested;
uses wincrt;
var
a:real;
begin
readln (a);
if a>=81then writeln('A')
else if a>=76then writeln('AB')
else if a>=71then writeln('B')
else if a>=66then writeln('BC')
else if a>=61then writeln('C')
else if a>=41then writeln('D')
else writeln('E')

end.

Dengan menggunankan Case of

PROGRAM penilaian;
USES WINCRT;
VAR i:integer;
BEGIN
READLN(i);
CASE i OF 81..100:writeln('A');
76..80:writeln('AB');
71..75:writeln('B');
61..70:writeln('BC');
51..60:writeln('C');
41..50:writeln('D');
0..40:writeln('E');
ELSE writeln ('Input nilai salah');
END;
END.

Posted in: 1311100133, case of, nested, pascal, program pascal, program pascal case of, program pascal nested, turbo pascal