2014 ~ ABSTRAK KU

· Irisan dua himpunan A dan himpunan B di tulis A Ç B adalah himpunan yang anggotanya terdiri atas anggota A dan sekaligus B di mana kedua anggota tersebut mempunyai nilai yang sama. Dan dapat di notasikan : A Ç B={X|X Î A dan X Î B}.

2. Gabungan

· Gabungan dua himpunan A dan himpunan B di tulis A È B adalah himpunan yang anggotanya terdiri atas anggota A dan B di mana nilai tersebut di gabungkan. Dapat di notasikan : A È B ={X|X Î A dan X Î B}.

3. Difference

· Gambungan dua himpunan A dan himpunan B di tulis A – B adalah himpunan anggotanya terdiri atas anggota A dan B di mana hasilnya akan di gabungkan jika nilai himpunan A dan B terdapat nilai yang sama maka nilai tesebut akan di kurangkan dengan nilai yang sama.

4. Cartesian Product

· Di gunanakan untuk merelasikan sebuah record atau nilai dari himpunan A dan B.

· Di notasikan A x B={(a,b)| a Î A dan b Î B}.

5. Cartesian Product

· Jika A dan B merupakan himpunan berhingga, maka: ½A ´ B½ = ½A½ . ½B½.

· Di gunanakan untuk merelasikan sebuah record atau nilai dari himpunan A dan B.

· Di notasikan A x B={(a,b)| a Î A dan b Î B}.

B. Soal

1. A={X|X Î P, C < 8}

B={10,20,30,…}

Yang ekivalen dengan A = {1,2,3,4,5,6,7}

Dan B = {10,20,30,…} maka A//B

Maka saling lepas karna nilai A dan B tidak ada yang sama.

2. A. Himpunan Kosong

Himpunan kuasa dari himpunan kosong adalah P(Æ) = {Æ}

B. Himpunan {0}

Misalnya A = {1,2}

Himpunan kuasanya A=2^A = {ø,{1},{2},{1,2}}

A = ø, maka 2^A={0}

C. Himpunan {{ø}}

Misalnya

P(A)=2^A

|A|=M

|P(A)|=2^M

Maka

P(A)=> |A|= M => |P(A)|= 2^A

P(ø)=> |A|= 0 => |P(A)|=2⁰=1

{ }=ø |A| = 1 => |P(A)| = 2

P(ø) = {ø}

P {{ø}}= {ø,{ø}}

3. a. A={2,4,6,8} dan B={4,10,14}

A Ç B = {4}

A È B ={2,4,6,8,10,14}

A-B ={2,4,6,8} – {4,10,14}

={2,6,8,14}

b. A={3,5,9} dan B={-2,6}

A Ç B ={tidak terjadi irisan}

A È B ={-2,3,5,6,9}

A – B ={3,5,9} – {-2,6}

={-2,3,5,6,9}

4. A= {1,2,3,4}

B= {a,b,c,d,f}

C= {a,b,n}

A x B x C = { (1,a,a), (1,b,b), (1,c,n), (1,d), (1.f),

(2,a,a), (2,b,b), (2,c,n), (2,d), (2,f),

(3,a,a), (3,b,b), (3,c,n), (3,d), (3,f),

(4,a,a), (4,b,b), (4,c,n), (4,d), (4,f) }

5. A= Himpunan makanan = {s=bakso, g=pecel, n=gado-gado, m=mie ayam, p=sate ayam }

B= Himpunan minuman = {c=es jeruk, t=es teh, d=es dawet, a=es jeruk}

Maka

A={s,g,n,m,p}

B= {c,t,d,a}

|A x B|=|A|.|B|= 5 x 4 = 20 kombinasi makanan dan minuman adalah :

={ (s,c), (s,t), (s,d), (s,a),

(g,c), (g,t), (g,d), (g,a),

(n,c), (n,t), (n,d), (n,a),

(m,c), (m,t), (m,d), (m,a),
(p,c), (p,t), (p,d), (p,a) }

Program menghitung jarak Kota A ke Kota B

11:09 PM No comments

program tes;
uses crt;
var jb,mb,d,v,wt,mt,ist,total:integer;
ya:char;

begin
writeln('MENGHITUNG JAM DARI KOTA A KE KOTA B');
repeat
begin
write('masukan jam berangkat dari kota A ke kota B : ');readln(jb);
write('masukan menit berangkat dari kota A ke kota B : ');readln(mb);
write('masukan jarak dari kota A ke kota B : ');readln(d);
write('masukan kecepatan (km/jam) : ');readln(v);
wt:=0;
ist:=0;
wt:=d div 100;
mt:=(mb*60) div v;
if d div 100 =0 then
begin
ist:=(d div 100)-1;
ist:=ist*15;
end
else
begin
ist:=d div 100;
ist:=ist*15;
end;
wt:=jb+wt;
mt:=mb+mt;
if (ist+mt)>= 60 then
begin
wt:=wt+((ist+mt) div 60);
mt:=(mt+mt) mod 60;
end;
if wt>24 then
total:=wt-24;
end;
writeln('=====================================================');
writeln('waktu tiba di kota B adalah ',total,':',mt);
write('mau coba lagi y/t ? ');readln(ya)
until ya='t';
end.

