Program Boolean

Untuk membuat lebih dari satu kondisi, bias menggunakan operator Boolean, berikut ini akan di contohkan membuat program hasil nilai unian dengan menggunakan operator Boolean.

program boolean;

uses wincrt;

var

mapel,nilai:real;

ket:string;

begin

writeln('hasil nilai unian');

writeln('-----------------------------------');

write('mata pelajaran yang telah di ikuti : ');readln(mapel);

write('Nilai Rata-rata Ujian : ');readln(nilai);

if (mapel>=5) and (nilai>70) then

ket:='Lulus'

else

ket:='Mengulang';

writeln('Hasilnya : ',ket);

writeln('-----------------------------------');

end.