_ Tugas 1 _(IMPLIKASI)

Program Logika;

uses wincrt;
var nama, prodi:string;

begin

write (‘Masukan Nama Anda: ‘);
readln (nama);
write (‘Apa Nama Prodi Anda: ‘);
readln (prodi);
clrscr;

if prodi= ‘matematika’
then
writeln (‘Anda Boleh Masuk’)
else

writeln (‘Anda Diluar Saja’);
writeln (‘——————————–‘);

writeln (‘Hai Parin sedang memprogram’);
writeln (‘Ini program Logika Matematika’);
writeln (‘      ‘);

writeln (‘ Tentang Implikasi’);
writeln (‘        ‘);

writeln (‘ Implikasi adalah suatu pernyataan majemuk dengan menggunakan kata hubung’);
writeln (‘  “jika….,maka…” ‘);
writeln (‘ Dengan lambang “p => q” ‘);
writeln (‘        ‘);

writeln (‘ Implikasi bernilai salah hanya jika hipotesis p brnilai benar dan konklusi q’);
writeln (‘ bernilai salah,untuk kasus lainnya bernilai benar.’);
writeln (‘        ‘);

writeln (‘   Contoh Soal: ‘);
writeln (‘     p      : 2 bilangan bulat (B)’);
writeln (‘     q      : Kucing Bertanduk (S)’);
writeln (‘        ‘);

writeln (‘   Jawab:’);
writeln (‘     p      : 2 bilangan bulat (B)’);
writeln (‘     q      : Kucing Bertanduk (S)’);
writeln (‘     p => q : Jika 2 bilangan bulat, maka kucing bertanduk (S)’);

end.

_Tugas 2_(CASE OF, WHILE DO, REPEAT UNTIL)

program casepilih;

uses wincrt;

var pilih,lanjut,lagi: char;

var nama,prodi:string;

procedure implikasi;

var pernyataan1, pernyataan2, hasil: string;

begin

clrscr;

writeln (‘implikasi’);

write (‘masukan pernyataan pertama: ‘);

readln (pernyataan1);

write (‘masukan pernyataan kedua: ‘);

readln (pernyataan2);

hasil:= pernyataan1+pernyataan2 ;

writeln (‘implikasinya adalah:  jika ‘,pernyataan1,’ ,maka  ‘,pernyataan2);

end;

procedure biimplikasi;

var pernyataan1, pernyataan2, hasil: string;

begin

clrscr;

writeln (‘biimplikasi’);

write (‘masukan pernyataan pertama: ‘);

readln (pernyataan1);

write (‘masukan pernyataan kedua: ‘);

readln (pernyataan2);

hasil:= pernyataan1+pernyataan2 ;

writeln (‘biiimplikasinya adalah:  jika ‘,pernyataan1,’ ,dan hanya jika  ‘,pernyataan2);

end;

procedure keluar;

var pernyataan1, pernyataan2, hasil: string;

begin

clrscr;

writeln(‘Anda Telah Memilih Keluar Program’);

writeln (‘Terima Kasih Yaaa’);

end;

begin

writeln(‘Silakan isi apabila Anda ingin masuk ke dalm program saya….’);

write(‘Masukan Nama Anda :’);

readln(nama);

write(‘Masukan Prodi Anda :’);

readln(prodi);

clrscr;

if(prodi=’matematika’)

then write (‘Anda Boleh masuk’)

else

writeln (‘haaiii masuk lagi di program logika matematika saya….’);

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

writeln (‘Anda Belum Masuk!! Coba Ulangi.’);

writeln (‘tekan Y=’);

readln;

clrscr;

lagi:=’Y’;

while lagi=’Y’ do begin

clrscr;

begin

repeat

clrscr;

write (‘pilih huruf yang anda suka  [a]implikasi, [b]biimplikasi, [c]keluar :’);

readln (pilih);

case pilih of

‘a’:implikasi;

‘b’:biimplikasi;

‘c’:keluar;

else

writeln (‘Coba lihat lagi!!! ‘)

end;

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

writeln(‘untuk melanjutkan program ni tulis _oke_ =’);

readln (lanjut)

until upcase (pilih)=’c’;

clrscr;

readkey;

clrscr;

end;

end;

end.

_Tugas 3_  (REPEAT DAN FOR TO)

program menuOke;

uses wincrt;

var tekan,pilih:char;

procedure implikasi;

