Program Boolean

Rabu, September 14, 2011 andrytech.co.cc No comments

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.

Posted in: Turbo Pascal