Sistem Persamaan Linear dan kuadrat (tugas 4)

Tinggalkan komentar

program funcDanproc_dan_PesanLokasiArray ;

uses wincrt;

var maju :longint ;

var nama,nama1,nama2,nama3 :string;

var angka,angka1, angka2, angka3: longint;

var sistempersmaanlinierdankudratberbentukimplisit : array [1..7] of longint ;

var i:longint;

 

 

procedure garis;

begin

writeln (‘!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’);

end;

procedure garis2;

begin

writeln (‘++++++++++++++++++++++++++++++’);

end;

procedure implisit(var a:longint);

function hasil (var a:longint) : longint ;

begin

hasil :=angka*a*a+angka2*a+angka3;

end;

begin

for i :=1 to 7 do

end;

 

begin

writeln (‘SPLK dengan Bagian Kuadrat Berbentuk Implisit’);

readln ;

writeln (‘Manakah di antara persamaan berikut yang merupakan bagian linear atau kuadrat’);

readln ;

writeln (‘y = ax + b, bagian linear atau kuadrat ? ‘);

writeln (‘Jawab.’);

readln (nama1);

if (nama1=’bagian linear’) or (nama1=’linear’) then

begin

writeln (‘Anda cukup cerdas’);

end

else

begin

writeln (‘Anda kurang cerdas’);

end ;

readln ;

writeln (‘y = px^2 + qx + r, bagian linear atau kuadrat ? ‘);

writeln (‘Jawab.’);

readln (nama2);

if (nama2=’bagian kuadrat’) or (nama2=’kuadrat’) then

begin

writeln (‘Anda cukup hebat ya’);

end

else

begin

writeln (‘ich, ternyata Anda kurang hebat’);

end ;

readln ;

writeln (‘right. Kita langsung saja ke contoh’);

readln ;

clrscr ;

writeln (‘Misalkan ada persamaan : ‘);

writeln (‘y = x + 16’);

writeln (‘y = x^2’);

writeln (‘maka untuk menyelesaikannya yaitu dengan cara mensubstitusi’);

writeln (‘bagian linear ke bagian kuadrat yang diperoleh’);

readln ;

writeln (‘x + 16 = x^2?’);

writeln (‘x^2 – x – 16 = 0?’);

readln ;

writeln (‘maka didapat x = -1 atau x = 4?’);

writeln (‘maka didapat x = -1 atau x = 4’);

writeln (‘kemudian substitusi x ke persamaan y = x + 16’);

readln ;

writeln (‘jadi himpunan penelesaian SPLK itu adalah {(-1,15),(4,20)})’);

write (‘benar atau tidak ? ‘);

readln (nama);

if (nama=’benar’) then

begin

writeln (‘Terima kasih telah mempelajari materi SPLK berbentuk implisit’);

end

else

begin

writeln (‘Silahkan Anda ulangi dari bagian awal lagi’);

end;

end.

 

tugaz array

Tinggalkan komentar

program funcDanproc_pesanlokasiArray;

uses wincrt;

var input,input2:string;

var bil1 : string ;

var nama, nama1, nama2, hasil : string ;

var  p,q: boolean ;

var pilih,tanya : char     ;

var bb : array [1..4] of string ;

var i: integer;

 

 

procedure garis;

begin

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

end;

 

procedure garis2;

begin

writeln(‘———————————————————-‘);

end;

 

 

 

 

procedure konjungsi;

begin

clrscr;

writeln(‘OPERASI KONJUNGSI’);

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

write (‘disjungsi p ^ q’);

readln (bil1);

writeln (‘pastikan mengunakan huruf kapital’);

writeln(‘masukan nilai kebenaran p=:’);

readln;

writeln(‘masukan nilai kebenaran q= :’);

readln;

readln (nama);

 

 

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

writeln (‘maka p ^ q adalah S’)

 

end;

 

 

 

 

procedure disjungsi;

var bil1 : string ;

var nama, nama1, nama2, hasil : string ;

var  p,q: boolean ;

begin

clrscr;

writeln(‘OPERASI DISJUNGSI’);

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

write (‘disjungsi p v q’);

readln (bil1);

writeln (‘pastikan mengunakan huruf kapital’);

writeln(‘masukan nilai kebenaran p=:’);

readln;

writeln(‘masukan nilai kebenaran q= :’);

readln;

readln (nama);

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

writeln (‘maka p v q adalah B’);

 

end;

 

procedure implikasi;

var bil1 : string ;

var nama, nama1, nama2, hasil : string ;

var  p,q: boolean ;

begin

clrscr;

writeln(‘OPERASI IMPLIKASI’);

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

write (‘impilikasi p -> q’);

readln (bil1);

writeln (‘pastikan mengunakan huruf kapital’);

writeln(‘masukan nilai kebenaran p=:’);

readln;

writeln(‘masukan nilai kebenaran q= :’);

readln;

readln (nama);

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

writeln (‘maka p -> q adalah B’);

 

end;

 

procedure biimplikasi;

