Setelah belajar dengan if_then sekarang kita lihat contoh program sederhana dalam pascal yaitu if_then_else, pada prinsipnya sama dengan if_then hanya saja untuk program ini pernyataannya dapat langsung dibaca.
Program 1 :
Program if_then_else;
uses crt;
Var nilai : integer;
mhs,ket : string;
begin;
clrscr;
writeln(‘ Nilai Ujian Mahasiswa ‘);
writeln;
write(‘ Masukkan nama mahasiswa = ‘);
readln(mhs);
write(‘ Masukkan nilai mahasiswa = ‘);
readln(nilai);
if nilai>=60 then ket:=’Lulus’ else ket:=’Tidak Lulus’;
writeln;
writeln(‘Nama mahasiswa adalah ‘,mhs,’ ‘,ket);readln;
end.
Contoh program yang lain :
Program 2 :
Program if_then_else;
uses crt;
Var nilai : integer;
mhs,ket : string;
p : char;
begin;
clrscr;
writeln(‘ Nilai Ujian Mahasiswa ‘);
writeln;
write(‘ Masukkan nama mahasiswa = ‘);
readln(mhs);
write(‘ Masukkan nilai mahasiswa = ‘);
readln(nilai);
if nilai>=85 then p:=’A’ else
if nilai>=75 then p:=’B’ else
if nilai>=65 then p:=’C’ else
if nilai>=55 then p:=’D’ else
if nilai>=85 then p:=’E';
writeln;
writeln(‘Nama mahasiswa adalah ‘,mhs,’ Nilainya = ‘,ket);readln;
end.
Kembangkan program ini dengan pernyataan dan kondisi yang lain.
