Contoh Program Pascal Case of Menentukan Indeks Nilai

FLOWCHAT Menentukan Indeks Nilai :

PROGRAM MENENTUKAN INDEKS NILAI 

program NA_CASE_OF ;
uses wincrt;
var
n,na : integer;
begin
writeln ('masukkan nilai yang didapat'); readln (n);
na:=n div 20;
case na of
1: write ('indeks nilai : E');
2: write ('indeks nilai : D');
3: write ('indeks nilai : C');
4: write ('indeks nilai : B');
5: write ('indeks nilai : A');
end;
end.

Proses

Dari proses program diatas, akan diperoleh