program funcDanproc_pesanlokasiArray;

uses wincrt;

var input,input2:string;

var bil1 : string ;

var nama, nama1, nama2, hasil : string ;

var  p,q: boolean ;

var pilih,tanya : char     ;

var bb : array [1..4] of string ;

var i: integer;

 

 

procedure garis;

begin

writeln(‘==========================================================’);

end;

 

procedure garis2;

begin

writeln(‘———————————————————-‘);

end;

 

 

 

 

procedure konjungsi;

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 disjungsi;

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 implikasi;

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 biimplikasi;

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;

 

 

procedure kk (var b : integer ) ;

var i : integer;

begin

for i:= 1 to 4 do

end;

 

begin

writeln (‘ffff’,i,’hhhh’);

 

 

 

 

 

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

writeln (‘Frena Fardillah’);

writeln(‘siinadille@yahoo.com’);

writeln(‘sampai jumpa’);

end;

 

end.