var bil1 : string ;

var nama, nama1, nama2, hasil : string ;

var  p,q: boolean ;

begin

clrscr;

writeln(‘OPERASI BIIMPILIKASI’);

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

write (‘disjungsi p <–> q’);

readln (bil1);

writeln (‘pastikan mengunakan huruf kapital’);

writeln(‘masukan nilai kebenaran p=:’);

readln;

writeln(‘masukan nilai kebenaran q= :’);

readln;

readln (nama);

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

writeln (‘maka p <–? q adalah B’);

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

writeln (‘maka p <–> q adalah S’);

 

end;

 

 

procedure kk (var b : integer ) ;

var i : integer;

begin

for i:= 1 to 4 do

end;

 

begin

writeln (‘ffff’,i,’hhhh’);

 

 

 

 

 

begin

repeat

clrscr;

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

writeln(‘program logika matematika’);

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

writeln(‘1.konjungsi’);

writeln(‘2.disjungsi’);

writeln(‘3.imlikasi’);

writeln(‘4.biimplikasi’);

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

write(‘masukkan pilihan anda:….’);

readln(pilih) ;

 

case pilih of

‘1’:konjungsi;

‘2’:disjungsi;

‘3’:implikasi;

‘4’:biimplikasi;

else

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

writeln;

end;

write(‘Anda Masih Mau Lanjut [TEKAN y/t]:?’);readln(tanya);

until tanya=’t’;

clrscr;

writeln(‘TERIMA KASIH ANDA TELAH MEMAKAI PROGRAM KAMI’);

writeln (‘Frena Fardillah’);

writeln(‘siinadille@yahoo.com’);

writeln(‘sampai jumpa’);

end;

 

end.

tugas 4 sistem persamaan dua variabel

Tinggalkan komentar

program funcDanproc_dan_PesanLokasiArray ;

uses wincrt;

var lanjut :longint ;

var nama :string;

var a1,a2,b1,b2,c1,c2,nilai1,nilai2,nilai: longint;

var hasil1,hasil2,hitung,bagi :real;

var persamaan :array [1..2] of longint;

var i:longint;

var mau: byte;

var x,y,z:integer;

var tanya,pilih: char;

keterangan : string[4];

 

procedure garis1;

begin

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

end;

procedure garis2;

begin

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

end;

procedure menghilangkan_variabel;

var a1,a2b1,b2,c1,c2,hasil1,hasil2,hasil3,hasil4,hasil5,hasil6,hasil7,hasil8,hasil9,nilai,hasil10,hasil11,hasil13:integer;

var hasi14,hasil16,hasil17,hasil18,hasil12,hasil15:integer;

var x, y, z:Byte;

function hasil (var a:longint) : longint ;

begin

end;

begin

for i :=1 to 2 do

begin

garis2 ;

writeln (‘OPERASI ELIMINASI’);

garis2 ;

write(‘masukkan nilai a :’);

readln(a1);

readln(a2);

write(‘masukkan nilai b : ‘);

readln(b1);

readln(b2);

write(‘masukkan nilai c : ‘);

readln(c1);

readln(c2);

write(‘Masukan persamaan ke-‘,i,’adalah:’,a1,’x + ‘,b1,’y =’,c1);

writeln(‘Masukan persamaan ke-‘,i,’adalah:’,a2,’x + ‘,b2,’y =’,c2);

readln(nama[i]);

end;

begin

write(‘Masukan persamaan yang anda mau:’);

readln(mau);

writeln (‘persamaan ke-‘,mau,’adalah :’,a1,’x + ‘,b1,’y =’,c1,’persamaan ke-‘,mau,’adalah:’,a1,’,x + ‘,b1,’y =’,c1,nama[mau]);

readln(nama[mau]);

writeln (‘masukan persamaan ke-‘,i,’adalah:’,a2,’*’,(-c2),’-‘,b2,’*’,(-c1) ,’bagi’, a1,’*’,a1,’-‘,b1,’*’,b1,’=’);

readln(nama[i]);

writeln(‘maka hasil1=’,a2,’*’,(-c2),’=’);

hasil1 :=a2*(-c2);writeln(hasil1);

writeln(‘maka hasil2=’,b2,’*’,(-c1),’=’);

hasil2:=b2*(-c1);writeln(hasil2);

writeln(‘,’,hasil1,’-‘,hasil2,’=’);

hasil3:=hasil1-hasil2;writeln(hasil3);

writeln(‘maka hasil4=’, a1,’*’,a1,’=’);

hasil4:=a1*a1;write(hasil4);

writeln(‘maka hasil5=’,b1,’*’,b1,’=’);

hasil5 :=b1*b1;writeln(hasil5);

writeln(‘,’,hasil4,’-‘,hasil5,’=’);

hasil6:=hasil4-hasil5;writeln(hasil6);

writeln(‘maka hasil untuk sumbu x=’,hasil3/hasil6,’=’);

hasil12:=hasil3 DIV hasil6;writeln(hasil12);

