program casepilih ;

uses wincrt ;

var pilih : char ;

var angka, hasil : integer ;

var kata : string ;

procedure ingkaran ;

begin

clrscr ;

writeln (‘ ingkaran’);

readln ;

write(‘contoh soal:’);

writeln(‘Tentukan ingkaran dari q:7 adalah bilangan prima?’);

write(‘jawab:’);

writeln(‘Ingkaran dari q:7 adalah bilangan prima’);

writeln(‘~q: tidak benar 7 adalah bilangan prima’);

writeln(‘~q: 7 bukan bilangan prima’);

end;

procedure disjungsi ;

begin

clrscr;

writeln (‘disjungsi’) ;

write(‘Disjungsi adalah ‘);

writeln(‘pernyataan yang dibentuk dari dua pernyataan p dan q yang di rangkai dengan menggunakan kata hubung atau.’);

write(‘contoh soal:’);

writeln(‘Tentukan nilai kebenaran dari 3 X 5 = 15 atau 15 adalah bilangan ganjil?’);

write(‘jawab: ‘);

writeln(‘3 X 5 = 15 B atau 15 adalah bilangan ganjil B, disjungsi ini bernilai benar’);

end;

procedure konjungsi ;

begin

clrscr;

write(‘Konjungsi adalah: ‘);

writeln(‘pernyataan yang di bentuk dari dua pernyataan p dan q yang dirangkai dengan menggunakan kata hubung dan.’);

write(‘Contoh soal: ‘);

writeln(‘Tentukan nilai kebenaran dari 4 + 2 = 6 Dan ibukota Jawa Timur adalah Surabaya?’);

write(‘jawab: ‘);

writeln(‘4 + 2 = 6 B dan ibukota Jawa Timur adalah Surabaya B’);

end;

procedure implikasi ;

begin

clrscr;

write(‘Implikasi adalah’);

writeln(‘pernyataan majemuk yang disusun dari dua buah pernyataan p dan q dalam bentuk jika p maka q.’);

write(‘ Contoh Soal:’);

writeln(‘Tentukan nilai kebenaran dari jika 3 + 2 = 5 maka 5 adalah  bilangan prima?’);

write(‘jawab: ‘);

writeln(‘jika 3 + 2 = 5 B, maka 5 adalah bilangan prima B’);

writeln(‘Implikasi ini bernilai benar, karena alasan benar dan kesimpulan benar’);

end;

begin

writeln (‘                Hai….ketemu lg dengan saya Bety sulistiani’                      );

writeln (‘                           logika matematika                             ‘);

readln ;

writeln (‘1. ingkaran’);

writeln (‘2. disjungsi’);

writeln (‘3. konjungsi’);

writeln (‘4. implikasi’);

readln ;

write (‘silahkan masukan pilihan yang kamu sukai :’);

readln (pilih) ;

case pilih of

‘1’ : ingkaran ;

‘2’ : disjungsi ;

‘3’ : konjungsi ;

‘4’ : implikasi ;

else

writeln (‘$$$$$$$$$$$$$$$$$$$$$$$$ E R O R $$$$$$$$$$$$$$$$$$$$$$$$$’) ;

end;

end.