Tugas 1

program logika;

uses

WinCrt;

var nama,jawaban:string;

begin

writeln(‘Assalamualaikum Wr.Wb’);

readln ;

writeln (‘Tak kenal maka ta”aruf’);

readln;

write(‘Masukkan nama anda : ‘);

readln(nama);

write (‘Ok. ‘);

readln (nama);

writeln (‘ Salam kenal’);

readln ;

writeln(‘Ini adalah program logika matematika’);

writeln(‘ini contoh pernyataan logika’);

write(‘jika ia berakhlak baik maka ia disenangi orang’);

write(‘misal ia berakhlak baik adalah p dan ia disenangi orang adalah q’);

writeln(‘1. konvers:’);

writeln(‘Rumus q => p’);

writeln (‘2. invers’);

writeln (‘Rumus ~p = > ~q’);

writeln (‘3. kontraposisi’);

writeln (‘Rumus ~q = > ~p’);

end.

 

Tugas 2

program casepilih;

uses wincrt;

var pilih : char ;

 

procedure stepone ;

begin

clrscr ;

writeln (‘contoh pernyataan konvers’);

readln;

writeln (‘jika dia berakhlakul karimah maka ia disenangi banyak orang’);

readln;

write(‘misal ia berakhlak baik adalah p dan ia disenangi orang adalah q’);

readln;

writeln(‘Rumus q => p’);

end;

 

procedure steptwo ;

begin

clrscr ;

writeln (‘contoh pernyataan invers’);

readln;

writeln (‘jika dia berakhlakul karimah maka ia disenangi banyak orang’);

readln;

writeln (‘ misal ia berakhlak baik adalah p dan ia disenangi banyak orang adalah q’);

readln;

writeln (‘Rumus ~p => ~q’);

end;

procedure stepthree ;

begin

clrscr;

writeln (‘contoh pernyataan kontraposisi’);

readln;

writeln (‘jika ia berakhlakul karimah maka ia disenangi banyak orang’);

readln;

writeln (‘misal ia berakhlakul karimah adalah p dan ia disenangi banyak orang adalah q’);

readln;

writeln (‘Rumus ~q => ~p’);

end;

 

begin

writeln (‘menjelaskan pernyataan yang konvers,invers, dan kontraposisi dalam logika’);

write (‘pilih diantara nomor berikut : [1],[2],[3] : ‘);

readln (pilih);

case pilih of

‘1’ : stepone ;

‘2’ : steptwo ;

‘3’ : stepthree ;

else

writeln (‘eeeeeeeeeeeRrOoooooooooor…………’);

end;

end.