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.