program logikamatematika;

 

 

uses wincrt ;

var nama, nama1, nama2, hasil : string ;

var  p,q: boolean ;

 

 

begin

write (‘Halo, apa kabar ? Dengan siapa ini ? ‘);

readln (nama) ;

write (nama);

writeln (‘ salam kenal’);

readln ;

writeln (‘ini adalah program tentang logika matematika’);

writeln (‘mari bergabung di sini’);

readln ;

clrscr ;

writeln (‘pernyataan majemuk’);

readln ;

writeln (‘disjungsi p v q’);

readln ;

writeln (‘pastikan menggunakan huruf kapital’);

readln ;

write (‘masukkan nilai kebenaran p = ‘);

readln (nama1) ;

write (‘masukkan nilai kebenaran q = ‘);

readln (nama2) ;

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’);

readln ;

if (nama1=’S’) and (nama2=’S’) then

writeln (‘maka p v q adalah S’);

writeln (‘misalnya ada tanda ~(dibaca negasi) berarti kebalikannya’);

readln ;

writeln (‘contoh’);

readln ;

writeln (‘~p v q’);

readln ;

write (‘masukkan nilai kebenaran ~p = ‘);

readln (nama1) ;

write (‘masukkan nilai kebenaran q = ‘);

readln (nama2);

if (nama1=’B’) and (nama2=’B’) or (nama1=’S’) and (nama2=’B’) or (nama1=’S’) and (nama2=’S’) then

writeln (‘maka ~p v q = B’);

if (nama1=’B’) and (nama2=’S’) then

writeln (‘maka ~p v q = S’);

readln ;

writeln (‘sekian dan terima kasih’);

readln ;

clrscr ;

 

end.