TUGAS 1;

=============================

program logika;

uses wincrt;

var benar:boolean;

begin

writeln (‘nama     : subhan hidayat’);

writeln (‘kelas    : 3D’);

writeln (‘kelompok : 4’);

writeln (‘tugas    : 1’);

writeln (‘ini program logika implikasi’);

writeln (‘jika hari hujan maka adi membawa payung’);

writeln (‘hari hujan adalah s dan adi membawang payung adalah t’);

writeln (‘pernyataan implikasi:’);

writeln (‘jika s maka t adalah benar’);

end.

=============================

TUGAS 2;

=============================

program casepilih;

uses wincrt;

var nama1, nama2, hasil :string;

var pilih:char;

begin

writeln (‘tabel kebenaran implikasi dan kontraposisi’);

writeln (‘ 1 untuk pernyataan p:benar q;benar’);

writeln (‘ 2 untuk pernyataan p:benar q:salah’);

writeln (‘ 3 untuk pernyataan p:salah q:benar’);

writeln (‘ 4 untuk pernyataan p:salah q:salah’);

write (‘pernyataan implikasi p maka q dan kontraposisi ~p maka ~q untuk [1][2][3][4]:’) ;

readln (pilih);

case pilih of

‘1’: write (‘bernilai benar’);

‘2’: write (‘bernilai salah’);

‘3’: write (‘bernilai benar’);

‘4’: write (‘bernilai benar’);

end;

readln;

writeln (‘tabel kebenaran konvers dan invers’);

writeln (‘ 1 untuk pernyataan p:benar q:benar’);

writeln (‘ 2 untuk pernyataan p:benar q:salah’);

writeln (‘ 3 untuk pernyataan p:salah q:benar’);

writeln (‘ 4 untuk pernyataan p:salah q:salah’);

write (‘pernyataan konvers q maka p dan invers ~q maka ~p untuk [1][2][3][4]:’) ;

readln (pilih);

case pilih of

‘1’: write (‘bernilai benar’);

‘2’: write (‘bernilai benar’);

‘3’: write (‘bernilai salah’);

‘4’: write (‘bernilai benar’);

end;

readln;

writeln (‘pernyataan implikasi, konvers, invers, dan kontraposisi’);

readln;

writeln (‘jika suatu bendera adalah bendera RI maka ada warna merah di bendera tersebut’);

readln;

writeln (‘dengan demikan dapat ditulis’);

readln ;

writeln (‘pastikan menggunakan huruf kapital’);

writeln (‘ket: isi dengan P enter Q, Q enter P, ~P enter ~Q,~Q enter ~P’);

readln;

write (‘bendera RI: ‘);

readln (nama1) ;

write (‘bendera yang ada warna merahnya: ‘);

readln (nama2) ;

if (nama1=’P’) and (nama2=’Q’) then

writeln (‘pernyataan di sebut implikasi yang dibaca p maka q’);

if (nama1=’Q’) and (nama2=’P’) then

writeln (‘pernyataan di sebut konvers yang dibaca q maka p’);

if (nama1=’~P’) and (nama2=’~Q’) then

writeln (‘pernyataan di sebut invers yang dibaca ~q maka ~p’);

if (nama1=’~Q’) and (nama2=’~P’) then

writeln (‘pernyataan di sebut kontraposisi yang dibaca ~p maka ~q’);

readln;

write (‘terima kasih’);

end.

============================

TUGAS 3;

============================

Program menuOke;

uses wincrt;

var tanya,pilih: char;

procedure implikasi ;

var nama1,nama2:string;

begin

clrscr;

writeln(‘=====================’);

writeln(‘PERNYATAAAN IMPLIKASI’);

writeln(‘=====================’);

writeln(‘- yang dilambangkan p => q’);

writeln(‘- berikut adalah nilai kebenaran sebuah pernyataan implikasi’);

writeln(‘- pastikan menggunakan huruf kapital’);

writeln(‘- ket: isi dengan B B, B S, S B, S S’);

write  (‘pernyataan P bernilai: ‘);

readln (nama1) ;

write  (‘pernyataan Q bernilai: ‘);

readln (nama2) ;

if (nama1=’B’) and (nama2=’B’) or (nama1=’S’) and (nama2=’B’) or (nama1=’S’) and (nama2=’S’) then