Program Memecahkan Mata Uang Rupiah

6:47 AM No comments

program memecakan_rupia;
uses crt;
var awal,uang:longint;
ratusribu,limpulrb,duapulrb,sepulrb,limrb,duarb,serb:byte;
limrts,duarts,serts,limpul:byte;
label lagi;

begin
lagi:
writeln('memecakan mata uang dalam pecahan rupia ');
writeln('======================================= ');
write('mesukan jumla uang anda RP= ');readln(uang);
if uang <0 data-blogger-escaped-p="" data-blogger-escaped-then=""> begin
writeln('masukan salah');
goto lagi;
end
else
begin
awal:=uang;
ratusribu:=uang div 100000;uang:=uang mod 100000;
limpulrb:=uang div 50000;uang:=uang mod 50000;
duapulrb:=uang div 20000;uang:=uang mod 20000;
sepulrb:=uang div 10000;uang:=uang mod 10000;
limrb:=uang div 5000;uang:=uang mod 5000;
duarb:=uang div 2000;uang:=uang mod 2000;
serb:=uang div 1000;uang:=uang mod 1000;
limrts:=uang div 500;uang:=uang mod 500;
duarts:=uang div 200;uang:=uang mod 200;
serts:=uang div 100;uang:=uang mod 100;
limpul:=uang div 50;uang:=uang mod 50;
{pecahan}
if ratusribu <>0 then writeln('pecahan seratus ribu ',ratusribu,' lembar');
if limpulrb <>0 then writeln('pecahan limapuluh ribr ',limpulrb,' lembar');
if duapulrb <>0 then writeln('pecahan duapuluh ribu ',duapulrb,' lembar');
if sepulrb <>0 then writeln('pecahan sepuluh ribu ',sepulrb,' lembar');
if limrb <>0 then writeln('pecahan lima ribu ',limrb,' lembar');
if duarb <>0 then writeln('pecahan dua ribu ',duarb,' lembar');
if serb <>0 then writeln('pecahan seribu ',serb,' lembar');
if limrts <>0 then writeln('pecahan limaratus rupiah ',limrts,' lembar');
if duarts <>0 then writeln('pecahan duaratus rupiah ',duarts,' lembar');
if serts <>0 then writeln('pecahan seratus rupiah ',serts,' lembar');
if limpul <>0 then writeln('pecahan limapuluh rupiah ',limpul,' lembar');
end;
end.

HASIL OUTPUT

Silakan di coba.

Tugas Program Dasar

6:33 AM No comments

LAPORAN

PROGRAM DASAR

DI SUSUN OLEH:

ELFRID TICKER TH : 131051075

ANANIAS UMBU LUCKY SABARUA : 131051039

ENGELBERTUS YULIANUS SAE : 131051051

JUFRI IRMANTO PUATIPANNA : 091051077

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNOLOGI INDUSTRI

INSTITUT SAINS & TEKNOLOGI AKPRIND

YOGYAKARTA

2013

1. Variabel

Sekarang kita buat tokoh pakaian. Kita buat buat menggunakan record. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya di banding array. Setelah itu kita masukan elemen yang kita butukan untuk membuat program tokoh pakaian. Masukan elelmen-elemen data jenis, merek, ukuran yang bertipe string, stok, jumter yang bertipe byte dan harga, total, diskon yang bertipe real. Sekarang kita butuh array yang bertipe record. Dan membutukan variabel global yaitu pakaian yang bertipe array, I, n, pilih, k yang bertipe byte dan j yang bertipe real.

2. Procedure tambah pakaian

Sekarang kita menggunakan procedure yang bernama tambah_pakaian, dengan menggunakan variabel x yang bertipe array dengan nama larik. dan menggunakan variabel global yaitu ya yang bertipe char. char adalah tombol yang terdapat pada keyboard, atau lebih lengkapnya sebuah karakter yang terdapat kode. Kita mau menginputkan cuma satu jadi kita memakai repeat until. Selanjutnya memakai inc(n) yang artinya untuk menambah atau memanggil variable yang kita buat pertama. Setelah itu kita memanggil variabel global dan record dengan readln sebagai contohnya readln(pakaian[n].jenis);. Selanjutnya memanggil ya yang bertipe char. Setelah itu kita menggunakan until (ya=’t’) yang artinya jika menekan t maka akan berakhir.

