TUGAS 1

program buktidalammatematika;
uses
WinCrt;

begin
writeln(‘Assalamualaikum Wr.Wb’);
readln ;
writeln (‘helllllowWWWW’);
readln;
write(‘apa kabar cemuanya ?? semoga kita cemua di berikan kesehatan amin ya robal alamin’);
readln ;
write (‘alhamdulilah kita dapat berjunpa lagi dalam pembelajaran algoritma dan pmograman ‘);
readln ;
write(‘ini saya asnakhudin Cy KM Thea : ‘);
readln ;
writeln (‘baiklah kali ini saya akan membahas tentang bukti dalam matematika ‘);
write(‘secara definisi yaitu ‘);
write(‘argumentasi yang menunjukan suatu pernyataan p => q selalu bernilai benar ‘);
readln ;
writeln (‘ada beberapa macam bukti dalam matematika’);
writeln (‘1. bukti tak langsung’);
readln ;
write (‘bukti tak langsung dibagi 2 macam ‘);
readln ;
write (‘a. bukti tak langsung dengan koontradiksi ‘);
writeln (‘yaitu membuktikan p => q dengan mengandaikan ~ q benar kemudian dilanjutkan p benar atau q haruslah benar ‘);
readln ;
write (‘B. bukti tak langsung dengan kontraposisi ‘);
writeln (‘yaitu membuktikan p ==> q benar dengan mengandaikan ~ q benar kemudian ~p benar sehingga ~p => ~p. ‘);
writeln (‘karena p => q = ~q => ~p benar , p => q juga benar, sehingga p => q benar di buktikan dengan kontraposisi’);
readln ;
write (‘2. bukti langsung ‘);
writeln (‘yaitu p => q benar, di mulai dari pernyataan p agar di dapat pernyataan q. ‘);
writeln (‘yang termasuk bukti langsung adalah modus ponen, modus tollens, dan silogisme’);
readln ;
write (‘DEMIKIANLAH MATERI SAYA APABILA ADA KESALAHAN MOHON KRITIKANNYA ‘);
writeln (‘TERIMA KASIH ‘);
readln ;

write (‘ S A M P A I J U M P A L A G I D I L A I N K E S E M P A T A N’);
readln ;
write (‘WASALAMUALAIKUM WAROHMATULAHI WABAROKATUH’);
end.

——————————————————————————————–

TUGAS 2

program casepilihan;
uses wincrt;

procedure garis;
begin
writeln(‘———————————‘);
end;