writeln (‘pernyataan implikasi p => q yang bernilai BENAR’);

if (nama1=’B’) and (nama2=’S’) then

writeln(‘pernyataan implikasi p => q yang bernilai SALAH’);

end;

procedure konvers ;

var nama1,nama2:string;

begin

clrscr;

writeln(‘===============’);

writeln(‘OPERASI KONVERS’);

writeln(‘===============’);

writeln(‘- yang di lambangkan q => p’);

writeln(‘- berikut adalah nilai kebenaran sebuah pernyataan konvers’);

writeln(‘- pastikan menggunakan huruf kapital’);

writeln(‘- ket: isi dengan B B, S B, B S, S S ‘);

write  (‘pernyataan Q bernilai: ‘);

readln (nama1) ;

write  (‘pernyataan P bernilai: ‘);

readln (nama2) ;

if (nama1=’B’) and (nama2=’B’) or (nama1=’S’) and (nama2=’B’) or (nama1=’S’) and (nama2=’S’) then

writeln (‘pernyataan konvers q => p yang bernilai BENAR’);

if (nama1=’B’) and (nama2=’S’) then

writeln (‘pernyataan konvers q => p yang bernilai SALAH’);

end;

procedure invers;

var nama1,nama2:string;

begin

clrscr;

writeln(‘===============’);

writeln(‘OPERASI INVERS’);

writeln(‘===============’);

writeln(‘- yang dilambangkan ~p => ~q’);

writeln(‘- berikut adalah nilai kebenaran sebuah pernyataan invers’);

writeln(‘- pastikan menggunakan huruf kapital’);

writeln(‘- ket: isi dengan S S, S B, B S, B B’);

write  (‘pernyataan ~P bernilai: ‘);

readln (nama1) ;

write  (‘pernyataan ~Q bernilai: ‘);

readln (nama2) ;

if (nama1=’B’) and (nama2=’B’) or (nama1=’B’) and (nama2=’S’) or (nama1=’S’) and (nama2=’S’) then

writeln (‘pernyataan invers ~p => ~q yang bernilai BENAR’);

if (nama1=’S’) and (nama2=’B’) then

writeln (‘pernyataan invers ~p => ~q yang bernilai SALAH’);

end;

procedure kontraposisi ;

var nama1,nama2:string;

begin

clrscr;

writeln(‘====================’);

writeln(‘OPERASI KONTRAPOSISI’);

writeln(‘====================’);

writeln(‘- yang dilambangkan ~q => ~p’);

writeln(‘- berikut adalah nilai kebenaran sebuah pernyataan kontraposisi’);

writeln(‘- pastikan menggunakan huruf kapital’);

writeln(‘- ket: isi dengan S S, B S, S B, B B’);

write  (‘pernyataan ~Q bernilai: ‘);

readln (nama1) ;

write  (‘pernyataan ~P bernilai: ‘);

readln (nama2) ;

if (nama1=’B’) and (nama2=’B’) or (nama1=’S’) and (nama2=’B’) or (nama1=’S’) and (nama2=’S’) then

writeln (‘pernyataan kontraposisi ~q => ~p yang bernilai BENAR’);

if (nama1=’B’) and (nama2=’S’) then

writeln (‘pernyataan kontraposisi ~q => ~p yang bernilai SALAH’);

end;

begin

repeat

clrscr;

writeln(‘===========================’);

writeln(‘Nama       : SUBHAN HIDAYAT’);

writeln(‘Kelas      : 3 D’);

writeln(‘Nim        : 2225092549’);

writeln(‘===========================’);

writeln(‘PROGRAM LOGIKA MATEMATIKA’);

writeln(‘===========================’);

writeln(‘1.Implikasi’);

writeln(‘2.Konvers’);

writeln(‘3.Invers’);

writeln(‘4.Kontraposisi’);

writeln(‘===========================’);

write  (‘masukan pilihan anda:…’);

readln(pilih);

case pilih of

‘1’:implikasi;

‘2’:konvers;

‘3’:invers;

‘4’:kontraposisi;

else

writeln(‘pilih sesuai menu!!!’);

end;

write (‘Bila Ingin Melanjutkan Program Saya[TEKAN y/t]:….’);

