program casepilih;
uses wincrt;
var pilih,tanya : 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
repeat
clrscr;
writeln (‘———————————————————–‘);
writeln (‘pernyataan logika matematika’);
writeln (‘———————————————————–‘);
writeln (‘+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++’);
writeln (‘konvers, invers, dan kontraposisi’);
writeln (‘+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++’);
writeln (‘——–1.konvers——–‘);
writeln (‘——–2.invers———‘);
writeln (‘—–3.kontraposisi——-‘);
readln ;
write (‘pilih diantara nomor diatas : ‘);
readln (pilih);
case pilih of
‘1’ : stepone ;
‘2’: steptwo ;
‘3’ : stepthree ;
else
writeln (‘eeeeeeeeeeeRrOoooooooooor…………’);
readln ;
end;

writeln (‘lanjut atau berhenti ? ‘);
write (‘tekan y/t : …’);
readln (tanya);

until tanya=’t’ ;
clrscr;

writeln (‘++++++++++++++++++++++++++++++++++++++++++++++’);
writeln (‘Thanks Telah datang Di Program Saya ….’);
writeln (‘++++++++++++++++++++++++++++++++++++++++++++++’);
readln;
writeln (‘Andri wiranata’);
readln ;
writeln (‘mau bertanya silahkan kirim e-mail ke : …’);
writeln (‘++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++’);
writeln (‘.===================.’);
writeln (‘nata_lsiper@yahoo.co.id|’);
writeln (‘=====================’);
end.