TUGAS I

program logikamatematika;

uses wincrt;

begin

writeln(‘Assalamualaikum wr.wb’);

readln;

writeln(‘ hai aku Bety Sulistiani’);

write(‘Ini adalah logika matematika,’);

writeln(‘yang akan di bahas di sini adalah’);

readln;

writeln(’1. Ingkaran atau negasi’);

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

readln;

writeln(’2.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’);

readln;

writeln(’3.Konjungsi’);

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

readln;

writeln(’4.Implikasi’);

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

readln;

writeln(‘Wassalamialaikum wr.wb’)

end.

————————————————————————————————–

TUGAS II

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.

 

———————————————————————————————–

TUGAS III

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.