TUGAS I : KONJUNGSI DAN DISJUNGSI

program logika;

uses
WinCrt;
var nama,prodi,jawaban:string;

begin
writeln(‘Haii.. Selamat Datang di Dunia Logika Matematika’);
clrscr;
write(‘Silahkan Masukan Nama Anda :’);
readln(nama);
write(‘Silahkan Masukan Prodi Anda :’);
readln(prodi);
clrscr;
if(prodi=’matematika’) OR (prodi=’MATEMATIKA’) then write (‘Conratulation.. Anda berhasil memasuki dunia LOGIKA MATEMATIKA’)
else write(‘Anda Belum Berhasil. Silahkan Ulangi.’);
readln;
clrscr;
writeln(‘Mari Belajar KONJUNGSI dan DISJUNGSI’);
writeln(’1. Konjungsi’);
write(‘Adalah dua pernyataan yang dihubungkan dengan kata “dan”.’);
write(‘ Konjungsi dari pernyataan p dan q ditulis “p ^ q” <dibaca p dan q>.’);
writeln(‘ Berikut adalah Nilai Kebenaran Konjungsi:’);
writeln(‘Jika p=B dan q=B maka p ^ q adalah B’);
writeln(‘Jika p=B dan q=S maka p ^ q adalah S’);
writeln(‘Jika p=S dan q=B maka p ^ q adalah S’);
writeln(‘Jika p=S dan q=S maka p ^ q adalah S’);
writeln(’2. Disjungsi’);
write(‘Adalah dua pernyataan yang dihubungkan dengan kata “atau”. ‘);
write(‘Disjungsi dari pernyatan p dan q ditulis “p v q” <dibaca p atau q>. ‘);
writeln(‘Berikut adalah Nilai Kebenaran Konjungsi:’);
writeln(‘Jika p=B dan q=B maka p v q adalah B’);
writeln(‘Jika p=B dan q=S maka p v q adalah B’);
writeln(‘Jika p=S dan q=B maka p v q adalah B’);
writeln(‘Jika p=S dan q=S maka p v q adalah S’);
writeln(‘==========*****==========’);
writeln(‘Bagaimana? Apakah Anda Sudah Paham?’);
writeln(‘Untuk Lebih Jelasnya Kita Lanjut ke Latihan.’);
write(’1. Diketahui p=24 sama dengan 16, dan q=3+4<8. Logika dari pernyataan “24 tidak sama dengan 16 atau 3+4>8″ adalah’);
readln(jawaban);
if(jawaban=’-pv-q’) OR (jawaban=’-p v -q’) then write (‘Selamat Anda Benar !’)
else write(‘Anda Salah !’);
readln;
clrscr;
writeln(‘Terima Kasih Telah Mengunjungi Dunia Logika Matematika. See you !’);

end.

——————————————————————————————————-

TUGAS II : CASE OF, WHILE DO, REPEAT UNTIL

program logika;

uses
WinCrt;
var nama,prodi,jawaban:string;
var pilih,lagi:char;

procedure konjungsi;
var kalimat1,kalimat2,hasil: string;

begin
clrscr;
writeln(‘1. Konjungsi’);
write(‘Masukkan kalimat pertama : ‘);
readln(kalimat1);
write(‘Masukkan kalimat kedua : ‘);
readln(kalimat2);
hasil:=kalimat1+kalimat2;
writeln(‘Konjungsinya adalah : ‘,kalimat1,’ dan ‘,kalimat2);
end;

procedure disjungsi;
var kalimat1,kalimat2,hasil: string;

begin
clrscr;
writeln(‘2.Disjungsi’);
write(‘Masukkan kalimat pertama : ‘);
readln(kalimat1);
write(‘Masukkan kalimat kedua : ‘);
readln(kalimat2);
hasil:=kalimat1+kalimat2;
writeln(‘Disjungsinya adalah : ‘,kalimat1,’ atau ‘,kalimat2);
end;

procedure keluar;
var kalimat1,kalimat2,hasil: string;

begin
clrscr;
writeln(‘Anda Telah Memilih Keluar Program’);
end;