writeln (‘masukan persamaan ke-‘,i,’adalah:’,a1,’*’,(-c2),’-‘,b1,’*’,(-c1) ,’bagi’,b1,’*’,b1,’-‘,a1,’*’,a1,’=’);

readln(nama[i]);

writeln(‘maka hasil7=’,a1,’*’,(-c2),’=’ );

hasil7 :=a1*(-c2);writeln(hasil7);

writeln(‘maka hasil8=’,b1,’*’,(-c1),’=’);

hasil8:=b1*(-c1);writeln(hasil8);

writeln(‘,’,hasil7,’-‘,hasil8,’=’);

hasil9:=hasil7-hasil8;writeln(hasil9);

writeln(‘maka hasil10=’, a1,’*’,a1,’=’);

hasil10:=a1*a1;writeln(hasil10);

writeln(‘maka hasil11=’,b1,’*’,b1,’=’);

hasil11 :=b1*b1;writeln(hasil11);

writeln(‘,’,hasil10,’-‘,hasil11,’=’); writeln(hasil13);

writeln(‘maka hasil untuk sumbu y=’,hasil9/hasil13,’=’);

hasil15:=hasil9 DIV hasil13;

writeln(hasil15);

writeln(‘jadi himpunan penyelesaiannya adalah=(‘,hasil12,’,’,hasil15);

writeln(hasil12,hasil16);

end;

end;

procedure perkalian ;

var x, y, z:Byte;

var a1,a2,nilaix,b1,b2, c1,c2:integer;

var hasil1,hasil2,hasil3,hasil4:integer;

function hasil (var a:longint) : longint ;

begin

end;

begin

for i :=1 to 2 do

begin

clrscr;

garis2 ;

writeln (‘OPERASI SUBSTITUSI’);

garis2 ;

write(‘masukkan nilai a :’);

readln(a1);

readln(a2);

write(‘masukkan nilai b : ‘);

readln(b1);

readln(b2);

write(‘masukkan nilai c : ‘);

readln(c1);

readln(c2);

write(‘Masukan persamaan ke-‘,i,’adalah:’,a1,’x + ‘,b1,’y =’,c1);

writeln(‘Masukan persamaan ke-‘,i,’adalah:’,a2,’x + ‘,b2,’y =’,c2);

readln(nama[i]);

end;

write(‘Masukan persamaan yang anda mau:’);

readln(mau);

writeln (‘persamaan ke-‘,mau,’adalah :’,a1,’x + ‘,b1,’y =’,c1,nama[mau]);

readln(nama[mau]);

write (‘Masukkan nilai uji : ‘);

readln (nilai1);

write (‘Maka x^’,a1,’x + ‘,b1,’y =’,c1,’dengan x=’);

write (‘Jika x di substitusi dengan ‘);

writeln (nilaix);

writeln (‘Menjadi’);

write (nilai1);

write (‘^,’,a1,’x’);

write (‘,+’,b1,’y’);

write (‘=’,c1,’,’);

write (nilai1);

readln;

write (‘Dan hasilnya adalah:’);

hasil1:=c1+nilai1-b1;

writeln (hasil1);

readln;

end;

procedure grafik;

var

hasil3,hasil4:real;

bil1,bil2,hasil1,hasil2:integer;

a,b,c,d:real;

pers3,pers4,pers5,pers6,pers7,pers8,pers9:real;

xa,ya,za,pers,pers2:integer;

x1,x2,ci,i,n,dat,tot:integer;

fak:longint;

angka:integer;

x:array [1..100] of integer;

function hitung(a:integer; n:integer):integer;

var

hasil:integer;

begin

hasil:=1;

hasil:=hasil*a;

hasil1:=hasil;

end;

begin

writeln(‘sistem persamaan dua variabel’);

garis2;

writeln(‘sistem persamaan dua variabel (xa,ya) adalah y=a(x-xa)^2+ya+y’);

garis1;

write(‘masukan xa = ‘);readln(xa);

write(‘masukan ya = ‘);readln(ya);

writeln;

writeln(‘sistem persamaan dua variabel dengan hp (‘,xa,’,’,ya,’)’);

writeln(‘adalah y=a(x-‘,xa,’)^a(y-‘,ya,’)=’);

write(‘masukan  z= ‘);readln(za);

writeln;

writeln(‘subtitusikan titik (‘,xa,’,’,za,’) ke persamaan’);

writeln(za,’=a(x-‘,xa,’)^a(y-‘,ya);

pers:=sqr(xa);

writeln(za,’=a*’,pers,’+’,’^a(y-‘,ya);

pers2:=za-ya;

writeln(pers2,’=a*’,pers);

pers3:=pers2/pers;

writeln(‘a=’,pers3:5:1);

writeln;

writeln(‘maka persamaannya adalah’);

writeln(‘y=’,pers3:5:1,'(x-‘,xa,’)^+’,’a(y-‘,ya);

pers4:=2*xa*pers3;

pers5:=(pers*pers3)+ya;

writeln(‘z=’,pers3:5:1,’x*x -‘,pers4:5:1,’y +’,pers5:5:1);

garis2;

end;

begin

clrscr;

garis1;

writeln(‘PROGRAM PERSAMAAN DUA VARIABEL’);

garis2;

writeln(‘1.eliminasi’);

writeln(‘2.substitusi’);

writeln(‘3.grafik’);

garis2;

write(‘masukan pilihan anda:…’);

readln(pilih);

case pilih of

‘1’:menghilangkan_variabel;

‘2’:perkalian;

‘3’:grafik;

else

writeln;

writeln(‘Pilih sesuai menu dund!!!’);

writeln(‘oke…………oke……….^^!!!!!!!’);

end;

write (‘Anda Masih Mau Lanjut untuk belajar lagi[TEKAN o/e]:….’);

readln (tanya);

clrscr;

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

writeln(‘martinad43@yahoo.com’);

writeln(‘sampai jumpa’);

garis1;

writeln(‘ASALAmualaikum’);

garis2;

writeln(‘NAMA     : dina martina’);

writeln(‘SMT/KLS  : 3/D’);

writeln(‘NIM      : 2225092234’);

writeln(‘MATERI  :SISTEM PERSAMAAN DUA VARIABEL ‘);

 

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

logika matematika ( tugas 4_novri irawan)

Tinggalkan komentar

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

program logika_matematika;
uses wincrt;

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

var
menu,lagi:char;
menu1,menu2,menu3,menu4:char;
lagi1,lagi2,lagi3,lagi4,lagi5,lagi6:char;
per_1,per_2:string;
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 konjungsi;
begin
repeat
clrscr;
writeln(‘KONJUNGSI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN KONJUNGSI’);
writeln(‘3 PROGRAM KONJUNGSI’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu1);
case menu1 of
‘1’:begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Konjungsi adalah pernyataan majemuk dengan penghubung “dan”‘);
writeln(‘yang dilambangkan dengan “n”.’);
writeln(‘konjungsi “p dan q” dilambangkan dengan “p n q”‘);
garis;
end;
‘2’:begin
clrscr;
writeln(‘TABEL KEBENARAN KONJUNGSI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                  P n Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
end;
‘3’:begin
clrscr;
writeln(‘PROGRAM KONJUNGSI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) then
writeln(‘maka konjungsinya bernilai: BENAR’)
else
writeln(‘maka konjungsinya bernilai: SALAH’);
writeln;
end;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
end;
writeln;
write(‘kembali?(y/t): ‘);readln(lagi1);
lagi1:=upcase(lagi1);
until lagi1=’T’;
end;

procedure disjungsi;
begin
repeat
clrscr;
writeln(‘DISJUNGSI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN DISJUNGSI’);
writeln(‘3 PROGRAM DISJUNGSI’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu2);
case menu2 of
‘1’:begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Disjungsi adalah pernyataan majemuk dengan kata penghubung “atau”‘);
writeln(‘yang dilambangkan dengan “V”‘);
writeln(‘disjungsi “p atau q” dilambangkan dengan “p V q”‘);
garis;
end;
‘2’:begin
clrscr;
writeln(‘TABEL KEBENARAN DISJUNGSI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                  P V Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    B’);
writeln(‘S      B                    B’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
end;
‘3’:begin
clrscr;
writeln(‘PROGRAM DISJUNGSI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’S’) and (per_2=’S’) then
writeln(‘maka disjungsinya bernilai: SALAH’)
else
writeln(‘maka disjungsinya bernilai: BENAR’);
end;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
end;
writeln;
write(‘kembali?(y/t): ‘);readln(lagi2);
lagi2:=upcase(lagi2);
until lagi2=’T’;
end;

procedure implikasi;
begin
repeat
clrscr;
writeln(‘IMPLIKASI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN IMPLIKASI’);
writeln(‘3 PROGRAM IMPLIKASI’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu3);
case menu3 of
‘1’:begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Implikasi atau pernyataan bersyarat adalah suatu pernyataan majemuk’);
writeln(‘dengan penghubung kata “jika…maka”‘);
writeln(‘yang dilambangkan dengan “=>”‘);
writeln(‘implikasi “jika p maka q” dilambangkan dengan “p=>q”‘);
garis;
end;
‘2’:begin
clrscr;
writeln(‘TABEL KEBENARAN IMPLIKASI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                   P=>Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    B’);
writeln(‘S      S                    B’);
writeln(‘——————————-‘);
end;
‘3’:begin
writeln(‘PROGRAM IMPLIKASI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’S’) then
writeln(‘maka implikasinya bernilai: SALAH’)
else
writeln(‘maka implikasinya bernilai: BENAR’);
end;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
writeln;
end;
write(‘kembali?(y/t): ‘);readln(lagi3);
lagi3:=upcase(lagi3);
until lagi3=’T’;
end;

procedure biimplikasi;
begin
repeat
clrscr;
writeln(‘BIIMPLIKASI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN BIIMPLIKASI’);
writeln(‘3 PROGRAM BIIMPLIKASI’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu4);
case menu4 of
‘1’:begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Biimplikasi atau implikasi dua arah adalah pernyataan majemuk’);
writeln(‘yang dihubungkan dengan kata-kata “…jika dan hanya jika…”‘);
writeln(‘yang dilambangkan dengan “<=>”‘);
writeln(‘biimplikasi “p jika dan hanya jika q” dilambangkan dengan “p<=>q”‘);
garis;
end;
‘2’:begin
clrscr;
writeln(‘TABEL KEBENARAN BIIMPLIKASI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                  P<=>Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    B’);
writeln(‘——————————-‘);
end;
‘3’:begin
clrscr;
writeln(‘PROGRAM BIIMPLIKASI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) or (per_1=’S’) and (per_2=’S’) then
writeln(‘maka biimplikasinya bernilai: BENAR’)
else
writeln(‘maka biimplikasinya bernilai: SALAH’);
end;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
writeln;
end;
write(‘kembali?(y/t): ‘);readln(lagi4);
lagi4:=upcase(lagi4);
until lagi4=’T’;
end;

procedure prog_array;
begin
clrscr;
writeln(‘ROGRAM 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;

procedure prog_nama;
begin
repeat
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),’ ‘);
writeln;
write(‘kembali?(y/t): ‘);readln(lagi6);
lagi6:=upcase(lagi6);
until lagi6=’T’;
end;

procedure selesai;
begin
clrscr;
writeln(‘TERIMA KASIH TELAH MENGGUNAKAN PROGRAM SAYA’);
garis;
writeln(‘nama         : novri irawan’);
writeln(‘smstr/kelas  : III/D’);
writeln(‘nim          : 2225092262′);
writeln(’email        : novri_irawan@yahoo.com’);
writeln(‘website      : http://www.novriirawan.wordpress.com&#8217;);
garis;
end;

begin
lagi:=’y’;
while (lagi=’y’) or (lagi=’Y’) do
begin
clrscr;
writeln(‘PROGRAM LOGIKA MATEMATIKA’);
garis;
writeln(‘1 KONJUNGSI’);
writeln(‘2 DISJUNGSI’);
writeln(‘3 IMPLIKASI’);
writeln(‘4 BIIMPLIKASI’);
writeln(‘5 PROGRAM ARRAY’);
writeln(‘6 PROGRAM NAMA’);
writeln(‘7 SELESAI’);
garis;
writeln(‘0 EXIT’);
garis;
write(‘pilih no: ‘);readln(menu);
case menu of
‘1’: konjungsi;
‘2’: disjungsi;
‘3’: implikasi;
‘4’: biimplikasi;
‘5’: prog_array;
‘6’: prog_nama;
‘7’: selesai;
‘0’: donewincrt;
else
clrscr;
writeln(‘pilihannya dari 1-6’);
end;
writeln;
write(‘kembali ke menu awal?(y/t): ‘);readln(lagi);
clrscr;
writeln(‘TERIMA KASIH TELAH MENGGUNAKAN PROGRAM SAYA’);
garis;
writeln(‘nama         : novri irawan’);
writeln(‘smstr/kelas  : III/D’);
writeln(‘nim          : 2225092262′);
writeln(’email        : novri_irawan@yahoo.com’);
writeln(‘website      : http://www.novriirawan.wordpress.com&#8217;);
garis;
end;
end.

logika matemaTIKA (TUGAS 3_NOVRI IRAWAN)

Tinggalkan komentar

tugas 3 (if, case of, procedure, repeat until, while do, for to do)

program konjungsi;
uses wincrt;

var
per_1,per_2:string;
lagi,lagi1,menu1:char;
n,i,angka:integer;

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

procedure data;
begin
clrscr;
writeln(‘PROGRAM DATA’);
garis;
write(‘masukan banyak data: ‘);readln(n);
i:=0;
for i:=1 to n do
write(‘data ke-‘,i,’ = ‘);readln(angka);
end;

procedure definisi;
begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Konjungsi adalah pernyataan majemuk dengan penghubung “dan”‘);
writeln(‘yang dilambangkan dengan “n”.’);
writeln(‘konjungsi “p dan q” dilambangkan dengan “p n q”‘);
garis;
end;

procedure tabel;
begin
clrscr;
writeln(‘TABEL KEBENARAN KONJUNGSI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                  P n Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
end;

procedure program_kon;
begin
repeat
clrscr;
writeln(‘PROGRAM KONJUNGSI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) then
writeln(‘maka konjungsinya bernilai: BENAR’)
else
writeln(‘maka konjungsinya bernilai: SALAH’);
writeln;

writeln;
write(‘kembali?(y/t): ‘);readln(lagi1);
lagi1:=upcase(lagi1);
until lagi1=’T’;
end;

begin
lagi:=’y’;
while (lagi=’y’) or (lagi=’Y’) do
begin
clrscr;
writeln(‘nama           : novri irawan’);
writeln(‘nim            : 2225092262’);
writeln(‘smstr/kelas    : 3/D’);
writeln(‘materi         : logika matematika’);
garis;
writeln(‘KONJUNGSI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN KONJUNGSI’);
writeln(‘3 PROGRAM KONJUNGSI’);
writeln(‘4 PROGRAM DATA’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu1);
case menu1 of
‘1’:definisi;
‘2’:tabel;
‘3’:program_kon;
‘4’:data;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
end;
writeln;
write(‘kembali ke menu?(y/t): ‘);readln(lagi);
end;
end.

logika matematika ( tugas 2_novri irawan)

Tinggalkan komentar

tugas 2 (if,  while do)

program konjungsi;
uses wincrt;

var
lagi:char;
per_1,per_2:string;

begin
lagi:=’y’;
while (lagi=’y’) or (lagi=’Y’) do
begin
clrscr;
writeln(‘SELAMAT DATANG DI PROGRAM LOGIKA MATEMATIKA’);
writeln(‘===========================================’);
writeln(‘nama           : novri irawan’);
WRITELN(‘nim            : 2225092262’);
writeln(‘smstr/kelas    : 3/D’);
writeln(‘materi         : logika matematika’);
readln;
clrscr;
writeln(‘KONJUNGSI’);
writeln;
writeln(‘Konjungsi adalah pernyataan majemuk dengan penghubung “dan”‘);
writeln(‘yang dilambangkan dengan “n”.’);
writeln(‘konjungsi “p dan q” dilambangkan dengan “p n q”‘);
readln;
writeln(‘TABEL KEBENARAN KONJUNGSI’);
writeln(‘——————————-‘);
writeln(‘P      Q                  P n Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
readln;
clrscr;
writeln(‘PROGRAM KONJUNGSI’);
writeln;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
writeln;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) then
writeln(‘maka konjungsinya bernilai: BENAR’)
else
writeln(‘maka konjungsinya bernilai: SALAH’);
writeln;
write(‘kembali ke menu?(y/t): ‘);readln(lagi);
end;
end.

logika matematika(tugas 1_novri irawan)

Tinggalkan komentar

tugas 1 (if then)

program konjungsi;
uses wincrt;

var
per_1,per_2:string;

begin
writeln(‘SELAMAT DATANG DI PROGRAM LOGIKA MATEMATIKA’);
writeln(‘===========================================’);
writeln(‘nama           : novri irawan’);
writeln(‘nim            : 2225092262’);
writeln(‘smstr/kelas    : 3/D’);
writeln(‘materi         : logika matematika’);
readln;
clrscr;
writeln(‘KONJUNGSI’);
writeln;
writeln(‘Konjungsi adalah pernyataan majemuk dengan penghubung “dan”‘);
writeln(‘yang dilambangkan dengan “n”.’);
writeln(‘konjungsi “p dan q” dilambangkan dengan “p n q”‘);
readln;
writeln(‘TABEL KEBENARAN KONJUNGSI’);
writeln(‘——————————-‘);
writeln(‘P      Q                  P n Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
readln;
clrscr;
writeln(‘PROGRAM KONJUNGSI’);
writeln;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
writeln;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) then
writeln(‘maka konjungsinya bernilai: BENAR’)
else
writeln(‘maka konjungsinya bernilai: SALAH’);
end.

________________________________________________________________________________________________

tugas 2 (if then, case of, procedure, while do)

program konjungsi;
uses wincrt;

var
lagi:char;
per_1,per_2:string;

begin
lagi:=’y’;
while (lagi=’y’) or (lagi=’Y’) do
begin
clrscr;
writeln(‘SELAMAT DATANG DI PROGRAM LOGIKA MATEMATIKA’);
writeln(‘===========================================’);
writeln(‘nama           : novri irawan’);
WRITELN(‘nim            : 2225092262’);
writeln(‘smstr/kelas    : 3/D’);
writeln(‘materi         : logika matematika’);
readln;
clrscr;
writeln(‘KONJUNGSI’);
writeln;
writeln(‘Konjungsi adalah pernyataan majemuk dengan penghubung “dan”‘);
writeln(‘yang dilambangkan dengan “n”.’);
writeln(‘konjungsi “p dan q” dilambangkan dengan “p n q”‘);
readln;
writeln(‘TABEL KEBENARAN KONJUNGSI’);
writeln(‘——————————-‘);
writeln(‘P      Q                  P n Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
readln;
clrscr;
writeln(‘PROGRAM KONJUNGSI’);
writeln;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
writeln;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) then
writeln(‘maka konjungsinya bernilai: BENAR’)
else
writeln(‘maka konjungsinya bernilai: SALAH’);
writeln;
write(‘kembali ke menu?(y/t): ‘);readln(lagi);
end;
end.

_________________________________________________________________________________________________

tugas 3 ( if, case of, procedure, while do, repeat until, for to do)

program konjungsi;
uses wincrt;

var
per_1,per_2:string;
lagi,lagi1,menu1:char;
n,i,angka:integer;

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

procedure data;
begin
clrscr;
writeln(‘PROGRAM DATA’);
garis;
write(‘masukan banyak data: ‘);readln(n);
i:=0;
for i:=1 to n do
write(‘data ke-‘,i,’ = ‘);readln(angka);
end;

procedure definisi;
begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Konjungsi adalah pernyataan majemuk dengan penghubung “dan”‘);
writeln(‘yang dilambangkan dengan “n”.’);
writeln(‘konjungsi “p dan q” dilambangkan dengan “p n q”‘);
garis;
end;

procedure tabel;
begin
clrscr;
writeln(‘TABEL KEBENARAN KONJUNGSI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                  P n Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
end;

procedure program_kon;
begin
repeat
clrscr;
writeln(‘PROGRAM KONJUNGSI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) then
writeln(‘maka konjungsinya bernilai: BENAR’)
else
writeln(‘maka konjungsinya bernilai: SALAH’);
writeln;

writeln;
write(‘kembali?(y/t): ‘);readln(lagi1);
lagi1:=upcase(lagi1);
until lagi1=’T’;
end;

begin
lagi:=’y’;
while (lagi=’y’) or (lagi=’Y’) do
begin
clrscr;
writeln(‘nama           : novri irawan’);
writeln(‘nim            : 2225092262’);
writeln(‘smstr/kelas    : 3/D’);
writeln(‘materi         : logika matematika’);
garis;
writeln(‘KONJUNGSI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN KONJUNGSI’);
writeln(‘3 PROGRAM KONJUNGSI’);
writeln(‘4 PROGRAM DATA’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu1);
case menu1 of
‘1’:definisi;
‘2’:tabel;
‘3’:program_kon;
‘4’:data;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
end;
writeln;
write(‘kembali ke menu?(y/t): ‘);readln(lagi);
end;
end.

___________________________________________________________________________________________

tuigas 4 (if, case of, procedure, while do, repeat, for to do, fungsi, array)

program logika_matematika;
uses wincrt;

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

var
menu,lagi:char;
menu1,menu2,menu3,menu4:char;
lagi1,lagi2,lagi3,lagi4,lagi5,lagi6:char;
per_1,per_2:string;
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 konjungsi;
begin
repeat
clrscr;
writeln(‘KONJUNGSI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN KONJUNGSI’);
writeln(‘3 PROGRAM KONJUNGSI’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu1);
case menu1 of
‘1’:begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Konjungsi adalah pernyataan majemuk dengan penghubung “dan”‘);
writeln(‘yang dilambangkan dengan “n”.’);
writeln(‘konjungsi “p dan q” dilambangkan dengan “p n q”‘);
garis;
end;
‘2’:begin
clrscr;
writeln(‘TABEL KEBENARAN KONJUNGSI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                  P n Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
end;
‘3’:begin
clrscr;
writeln(‘PROGRAM KONJUNGSI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) then
writeln(‘maka konjungsinya bernilai: BENAR’)
else
writeln(‘maka konjungsinya bernilai: SALAH’);
writeln;
end;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
end;
writeln;
write(‘kembali?(y/t): ‘);readln(lagi1);
lagi1:=upcase(lagi1);
until lagi1=’T’;
end;

procedure disjungsi;
begin
repeat
clrscr;
writeln(‘DISJUNGSI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN DISJUNGSI’);
writeln(‘3 PROGRAM DISJUNGSI’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu2);
case menu2 of
‘1’:begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Disjungsi adalah pernyataan majemuk dengan kata penghubung “atau”‘);
writeln(‘yang dilambangkan dengan “V”‘);
writeln(‘disjungsi “p atau q” dilambangkan dengan “p V q”‘);
garis;
end;
‘2’:begin
clrscr;
writeln(‘TABEL KEBENARAN DISJUNGSI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                  P V Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    B’);
writeln(‘S      B                    B’);
writeln(‘S      S                    S’);
writeln(‘——————————-‘);
end;
‘3’:begin
clrscr;
writeln(‘PROGRAM DISJUNGSI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’S’) and (per_2=’S’) then
writeln(‘maka disjungsinya bernilai: SALAH’)
else
writeln(‘maka disjungsinya bernilai: BENAR’);
end;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
end;
writeln;
write(‘kembali?(y/t): ‘);readln(lagi2);
lagi2:=upcase(lagi2);
until lagi2=’T’;
end;

procedure implikasi;
begin
repeat
clrscr;
writeln(‘IMPLIKASI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN IMPLIKASI’);
writeln(‘3 PROGRAM IMPLIKASI’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu3);
case menu3 of
‘1’:begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Implikasi atau pernyataan bersyarat adalah suatu pernyataan majemuk’);
writeln(‘dengan penghubung kata “jika…maka”‘);
writeln(‘yang dilambangkan dengan “=>”‘);
writeln(‘implikasi “jika p maka q” dilambangkan dengan “p=>q”‘);
garis;
end;
‘2’:begin
clrscr;
writeln(‘TABEL KEBENARAN IMPLIKASI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                   P=>Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    B’);
writeln(‘S      S                    B’);
writeln(‘——————————-‘);
end;
‘3’:begin
writeln(‘PROGRAM IMPLIKASI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’S’) then
writeln(‘maka implikasinya bernilai: SALAH’)
else
writeln(‘maka implikasinya bernilai: BENAR’);
end;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
writeln;
end;
write(‘kembali?(y/t): ‘);readln(lagi3);
lagi3:=upcase(lagi3);
until lagi3=’T’;
end;

procedure biimplikasi;
begin
repeat
clrscr;
writeln(‘BIIMPLIKASI’);
garis;
writeln(‘1 DEFINISI’);
writeln(‘2 TABEL KEBENARAN BIIMPLIKASI’);
writeln(‘3 PROGRAM BIIMPLIKASI’);
garis;
writeln;
write(‘pilih no: ‘);readln(menu4);
case menu4 of
‘1’:begin
clrscr;
writeln(‘DEFINISI’);
garis;
writeln(‘Biimplikasi atau implikasi dua arah adalah pernyataan majemuk’);
writeln(‘yang dihubungkan dengan kata-kata “…jika dan hanya jika…”‘);
writeln(‘yang dilambangkan dengan “<=>”‘);
writeln(‘biimplikasi “p jika dan hanya jika q” dilambangkan dengan “p<=>q”‘);
garis;
end;
‘2’:begin
clrscr;
writeln(‘TABEL KEBENARAN BIIMPLIKASI’);
garis;
writeln(‘——————————-‘);
writeln(‘P      Q                  P<=>Q’);
writeln(‘——————————-‘);
writeln(‘B      B                    B’);
writeln(‘B      S                    S’);
writeln(‘S      B                    S’);
writeln(‘S      S                    B’);
writeln(‘——————————-‘);
end;
‘3’:begin
clrscr;
writeln(‘PROGRAM BIIMPLIKASI’);
garis;
writeln(‘NOTE: tulis pernyataan dengan huruf besar (B/S)’);
garis;
write(‘pernyataan 1 (B/S): ‘);readln(per_1);
write(‘pernyataan 1 (B/S): ‘);readln(per_2);
writeln;
if (per_1=’B’) and (per_2=’B’) or (per_1=’S’) and (per_2=’S’) then
writeln(‘maka biimplikasinya bernilai: BENAR’)
else
writeln(‘maka biimplikasinya bernilai: SALAH’);
end;
else
clrscr;
writeln(‘lihat pilihannya baik-baik’);
writeln;
end;
write(‘kembali?(y/t): ‘);readln(lagi4);
lagi4:=upcase(lagi4);
until lagi4=’T’;
end;

procedure prog_array;
begin
clrscr;
writeln(‘ROGRAM 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;

procedure prog_nama;
begin
repeat
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),’ ‘);
writeln;
write(‘kembali?(y/t): ‘);readln(lagi6);
lagi6:=upcase(lagi6);
until lagi6=’T’;
end;