readln(tanya);

until (tanya=’t’) or (tanya=’T’);

clrscr;

writeln(‘TERIMAKASIH ANDA TELAH MEMAKAI PROGRAM SAYA’);

writeln(‘nade.miobi02@gmail.com’);

writeln(‘Terima Kasih dan Sampai Jumpa’);

end.

=============================

TUGAS 4 dan 5

=============================

program pesanlokasiArray;
uses wincrt;
var nama:array[1..4] of string;
var k:integer;
var mau:byte;
var tanya,pilih: char;
var nama1,nama2,nama3,nama4:string;

procedure implikasi ;
var nama1,nama2:string;
var input:integer;
var nama:string;
function siqt(var a:integer):integer;
begin
clrscr;
siqt:=a*a*a*a;
end;
procedure garis;
begin
writeln(‘============================================================’);
end;
begin
write(‘Masukan bilangan yang anda mau:’);
readln(input);
writeln(siqt (input),’ merupakan pangkat empat maka ‘,siqt (input),’ pangkat dari ‘,input);
garis;
writeln(‘PERNYATAAAN IMPLIKASI’);
garis;
writeln(‘- yang dilambangkan p => q’);
writeln(‘- berikut adalah nilai kebenaran sebuah pernyataan implikasi’);
writeln(‘- pastikan menggunakan huruf kapital’);
writeln(‘- ket: isi dengan B B, B S, S B, S S’);
write  (‘pernyataan P merupakan pangkat empat bernilai: ‘);
readln (nama1) ;
write  (‘pernyataan Q pangkat dari ‘,input,’ bernilai: ‘);
readln (nama2) ;
if (nama1=’B’) and (nama2=’B’) or (nama1=’S’) and (nama2=’B’) or (nama1=’S’) and (nama2=’S’) then
writeln (‘pernyataan implikasi p => q yang bernilai BENAR’);
if (nama1=’B’) and (nama2=’S’) then
writeln(‘pernyataan implikasi p => q yang bernilai SALAH’);
end;

procedure konvers ;
var nama1,nama2:string;
var input:integer;
var nama:string;
function siqt(var a:integer):integer;
begin
clrscr;
siqt:=a*a*a*a;
end;
procedure garis;
begin
writeln(‘==========================================================’);
end;
begin
write(‘Masukan bilangan yang anda mau:’);
readln(input);
writeln(siqt (input),’ merupakan pangkat empat maka ‘,siqt (input),’ pangkat dari ‘,input);
garis;
writeln(‘OPERASI KONVERS’);
garis;
writeln(‘- yang di lambangkan q => p’);
writeln(‘- berikut adalah nilai kebenaran sebuah pernyataan konvers’);
writeln(‘- pastikan menggunakan huruf kapital’);
writeln(‘- ket: isi dengan B B, S B, B S, S S ‘);
write  (‘pernyataan Q pangkat dari ‘,input,’ bernilai:’);
readln (nama1) ;
write  (‘pernyataan P merupakan pangkat empat bernilai:’);
readln (nama2) ;
if (nama1=’B’) and (nama2=’B’) or (nama1=’S’) and (nama2=’B’) or (nama1=’S’) and (nama2=’S’) then
writeln (‘pernyataan konvers q => p yang bernilai BENAR’);
if (nama1=’B’) and (nama2=’S’) then
writeln (‘pernyataan konvers q => p yang bernilai SALAH’);
end;

procedure invers;
var nama1,nama2:string;
var input:integer;
var nama:string;
function siqt(var a:integer):integer;
begin
clrscr;
siqt:=a*a*a*a;
end;
procedure garis;
begin
writeln(‘=========================================================’);
end;
begin
write(‘Masukan bilangan yang anda mau:’);
readln(input);
writeln(siqt (input),’ merupakan pangkat empat maka ‘,siqt (input),’ pangkat dari ‘,input);
garis;
writeln(‘OPERASI INVERS’);
garis;
writeln(‘- yang dilambangkan ~p => ~q’);
writeln(‘- berikut adalah nilai kebenaran sebuah pernyataan invers’);
writeln(‘- pastikan menggunakan huruf kapital’);
writeln(‘- ket: isi dengan S S, S B, B S, B B’);
write  (‘pernyataan ~P bukan merupakan pangkat empat bernilai: ‘);
readln (nama1) ;
write  (‘pernyataan ~Q bukan pangkat dari ‘,input,’ bernilai: ‘);
readln (nama2) ;
if (nama1=’B’) and (nama2=’B’) or (nama1=’B’) and (nama2=’S’) or (nama1=’S’) and (nama2=’S’) then
writeln (‘pernyataan invers ~p => ~q yang bernilai BENAR’);
if (nama1=’S’) and (nama2=’B’) then
writeln (‘pernyataan invers ~p => ~q yang bernilai SALAH’);
end;