begin
writeln(‘Haii.. Selamat Datang di Dunia Logika Matematika’);
clrscr;
write(‘Silahkan Masukan Nama Anda :’);
readln(nama);
write(‘Silahkan Masukan Prodi Anda :’);
readln(prodi);
clrscr;
if(prodi=’matematika’) OR (prodi=’MATEMATIKA’) then write (‘Conratulation.. Anda berhasil memasuki dunia LOGIKA MATEMATIKA’)
else write(‘Anda Belum Berhasil. Silahkan Ulangi.’);
readln;
clrscr;
lagi:=’Y’;
while lagi=’Y’ do begin
clrscr;
repeat
clrscr;
writeln (‘Menu’);
writeln (‘1. Konjungsi’);
writeln (‘2. Disjungsi’);
writeln (‘3. Keluar’);
write (‘Masukan pilihan anda 1,2 atau 3:’);
readln(pilih);case pilih of
‘1’: konjungsi;
‘2’: disjungsi;
‘3’: keluar
else
write (‘baca baik-baik’);
end;
write(‘Untuk melanjutkan program tekan Y=’);
readln(lagi);
readln;
until upcase(pilih)=’3′;
end;
end.
————————————————————————————————-

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

procedure konjungsi;
var kalimat1,kalimat2,hasil: string;

begin
clrscr;
writeln(‘1. Konjungsi’);
write(‘Masukkan kalimat pertama : ‘);
readln(kalimat1);
write(‘Masukkan kalimat kedua : ‘);
readln(kalimat2);
hasil:=kalimat1+kalimat2;
writeln(‘Konjungsinya adalah : ‘,kalimat1,’ dan ‘,kalimat2);
end;

procedure disjungsi;
var kalimat1,kalimat2,hasil: string;

begin
clrscr;
writeln(‘2.Disjungsi’);
write(‘Masukkan kalimat pertama : ‘);
readln(kalimat1);
write(‘Masukkan kalimat kedua : ‘);
readln(kalimat2);
hasil:=kalimat1+kalimat2;
writeln(‘Disjungsinya adalah : ‘,kalimat1,’ atau ‘,kalimat2);
end;

procedure lain;
var baris,kolom,jumbaris :integer;

begin
clrscr;
write (‘Jumlah Baris : ‘);readln(jumbaris);
FOR BARIS:=1 TO jumbaris do
begin

write (‘*’: jumbaris);
FOR kolom := 2 TO (2 *baris -1 ) do
begin
write(‘*’);
end;
end;
end;

begin
writeln(‘Haii.. Selamat Datang di Dunia Logika Matematika’);
clrscr;
write(‘Silahkan Masukan Nama Anda :’);
readln(nama);
write(‘Silahkan Masukan Prodi Anda :’);
readln(prodi);
clrscr;
if(prodi=’matematika’) OR (prodi=’MATEMATIKA’) then write (‘Conratulation.. Anda berhasil memasuki dunia LOGIKA MATEMATIKA’)
else write(‘Anda Belum Berhasil. Silahkan Ulangi.’);
readln;

repeat
clrscr;
writeln (‘======================’);
writeln (‘Menu Logika Matematika’);
writeln (‘======================’);
writeln (‘1. Konjungsi’);
writeln (‘2. Disjungsi’);
writeln (‘3. Yang Lainnya’);
write (‘Masukan pilihan anda 1,2 atau 3: ‘);
readln(pilih);

case pilih of
‘1’: konjungsi;
‘2’: disjungsi;
‘3’: lain;
else
writeln;
writeln(‘=====================================’);
writeln(‘Baca baik-baik ! Pilih sesuai menu !’);
writeln(‘=====================================’);
end;
write(‘Untuk melanjutkan program tekan [Y]. Untuk berhenti tekan [N]= ‘);
readln(lagi);

until(lagi=’N’) or (lagi=’n’);
clrscr;
writeln(‘=====================================’);
writeln(‘Terimakasih Telah Memakai Program Ini’);
writeln(‘Datang Kembali yaaa.. !’);
writeln(‘mariscautami@yahoo.co.id’);
writeln(‘=====================================’);
end.

————————————————————————————————–
TUGAS IV : FUNCTION PROCEDURE DAN ARRAY
—————————-
1. Function Procedure
—————————-
program fucdanproc;
uses wincrt;
var x,y:string;

procedure garis;
begin
writeln(‘=============================================’);
end;

function siqt(var a,b:string):string;
begin
write(a,’ atau ‘,b);
end;

procedure inputan (var c:string);
begin
writeln;
garis;
writeln(‘Disjungsinya adalah :’,siqt(x,y));
garis;
end;

begin
garis;
writeln(‘Program Disjungsi’);
garis;
write(‘Masukan kalimat yang Anda mau : ‘);
readln(x);
write(‘masukan kalimat yang Anda mau : ‘);
readln(y);
inputan(y);
end.

———————
2. Array
———————

program pesanlokasiArray;
uses wincrt;
var nama:array[1..2] of string;
var i: integer;
begin
for i:= 1 to 2 do
begin
write(‘Masukan kalimat ke-‘,i,’ adalah ‘);
readln(nama[i]);
end;
writeln(‘konjungsinya adalah ‘,nama[1],’ dan ‘,nama[2]);
end.