procedure selesai;
begin
clrscr;
writeln(‘TERIMA KASIH TELAH MENGGUNAKAN PROGRAM SAYA’);
garis;
writeln(‘nama         : novri irawan’);
writeln(‘smstr/kelas  : III/D’);
writeln(‘nim          : 2225092262′);
writeln(’email        : novri_irawan@yahoo.com’);
writeln(‘website      : http://www.novriirawan.wordpress.com&#8217;);
garis;
end;

begin
lagi:=’y’;
while (lagi=’y’) or (lagi=’Y’) do
begin
clrscr;
writeln(‘PROGRAM LOGIKA MATEMATIKA’);
garis;
writeln(‘1 KONJUNGSI’);
writeln(‘2 DISJUNGSI’);
writeln(‘3 IMPLIKASI’);
writeln(‘4 BIIMPLIKASI’);
writeln(‘5 PROGRAM ARRAY’);
writeln(‘6 PROGRAM NAMA’);
writeln(‘7 SELESAI’);
garis;
writeln(‘0 EXIT’);
garis;
write(‘pilih no: ‘);readln(menu);
case menu of
‘1’: konjungsi;
‘2’: disjungsi;
‘3’: implikasi;
‘4’: biimplikasi;
‘5’: prog_array;
‘6’: prog_nama;
‘7’: selesai;
‘0’: donewincrt;
else
clrscr;
writeln(‘pilihannya dari 1-6’);
end;
writeln;
write(‘kembali ke menu awal?(y/t): ‘);readln(lagi);
clrscr;
writeln(‘TERIMA KASIH TELAH MENGGUNAKAN PROGRAM SAYA’);
garis;
writeln(‘nama         : novri irawan’);
writeln(‘smstr/kelas  : III/D’);
writeln(‘nim          : 2225092262′);
writeln(’email        : novri_irawan@yahoo.com’);
writeln(‘website      : http://www.novriirawan.wordpress.com&#8217;);
garis;
end;
end.

 

Older Entries