procedure kontraposisi ;
var nama1,nama2:string;
var input:integer;
var nama:string;
function siqt(var a:integer):integer;
begin
clrscr;
siqt:=a*a*a*a;
end;
procedure garis;
begin
writeln(‘=================================================================’);
end;
begin
write(‘Masukan bilangan yang anda mau:’);
readln(input);
writeln(siqt (input),’ merupakan pangkat empat maka ‘,siqt (input),’ pangkat dari ‘,input);
garis;
writeln(‘OPERASI KONTRAPOSISI’);
garis;
writeln(‘- yang dilambangkan ~q => ~p’);
writeln(‘- berikut adalah nilai kebenaran sebuah pernyataan kontraposisi’);
writeln(‘- pastikan menggunakan huruf kapital’);
writeln(‘- ket: isi dengan S S, B S, S B, B B’);
write  (‘pernyataan ~Q bukan pangkat dari ‘,input,’ bernilai:’);
readln (nama1) ;
write  (‘pernyataan ~P bukan merupakan pangkat empat bernilai:’);
readln (nama2) ;
if (nama1=’B’) and (nama2=’B’) or (nama1=’S’) and (nama2=’B’) or (nama1=’S’) and (nama2=’S’) then
writeln (‘pernyataan kontraposisi ~q => ~p yang bernilai BENAR’);
if (nama1=’B’) and (nama2=’S’) then
writeln (‘pernyataan kontraposisi ~q => ~p yang bernilai SALAH’);
end;

begin
repeat
clrscr;
writeln(‘===========================’);
writeln(‘Nama       : SUBHAN HIDAYAT’);
writeln(‘Kelas      : 3 D’);
writeln(‘Nim        : 2225092549’);
writeln(‘===========================’);
writeln(‘PROGRAM LOGIKA MATEMATIKA’);
writeln(‘===========================’);
writeln(‘1.Implikasi’);
writeln(‘2.Konvers’);
writeln(‘3.Invers’);
writeln(‘4.Kontraposisi’);
writeln(‘===========================’);

begin
for k:= 1 to 1 do
begin
end;
write (‘Masukan pernyataan ke-‘,k,’adalah:’);
readln(nama[k]);
end;

begin
for k:= 1 to 2 do
begin
end;
write (‘Masukan pernyataan ke-‘,k,’adalah:’);
readln(nama[k]);
end;

begin
for k:= 1 to 3 do
begin
end;
write (‘Masukan pernyataan ke-‘,k,’adalah:’);
readln(nama[k]);
end;

begin
for k:= 1 to 4 do
begin
end;
write (‘Masukan pernyataan ke-‘,k,’adalah:’);
readln(nama[k]);
end;

writeln;
write(‘Pilih pernyataan yang anda mau:’);
readln(mau);
writeln;
writeln (‘Pernyataan yang ke-‘,mau,’adalah:’,nama[mau]);
write  (‘masukan pernytaan yang anda pilih:…’);
readln(pilih);
case pilih of
‘1’:implikasi;
‘2’:konvers;
‘3’:invers;
‘4’:kontraposisi;
else
writeln(‘pilih sesuai menu!!!’);
end;

write (‘Bila Ingin Melanjutkan Program Saya[TEKAN y/t]:….’);
readln(tanya);

until (tanya=’t’) or (tanya=’T’);
clrscr;
writeln(‘TERIMAKASIH ANDA TELAH MEMAKAI PROGRAM SAYA’);
writeln(‘nade.miobi02@gmail.com’);
writeln(‘Terima Kasih dan Sampai Jumpa’);

end.