TUGAS III : REPEAT DAN FOR DO TO
program logika;
uses wincrt;
var nama,prodi,jawaban:string;
var pilih,lagi:char;

procedure Pengertian_Biimplikasi;
begin
clrscr;
writeln(‘Pengertian Biimplikasi:’);
readln;
writeln(‘Biimplikasi (bikondisional) adalah pernyataan majemuk yang’);
writeln(‘menggunakan penghubung logika “…jika dan hanya jika…”.’);
readln;
end;

procedure Tabel_Kebenaran_Biimplikasi;
begin
clrscr;
writeln(‘Tabel Kebenaran Biimplikasi:’);
readln;
Writeln(‘====================================================’);
writeln(‘p=B jika dan hanya jika q=B, biimplikasinya adalah B’);
writeln(‘p=B jika dan hanya jika q=S, biimplikasinya adalah S’);
writeln(‘p=S jika dan hanya jika q=S, biimplikasinya adalah S’);
writeln(‘p=S jika dan hanya jika q=S, biimplikasinya adalah B’);
Writeln(‘====================================================’);
readln;
end;

procedure Latihan;
var jawaban1,jawaban2: string;
begin
clrscr;
writeln(‘LATIHAN!’);
readln;
write(‘Pilih pernyataan 1 (B/S) : ‘);readln(jawaban1);
write(‘Pilih pernyataan 2 (B/S) : ‘);readln(jawaban2);
readln;
if(jawaban1=’B’)and(jawaban2=’B’) OR (jawaban1=’S’)and(jawaban2=’S’) then
write(‘Biimplikasinya adalah B’)
else write(‘Biimplikasinya adalah S’);
readln;
readln;
end;

procedure Lainnya;
var a,b:integer;
hasil:real;
i:byte;

begin
clrscr;
hasil:=1;
writeln(‘=====================================’);
writeln(‘Anda Masuk Dalam Program Operasi Akar’);
writeln(‘=====================================’);
readln;
write(‘Masukan bilangan akar: ‘);
readln(a);
write(‘dipangkatkan dengan: ‘);
readln(b);
for i:= 1 to b do

begin
hasil:=hasil*sqrt(a);
end;
readln;
writeln(‘hasil dari bilangan akar yang dipangkatakan adalah ‘);write(hasil);
readln;
end;

begin
writeln(‘===========================================’);
writeln(‘Selamat Datang di Program Logika Matematika’);
writeln(‘===========================================’);
readln;
clrscr;
write(‘Silahkan Masukan Nama Anda : ‘);readln(nama);
write(‘Silahkan Masukan Prodi Anda : ‘);readln(prodi);
clrscr;
if(prodi=’matematika’) OR (prodi=’MATEMATIKA’) then
write(‘Anda masuk dalam program biimplikasi!’)
else write(‘Maaf Program Ini Hanya Untuk Prodi Matematika!!!’);
readln;
clrscr;
lagi:=’Y’;
while lagi=’Y’ do begin
clrscr;
repeat
clrscr;
writeln(‘Menu:’);
writeln(‘[1] Pengertian Biimplikasi’);
writeln(‘[2] Tabel Kebenaran Biimplikasi’);
writeln(‘[3] Latihan’);
writeln(‘[4] Lain-lain’);
write(‘Masukkan pilihan anda (1/2/3/4): ‘);readln(pilih);
case pilih of
‘1’: Pengertian_Biimplikasi;
‘2’: Tabel_Kebenaran_Biimplikasi;
‘3’: Latihan;
‘4’: Lainnya;
else
clrscr;
writeln(‘===================’);
writeln(‘Pilih sesuai menu !’);
writeln(‘===================’);
end;

writeln(‘Untuk melanjutkan program tekan [Y].’);
write(‘Untuk berhenti tekan [N]= ‘);readln(lagi);
until(lagi=’N’) or (lagi=’n’);
clrscr;
writeln(‘===============================================’);
writeln(‘Terimakasih anda telah mengunjungi program kami’);
writeln(‘ aghasixmath@yahoo.co.id’);
writeln(‘===============================================’);
end;
end.
======***=====

TUGAS II : CASE-OF, WHILE-DO, REPEAT-UNTIL
program logika;
uses wincrt;
var nama,prodi,jawaban:string;
var pilih,lagi:char;

procedure Pengertian_Biimplikasi;
begin
clrscr;
writeln(‘Pengertian Biimplikasi:’);
readln;
writeln(‘Biimplikasi (bikondisional) adalah pernyataan majemuk yang’);
writeln(‘menggunakan penghubung logika “…jika dan hanya jika…”.’);
readln;
end;