var pernyataan1, pernyataan2, hasil: string;

begin

writeln (‘implikasi’);

write (‘masukan pernyataan pertama: ‘);

readln (pernyataan1);

write (‘masukan pernyataan kedua: ‘);

readln (pernyataan2);

hasil:= pernyataan1+pernyataan2 ;

writeln (‘implikasinya adalah:  jika ‘,pernyataan1,’ ,maka  ‘,pernyataan2);

end;

procedure biimplikasi;

var pernyataan1, pernyataan2, hasil: string;

begin

writeln (‘biimplikasi’);

write (‘masukan pernyataan pertama: ‘);

readln (pernyataan1);

write (‘masukan pernyataan kedua: ‘);

readln (pernyataan2);

hasil:= pernyataan1+pernyataan2 ;

writeln (‘biimplikasinya adalah:  jika ‘,pernyataan1,’ dan hanya jika ‘,pernyataan2);

end;

procedure ImplikasiLogis;

var x:integer;

begin

for x:=2 to 4 do

writeln (‘implikasi logis adalah: Jika ‘,x,’ maka ‘,x*x);

writeln (‘Dan selalu benar. Itu yang di namakan implikasi logis’);

end;

begin

writeln (‘***********************’);

writeln (‘program operasi matematika’);

writeln (”);

writeln (‘1. impilikasi’);

writeln (‘2. biimplikasi’);

writeln (‘3. implikasi logis’);

writeln (”);

writeln (‘***********************’);

writeln (‘masukan pilihan anda’);

readln (pilih);

clrscr;

case pilih of

‘1’:implikasi;

‘2’:biimplikasi;

‘3’:implikasilogis;

else

clrscr;

writeln;

writeln (‘Coba lihat lagi !!!!’);

writeln (‘Pilih yang Anda inginkan…’);

end;

begin

repeat

writeln;

writeln (‘Anda masih ingin lanjut…!!!!! ‘);

write (‘[tekan y/t…..]’);

readln (tekan);

until tekan=’t’;

clrscr;

writeln;

writeln (‘Trima Kasih…….’);

writeln (‘Anda telah selesai memasuki program operasi matematika’);

readkey;

end;

end.

_Tugas 4_ (FUNCTION PROCEDURE DAN ARRAY)

program logika;

uses wincrt;

var nama,prodi,tanya:string;

var input:integer;

var x:integer;

procedure garis;

begin

writeln(‘*****************************************************’);

end;

function siqt(var x:integer):integer;

begin

siqt:=x*x;

end;

procedure inputan (var b:integer);

begin

garis;

writeln(‘jadi, implikasi logis adalah: jika ‘, input , ‘ maka ‘,siqt(input));

garis;

writeln (‘Dan selalu benar. Itulah yang dinamakan Implikasi logis’);

end;

begin

writeln (‘Silahkan isi data-data terlebih dahulu……’);

write (‘Masukan Nama Anda: ‘);

readln (nama);

write (‘Apa Nama Prodi Anda: ‘);

readln (prodi);

clrscr;

if prodi= ‘matematika’

then

writeln (‘Anda Boleh Masuk’)

else

writeln (‘Anda Diluar Saja’);

writeln (‘——————————–‘);

writeln (‘Hai kembali lagi di program parin’);

writeln (‘Ini program Logika Matematika’);

writeln (‘kali ini tentang implikasi logis’);

writeln (‘      ‘);

writeln (‘Tentang Implikasi logis’);

writeln (‘implikasi logis adalah jika kalimat P benar maka kalimat Q benar juga’);

writeln (‘      ‘);

begin

writeln(‘masukan bilangan yang Anda mau : ‘);

readln(input);

inputan(input);

end;

begin

writeln;

writeln (‘dan hitunglah untuk nilai ini.????’);

for x:= 1 to 4 do

begin

write(‘untuk nilai ke-‘,x,’ adalah –>’);

readln(nama[x]);

end;

writeln;

writeln(‘Dan urutan ke-2 adalah –>’,nama[2]);

end;

begin

clrscr;

repeat

writeln;

writeln (‘Anda masih ingin lanjut!!!!! ‘);

write (‘[tekan y/t…..]’);

readln (tanya);

until tanya=’t’;

clrscr;

writeln;

writeln (‘Terima Kasih….’);

writeln (‘Anda telah selesai memasuki program operasi matematika’);

writeln (‘see you….’);

readkey;

end;

end.