PROGRAM MENENTUKAN NILAI

Ini tugas praktikum tanggal 5 Desember 2013, jadi kita disuruh buat program untuk menentukan nilai apa yang didapat oleh user. Program ini menggunakan teknik percabangan. Langsung aja disimak kodenya

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

VAR NA:INTEGER;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('PROGRAM MENENTUKAN NILAI');
writeln;
writeln;
write('By Dewa Gde Ari Wahyudi');
writeln;
writeln;
write('=======================');
writeln;
writeln;
write('Masukkan Nilai Anda: '); readln(na);
writeln;
case na of
85 .. 100 : writeln('anda mendapat nilai A');
75 .. 84  : writeln('anda mendapat nilai B');
65 .. 74  : writeln('anda mendapat nilai C');
55 .. 64  : writeln('anda mendapat nilai D');
0 .. 54   : writeln('anda mendapat nilai E');
else
writeln('Nilai Yang Anda Masukkan Tidak Valid');
end;
readln;

end.

Ini penampakan setelah dijalankan:

Selamat mencoba, semoga berhasil, kalau tinggal dicopy-paste harusnya sih berhasil hehehe,