program logikamatematika ;
uses wincrt;
var tanya, pilih: string;

procedure logika;
var bil1 : string ;
var nama, nama1, nama2, hasil : string ;
var  p,q: boolean ;
begin
clrscr;
writeln(‘OPERASI KONJUNGSI ‘);
writeln(‘=============’);
write (‘disjungsi p ^ q’);
readln (bil1);
writeln (‘pastikan mengunakan huruf kapital’);
writeln(‘masukan nilai kebenaran p=:’);
readln;
writeln(‘masukan nilai kebenaran q= :’);
readln;
readln (nama);
if (nama1=’B’) and (nama2= ‘S’) or (nama1=’S’) and (nama2=’B’) or (nama1=’S’) and (nama2=’S’) then
writeln (‘maka p ^ q adalah S’);
end;

procedure logika;
var bil1 : string ;
var nama, nama1, nama2, hasil : string ;
var  p,q: boolean ;
begin
clrscr;
writeln(‘OPERASI DISJUNGSI’);
writeln(‘=============’);
write (‘disjungsi p v q’);
readln (bil1);
writeln (‘pastikan mengunakan huruf kapital’);
writeln(‘masukan nilai kebenaran p=:’);
readln;
writeln(‘masukan nilai kebenaran q= :’);
readln;
readln (nama);
if (nama1=’B’) and (nama2= ‘B’) or (nama1=’B’) and (nama2=’S’) or (nama1=’S’) and (nama2=’B’) then
writeln (‘maka p v q adalah B’);

end;

procedure logika;
var bil1 : string ;
var nama, nama1, nama2, hasil : string ;
var  p,q: boolean ;
begin
clrscr;
writeln(‘OPERASI IMPLIKASI’);
writeln(‘=============’);
write (‘impilikasi p -> q’);
readln (bil1);
writeln (‘pastikan mengunakan huruf kapital’);
writeln(‘masukan nilai kebenaran p=:’);
readln;
writeln(‘masukan nilai kebenaran q= :’);
readln;
readln (nama);
if (nama1=’B’) and (nama2= ‘B’) or (nama1=’S’) and (nama2=’B’) or (nama1=’S’) and (nama2=’S’) then
writeln (‘maka p -> q adalah B’);

end;

procedure logika;
var bil1 : string ;
var nama, nama1, nama2, hasil : string ;
var  p,q: boolean ;
begin
clrscr;
writeln(‘OPERASI BIIMPILIKASI’);
writeln(‘=============’);
write (‘disjungsi p <–> q’);
readln (bil1);
writeln (‘pastikan mengunakan huruf kapital’);
writeln(‘masukan nilai kebenaran p=:’);
readln;
writeln(‘masukan nilai kebenaran q= :’);
readln;
readln (nama);
if (nama1=’B’) and (nama2= ‘B’) or (nama1=’S’) and (nama2=’S’)  then
writeln (‘maka p <–? q adalah B’);
if (nama1=’B’) and (nama2= ‘S’) or (nama1=’S’) and (nama2=’B’)  then
writeln (‘maka p <–> q adalah S’);

end;

begin
repeat
clrscr;
writeln(‘====================’);
writeln(‘program logika matematika’);
writeln(‘===================’);
writeln(‘1.konjungsi’);
writeln(‘2.disjungsi’);
writeln(‘3.imlikasi’);
writeln(‘4.biimplikasi’);
writeln(‘===================’);
write(‘masukkan pilihan anda:….’);
readln(pilih) ;

case pilih of
‘1’:konjungsi;
‘2’:disjungsi;
‘3’:implikasi;
‘4’:biimplikasi;
else
writeln(‘pilih sesuai menu!!!’);
writeln;
end;
write(‘Anda Masih Mau Lanjut [TEKAN y/t]:…’);readln(tanya);
until tanya=’t’;
clrscr;
writeln(‘TERIMA KASIH ANDA TELAH MEMAKAI PROGRAM KAMI’);
writln (‘Frena Fardillah’);
writeln(‘siinadille@yahoo.com’);
writeln(‘sampai jumpa’);

end.