procedure selesai;
begin
clrscr;
writeln(‘terima kasih anda sudah menggunakan program saya’);
writeln(‘blog  : http//:www.asnakhudin.wordpress.com’);
end;

var
pilih,lagi:char;

begin
repeat
clrscr;
writeln(‘nama        : asnakhudin’);
writeln(‘smstr/kls   : 3/D’);
writeln(‘materi      : bukti dalam matematika’);
writeln(‘————————————‘);
writeln(‘[1] definisi’);
writeln(‘[2] bukti tak langsung’);
writeln(‘[3] bukti langsung’);
writeln(‘[4] selesai’);
writeln(‘————————————‘);
write(‘pilih no: ‘);readln(pilih);
case pilih of
‘1’:begin          
clrscr;
writeln(‘argumentasi yang menunjukan suatu pernyataan p => q selalu bernilai benar ‘);
end;
‘2’:begin
clrscr;
writeln(‘bukti tak langsung’);
writeln(‘——————‘);
writeln (‘bukti tak langsung dibagi 2 macam; yaitu ‘);
writeln (‘a. bukti tak langsung dengan koontradiksi ‘);
writeln (‘   yaitu membuktikan p => q dengan mengandaikan ~ q benar kemudian dilanjutkan p benar atau q haruslah benar ‘);
writeln (‘b. bukti tak langsung dengan kontraposisi ‘);
writeln (‘   yaitu membuktikan p ==> q benar dengan mengandaikan ~ q benar kemudian ~p benar sehingga ~p => ~p. ‘);
writeln (‘   karena p => q = ~q => ~p benar , p => q juga benar, sehingga p => q benar di buktikan dengan kontraposisi’);
garis;
end;
‘3’:begin
clrscr;
writeln(‘bukti langsung ‘);
writeln(‘————–‘);
writeln (‘yaitu p => q benar, di mulai dari pernyataan p agar di dapat pernyataan q.  ‘);
writeln (‘yang termasuk bukti langsung adalah modus ponen, modus tollens, dan silogisme’);
garis;
end;
‘4’:selesai;
else
clrscr;
writeln(‘mata anda sudah rabun, lihat baik-baik….!!!!’);
end;
writeln(‘kembali ke menu?(y/t)’);readln(lagi);
until lagi=’t’;
end.

________________________________________________________

tugas 4  (if. case of, procedure, while do, repeat until, for to do, array, fungsi)

program bukti_dalam_matematika;
uses wincrt;

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

procedure selesai;
begin
clrscr;
writeln(‘terima kasih anda sudah menggunakan program saya’);
writeln(‘blog  : http://www.asnakhudin.wordpress.com’);
end;

var
pilih,lagi:char;
pilih1:char;
depan,belakang:string;
n,i:integer;
x:array [1..100] of integer;

function debel(var de:string; bel:string):string;
begin
debel:=de+bel;
end;

procedure lainnya;
begin
clrscr;
writeln(‘[1] program array’);
writeln(‘[2] program nama’);
garis;
write(‘pilih no: ‘);readln(pilih1);
case pilih1 of
‘1’:begin
clrscr;
writeln(‘PROGRAM ARRAY’);
garis;
write(‘masukkan jumlah data: ‘);readln(n);
writeln;
for i:= 1 to n do
readln(x[i]);
writeln;
write(‘data yang telah dimasukkan: ‘);
for i:= 1 to n do
write(x[i],’ ‘);
writeln;
garis;
end;
‘2’:begin
clrscr;
writeln(‘PROGRAM NAMA’);
garis;
write(‘masukan nama depan anda    : ‘);readln(depan);
write(‘masukan nama belakang anda : ‘);readln(belakang);
writeln;
writeln(‘nama lengkap anda adalah : ‘,debel(depan,belakang));
garis;
end;
else
clrscr;
writeln(‘pilihannya dari 1-2, pilihan yang anda masukan SALAH’);
end;
end;

begin
repeat
clrscr;
writeln(‘nama        : asnakhudin’);
writeln(‘smstr/kls   : 3/D’);
writeln(‘materi      : bukti dalam matematika’);
garis;
writeln(‘[1] definisi’);
writeln(‘[2] bukti tak langsung’);
writeln(‘[3] bukti langsung’);
writeln(‘[4] lainnya’);
writeln(‘[5] selesai’);
garis;
write(‘pilih no: ‘);readln(pilih);
case pilih of
‘1’:begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘BUKTI DALAM MATEMATIKA yaitu argumentasi yang menunjukan suatu’);
writeln(‘pernyataan p => q selalu bernilai benar ‘);
garis;
end;
‘2’:begin
clrscr;
writeln(‘BUKTI TAK LANGSUNG’);
garis;
writeln(‘bukti tak langsung dibagi 2 macam; yaitu: ‘);
garis;
writeln(‘a. bukti tak langsung dengan koontradiksi ‘);
writeln(‘   yaitu membuktikan p => q dengan mengandaikan ~ q benar kemudian’);
writeln(‘   dilanjutkan p benar atau q haruslah benar ‘);
writeln;
writeln(‘b. bukti tak langsung dengan kontraposisi ‘);
writeln(‘   yaitu membuktikan p ==> q benar dengan mengandaikan ~ q benar’);
writeln(‘   kemudian ~p benar sehingga ~p => ~p. karena p => q = ~q => ~p benar , ‘);
writeln(‘   p => q juga benar, sehingga p => q benar di buktikan dengan kontraposisi’);
garis;
end;
‘3’:begin
clrscr;
writeln(‘BUKTI LANGSUNG ‘);
garis;
writeln(‘yaitu p => q benar, di mulai dari pernyataan p agar di dapat’);
writeln(‘pernyataan q.  yang termasuk bukti langsung adalah modus ponen,’);
writeln(‘modus tollens, dan silogisme.’);
garis;
end;
‘4’:lainnya;
‘5’:selesai;
else
clrscr;
writeln(‘mata anda sudah rabun, lihat baik-baik….!!!!’);
end;
writeln;
write(‘kembali ke menu?(y/t): ‘);readln(lagi);
lagi:=upcase(lagi);
until lagi=’T’;
clrscr;
writeln(‘terima kasih anda sudah menggunakan program saya’);
writeln(‘blog  : http://www.asnakhudin.wordpress.com’);
end.