CONTOH PROGRAM PASCAL NILAI AKHIR

Menggunakan Seleksi If Then:
program nilai_akhir;
uses crt;
var
 NH, UTS, UAS, NA :integer;

begin
clrscr;
 write ('Masukan Nilai Harian = '); readln (NH);
 write ('Masukan Nilai UTS = '); readln (UTS);
 write ('Masukan Nilai UAS = '); readln (UAS);
 NA := (NH+2*UTS+3*UAS) div 6;
 writeln ('Nilai Akhir = ', NA);
  if NA>85 then
   writeln ('A')
   else
  if NA>75 then
   writeln ('B')
   else
  if NA>60 then
   writeln ('C')
   else
  if NA>55 then
   writeln ('D')
  else
  if NA>50 then
  writeln ('E');
readln;
end.

Menggunakan Seleksi Case of:

program nilai_akhir;

uses crt;

var

 NH,UTS,UAS,NA :integer;

 hasil :string;

begin

clrscr;

 write ('Masukan Nilai Harian = ');readln(NH);

 write ('Masukan Nilai UTS = ');readln(UTS);

 write ('Masukan Nilai UAS = ');readln(UAS);

 NA :=(NH+2*UTS+3*UAS) div 6;

 writeln ('Nilai Akhir = ',NA);

 case NA of

 86..100 :hasil := 'A';

 76..85 :hasil := 'B';

 61..75 :hasil := 'C';

 56..60 :hasil := 'D';

 0..55 :hasil := 'E';

 else hasil := 'salah input';

 end;

writeln (hasil);

readln;

end.