procedure Tabel_Kebenaran_Biimplikasi;
begin
clrscr;
writeln(‘Tabel Kebenaran Biimplikasi:’);
readln;
Writeln(‘====================================================’);
writeln(‘p=B jika dan hanya jika q=B, biimplikasinya adalah B’);
writeln(‘p=B jika dan hanya jika q=S, biimplikasinya adalah S’);
writeln(‘p=S jika dan hanya jika q=S, biimplikasinya adalah S’);
writeln(‘p=S jika dan hanya jika q=S, biimplikasinya adalah B’);
Writeln(‘====================================================’);
readln;
end;

procedure Latihan;
var jawaban1,jawaban2: string;
begin
clrscr;
writeln(‘LATIHAN!’);
readln;
write(‘Pilih pernyataan 1 (B/S) : ‘);readln(jawaban1);
write(‘Pilih pernyataan 2 (B/S) : ‘);readln(jawaban2);
readln;
if(jawaban1=’B’)and(jawaban2=’B’) OR (jawaban1=’S’)and(jawaban2=’S’) then
write(‘Biimplikasinya adalah B’)
else write(‘Biimplikasinya adalah S’);
readln;
end;

begin
writeln(‘===========================================’);
writeln(‘Selamat Datang di Program Logika Matematika’);
writeln(‘===========================================’);
readln;
clrscr;
write(‘Silahkan Masukan Nama Anda : ‘);readln(nama);
write(‘Silahkan Masukan Prodi Anda : ‘);readln(prodi);
clrscr;
if(prodi=’matematika’) OR (prodi=’MATEMATIKA’) then
write(‘Anda masuk dalam program biimplikasi!’)
else write(‘Maaf Program Ini Hanya Untuk Prodi Matematika!!!’);
readln;
clrscr;
lagi:=’Y’;
while lagi=’Y’ do begin
clrscr;
repeat
clrscr;
writeln(‘Menu:’);
writeln(‘[1] Pengertian Biimplikasi’);
writeln(‘[2] Tabel Kebenaran Biimplikasi’);
writeln(‘[3] Latihan’);
write(‘Masukkan pilihan anda (1/2/3): ‘);readln(pilih);
case pilih of
‘1’: Pengertian_Biimplikasi;
‘2’: Tabel_Kebenaran_Biimplikasi;
‘3’: Latihan;
else
write(‘Masukkan pilihan yang BENAR!!!’);
end;
clrscr;
writeln(‘Untuk melanjutkan program tekan [Y].’);
write(‘Untuk berhenti tekan [N]= ‘);readln(lagi);
until(lagi=’N’) or (lagi=’n’);
clrscr;
writeln(‘terimakasih telah menggunakan program ini’);
end;
end.
======***=====

TUGAS I : IF-THEN
program logika;
uses wincrt;
var nama,prodi,jawaban1,jawaban2:string;

begin
writeln(‘===========================================’);
writeln(‘Selamat Datang di Program Logika Matematika’);
writeln(‘===========================================’);
readln;
clrscr;
write(‘Silahkan Masukan Nama Anda : ‘);readln(nama);
write(‘Silahkan Masukan Prodi Anda : ‘);readln(prodi);
clrscr;
if(prodi=’matematika’) OR (prodi=’MATEMATIKA’) then
write(‘Silahkan Menggunakan Program Logika Matematika!’)
else write(‘Maaf Program Ini Hanya Untuk Prodi Matematika!!!’);
readln;
clrscr;
writeln(‘===========================’);
writeln(‘Mari Belajar BIIMPLIKASI!!!’);
writeln(‘===========================’);
readln;
clrscr;
writeln(‘Pengertian Biimplikasi:’);
writeln(‘Biimplikasi (bikondisional) adalah pernyataan majemuk yang’);
writeln(‘menggunakan penghubung logika “…jika dan hanya jika…”.’);
readln;
writeln(‘Berikut tabel kebenaran dari program biimplikasi:’);
writeln(‘====================================================’);
writeln(‘p=B jika dan hanya jika q=B, biimplikasinya adalah B’);
writeln(‘p=B jika dan hanya jika q=S, biimplikasinya adalah S’);
writeln(‘p=S jika dan hanya jika q=S, biimplikasinya adalah S’);
writeln(‘p=S jika dan hanya jika q=S, biimplikasinya adalah B’);
writeln(‘====================================================’);
clrscr;
writeln(‘LATIHAN!’);
readln;
write(‘Pilih pernyataan 1 (B/S) : ‘);readln(jawaban1);
write(‘Pilih pernyataan 2 (B/S) : ‘);readln(jawaban2);
readln;
if(jawaban1=’B’)and(jawaban2=’B’) OR (jawaban1=’S’)and(jawaban2=’S’) then
write(‘Biimplikasinya adalah B’)
else write(‘Biimplikasinya adalah S’);
readln;
clrscr;
writeln(‘Silahkan mencoba kembali!’);
readln;
clrscr;
writeln(‘==================’);
writeln(‘SELAMAT BELAJAR…’);
writeln(‘==================’);
end.