3. Procedure mengisi harga diskon

Selanjutnya mengisi harga diskon dengan menggunakan procedure yang bernama isi_harga_diskon dengan variabel x yang bertipe array dengan nama larik. Dan membutukan variabel global d1 yang bertipe real, d3 yang bertipe byte dan ketemu yang bertipe Boolean. Setelah itu ketemu yang masih bertipe false yang artinya masih salah, melakukan perulangan for i:=1 to n do dan menggunakan kondisi if x[i].diskon=0 then yang artinya jika disk=on bernilai nol kerjakan atan cetak. Setelah itu d3:=i ketemu:=true yang artinya sudah ketemu. Dan melakukan perkondisian if ketemu then jika sudah benar kerjakan pengisian diskon. Selanjutnya mencetak dan menginput harga diskon. Jika sudah di input harga diskonnya maka melakukan pengurangan di harga pakaian tersebut. selanjutnya kita melakukan perkondisian if not ketemu then jika harga diskon sudah di isi semua maka selesai sudah dan mencetak “harga sudah di isi”.

4. Procedure menambah stok

Selanjutnya procedure menambah stok pakaian. Procedure dengan nama tambah_stok dan variabel x yang bertipe array dengan nama larik dan membutukan variabel di dalam procedure yaitu e1 yang bertipe string, ada yang bertipe Boolean dan posisi, tambah yang bertipe byte. selanjutnya mencetak dan menginput merek yang kita inputkan pertama tadi. Setelah itu melakukan perulangan for i:=1 to n do yang artinya kita mau menginputkan hanya satu saja. Setelah itu kita melakukan perkondisian x[i].merek=e1 then jika merek yang kita cari ada di cetak pakaian mana lakukan penambahan stok jika tidak ada maka mencetak “sory e1 tidak ada di daftar’. Setelah kondisinnya booleannya benar maka lakukan penginputan penambahan stok.

Permasalahannya jika kita inputkan tidak sesuai dengan di cetak data maka di melakukan penambahan stok tetapi jika di isi masukan stoknya maka programnya akan eror

5. Procedure penjualan

Selanjutnya procedure penjualan pakaian tanpa mengguanakan variabel hanya menggunakan variabel local saja. Variabelnya jenis1 yang bertipe string, jual dan posisi yang bertipe byte dan ketemu yang bertipe Boolean. Setelah itu kita mecetak dan mengginput merek pakaian yang kita inputkan pertama tadi dengan memanggil variabel local dengan readln. Selanjutnya melakukan perulangan for i:=1 to n do. Setelah itu kita melakukan perulangan if pakaian[i].merek=jenis then jika merek yang kita inputkan ada di cetak maka lakukan penjualan. Setelah itu ketemu bernilai true, mak lakukan penjualan. Selanjutnya melakukan perkondisian, jika pakaian tersebut masih ada stok maka lakukan lakukan penjualan dengan menggurai stok yang ada di cetak pakaian. Jika stok kurang maka akan mencetak “ jenis pakaian tidak ada di daftar stok”.

Pemasalahannya jika ada merek sama maka penjualan tersebut hanya berkurang data yang pertama saja.

6. Procedure cetak stok

Selanjutnya procedur cetak stok barang yang di input. Dengan menggunakan variabel x yang bertipe array dengan nama larik. setelah itu kita melakukan pencetakan. Dan menggunakan perulangan for i:=1 to n do dan with x[i] do. Setelah itu cetaklah yang di input pertama.

7. Procedure cetak penjualan

Selanjutnya procedure cetak penjualan dengan variabel x yang bertipe array dengan menggunakan nama larik. setelah itu kita cetak penjualan dengan menggunakan perulangan for i:=1 to n do dan with x[i] do. Setelah itu cetaklah hasil penjualan tersebut.

8. Program utama

Sekarang program utama. Kita gunakan repeat until karena kita mau mencari sekali saja. Kita ketik clrscr itu fungsinya untuk membersikan data iputan yang kelihatan itu hanya hasil yang kita cari. Setelah itu kita cetak daftar menunya yang sesuai dengan apa yang kita buat di procedure. Setelah di cetak jangan lupa di case of. Case of itu fungsinya digunakan untuk mengontrol statement yang akan dieksekusi dalam program dan hanya dapat menguji kesamaan suatu variabel tertentu dengan nilai yang disajikan, variabel yang diuji hanyalah berupavariabel yang bertipe ( Integer, Boolean, Char, dan byte). . Jangan lupa readln. Readln itu fungsinya untuk memanggil lagi data yang kita buat lagi. Jangan lupa ketik until (pilih=5) itu artinya kalau kita pilih pilihan 7 akan keluar terima kasih.