program menuok ;

uses wincrt ;

var pilih,tanya : char ;

var angka, hasil, i : 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

repeat

clrscr ;

writeln (‘……………………………………………………………..’);

writeln (‘                         logika matematika                             ‘) ;

writeln (‘……………………………………………………………..’);

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

readln ;

end ;

writeln(‘Apakah Anda Masih Mau Lanjut ? ‘);

write (‘Tekan y/t : … ‘);

readln(tanya);

until tanya=’t’;

clrscr;

writeln (‘……………………………………………………………….’);

writeln (‘               Terima Kasih Telah Mampir Di Program Saya                 ‘);

writeln (‘……………………………………………………………….’);

writeln (‘                        Bety Sulistiani                                  ‘);

writeln (‘                          2225092089                                     ‘);

writeln (‘                         Kelas 3D (NR)                                   ‘);

readln ;

writeln (‘        Jika ada yang mau di tanyakan silahkan kirim e-mail ke,          ‘);

writeln (‘……………………………………………………………….’);

writeln (‘                  bonenk.adjah@yahoo.com’);

writeln (‘……………………………………………………………….’);

end.