Laporan Asistensi BAB II Kelompok 3
-
Upload
dodok-penghuni-surga -
Category
Documents
-
view
222 -
download
0
Transcript of Laporan Asistensi BAB II Kelompok 3
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
1/29
PRAKTIKUM KONSEP PEMROGRAMAN KOMPUTER
MODUL II
TIPE DATA DAN STATEMEN KONTROL
Oleh
KELOMPOK 3
Dyah Dwi Puspitaningru !"#$$#%##3
I Ketut Arie& Astana A'i !"#$$#%##$
Ka'e& (ari Merta !"#$$#%##%
Ka'e& Agus Maha)*+ana Dwi P, !"#$$#%##-
Asisten . Ri* /uniyantara Putra
LA0ORATORIUM KOMPUTER
/URUSAN TEKNIK ELEKTRO
1AKULTAS TEKNIK UNI2ERSITAS UDAANA
"#!3
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
2/29
0A0 I2
TIPE DATA DAN STATEMEN KONTROL
$,! Tu+uan
Adapun tujuan dari penggunaan bahasa pemrograman sebagai berikut :
1. Memahami dasar–dasar pemrograman Pascal.
2. Memahami penggunaan statemen control khususnya if… if…else… s!itch.
". Memahami pemilihan tipe data yang digunakan secara efisien.
#. Memahami manipulasi string.
$. Memahami dan bisa membuat program modul – modul yang berbantuk suatu
fungsi.
%. Memahami dan bisa menggunakan passing parameter dalam fungsi dan
prosedur.
$," Tin+auan Pusta&a
&ahasa Pemrograman adalah teknik instruksi standar untuk memerintah
komputer. &ahasa pemrograman ini merupakan suatu himpunan dari aturan
sintaks dan semantik yang dipakai untuk mendefinisikan program komputer.
&ahasa ini memungkinkan seorang programmer dapat menentukan secara persis
data mana yang akan diolah oleh komputer bagaimana data ini akan disimpan
atau diteruskan dan jenis langkah apa yang akan diambil dalam berbagai situasi.
$,"," Penggunaan Stateent K*ntr*l
$,",",! Pernyataan I4
'f digunakan untuk menyeleksi statement. (tatement yang
mengikuti then akan diproses sebaliknya bila kondisi tidak terpenuhi
maka program langsung selesai.
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
3/29
Ga)ar !, listing program menggunakan pernyataan 'f
$,","," Pernyataan I45else
fungsi 'f...else.. digunakan jika suatu kondisi memiliki 2 atau
lebih statement. &ila kondisi pertama terpenuhi maka statement yang
mengikuti then akan diproses tetapi bila kondisi tidak terpenuhi maka
akan dijalankan statement dari else.
Ga)ar ", listing program menggunakan pernyataan 'f else
$,",",3 Pernyataan 6ase
)ase adalah perintah yang memiliki fungsi persis seperti if tapi
dalam bentuk yang lebih sederhana dari if. )ase digunakan untuk
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
4/29
memilih jika terdapat lebih dari 2 kondisi yang setiap kondisi
memerlukan penanganan yang berbeda.
Ga)ar 3, listing program menggunakan pernyataan )ase
$,",3 1un7ti*n 'an Pr*7e'ure
$,",3,! 1un7ti*n
*unction merupakan modul program yang digunakan untuk
menghitung sebuah nilai berdasarkan satu atau beberapa nilai
masukan.
)ontoh Penggunaan *unction :
*unction M'+ ,ab : integer- : integer&egin
'f a / b then M'+ :0 a
lse M'+ :0 bnd
K*'e pr*gra !, isting program function
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
5/29
$,",3," Pr*7e'ure
Procedure adalah serangkaian statemen yang digunakan untuk
memecahkan masalah. Procedure harus dideklarasi terlebih dahulu
sebelum digunakan. Pascal juga menyediakan beberapa prosedur built3
in yang langsung bisa digunakan seperti inc dan dec. Procedure juga
memiliki nama dan parameter. )ontoh Penggunaan Procedure :
P45)674 minimum
8A4 min : integer
&9'+'* a / b ;+ min :0 a ( min :0 b
'* c / min ;+ min :0 c
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
6/29
Mencari 9aji otal :
9aji otal : 9aji pokok @ unjangan jabatan @ embur
unjangan jabatan hanya dimiliki oleh karya!an yang jabatannya lebih
tinggi. Meskipun lembur kerja karya!an yang jabatannya lebih tinggi tidak
akan mendapatkan gaji tambahan karena sudah memiliki tunjangan jabatan.
7pah lembur merupakan gaji tambahan yang didapatkan jika para karya!an
yang tidak memiliki tunjangan jabatan melakukan kerja lembur.
$,",% K*n8ersi Satuan Me*ry
4umus diba!ah ini digunakan untuk mengkonersi satuan memory :
1. &yte ke B& 0 &yte C1>2#
2. &yte ke M& 0 &yte C,1>2#D1>2#-". &yte ke 9& 0 &yte C,1>2#D1>2#D1>2#-
#. B& ke &yte 0 B&D1>2#
$. B& ke M& 0 B&C1>2#%. B& ke 9& 0 B&C,1>2#D1>2#-
E. M& ke &yte 0 M&D,1>2#D1>2#-F. M& ke B& 0 M&D1>2#
G. M& ke 9& 0 M&C1>2#1>. 9& ke &yte 0 9&D,1>2#D1>2#D1>2#-
11. 9& ke B& 0 9&D,1>2#D1>2#-
12. 9& ke M& 0 9&D1>2#
6engan menggunakan rumus3rumas di atas maka kita dapat mencari nilai
konersi yang kita inginkan.
$,3 Pe)ahasan 'an Analisa
$,3,! Pr*gra Ga+i Karyawan
$,3,!,! Pen+elasan Pr*ses 'ari S*al
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
7/29
7ntuk menyelesaikan program gaji karya!an ,9aji otal- digunakan
struktur penyeleksian 'f….else. ipe data yang digunakan adalah : string
integer dan real.
1. 'nput yang dimasukkan adalah nama pilihan jabatan dan jam kerja.
2. Pilihan diseleksi dengan menggunakkan statement 'f…else
". Penyeleksi 'nput
Pada input jabatan 0 1. Prosesnya adalah menentukan gaji total H5ffice &oyI.
Pada input jabatan 0 2. Prosesnya adalah menentukan gaji total H(ecurityI
Pada input jabatan 0 ". Prosesnya adalah menentukan gaji total H(taffI
Pada input jabatan 0 #. Prosesnya adalah menentukan gaji total H(enior (taffI Pada input jabatan 0 $. Prosesnya adalah menentukan gaji total H(uperisorI
Pada input jabatan 0 %. Prosesnya adalah menentukan gaji total HAssiten
ManagerI Pada input jabatan 0 E. Prosesnya adalah menentukan gaji total HManagerI
Pada input jabatan 0 F. Prosesnya adalah menentukan gaji total H9eneral
ManagerI. Pada input pilihan jabatan J F maka akan muncul Kinput salahL.
$,3,!," Pen+elasan Alg*rita
Penjelasan algoritma program gaji karya!an adalah sebagai berikut :
1. Mulai.2. Masukkan ariable pilihan.
". Masukkan fungsi alidasi untuk input nilainya fungsi ini berfungsi
agar saat penginputan nilai inputan yang dimasukkan haruslah kurang
dari atau sama dengan F. (ehingga jika inputan angka lebih dari yangditentukan maka program tidak akan berjalan.
#. Penyeleksian data sesuai kriteria yang telah ditentukan. =ika pilihan 0
1 menentukan gaji pokok jabatan H5ffice &oyI. Pilihan 0 2
menentukan gaji pokok jabatan H(ecurityI. Pilihan 0 " menentukan
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
8/29
gaji pokok jabatan H(taffI. Pilihan 0 menentukan gaji pokok jabatan
H(enior (taffI. Pilihan 0 $ menentukan gaji pokok jabatan
H(uperisorI. Pilihan 0 % menentukan gaji pokok jabatan HAssisten
ManagerI. Pilihan 0 E menentukan gaji pokok jabatan HManagerI.
Pilihan 0 F menentukan gaji pokok jabatan H9eneral ManagerI. =ika
pilihan telah ditentukan maka akan diketahui tunjangannya.
$. Bemudian lakukan pemberian nilai jam kerja yang nantinya akan
digunakan untuk menentukan upah lembur.
%. 5utput akan menampilkan hasil akhir berupa gaji total berdasarkan
gaji pokok tunjangan dan upah lembur.
E. (elesai.
$,3,!,3 Listing Pr*gra Ga+i Karyawan
program gaji_karyawan;uses wincrt;var
jabatan, jamkerja, jamlembur,t: integer;upahlembur, gajitotal : real;nama : char;
beginwriteln(' KEL!"K # '$;writeln(' _________________________________ '$; writeln;
writeln('"ilihan %abatan : '$;writeln('& ce )oy'$;writeln('* +ecurity'$;writeln('# +ta'$;writeln('- +enior +ta'$;writeln('. +upervisor'$;writeln('/ 0sissten !anager'$;
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
9/29
writeln('1 !anager'$;writeln('2 3eneral !anager'$;writeln;write('!asukkan jabatan an4a : '$; rea4(jabatan$;writeln;
i5 jabatan 6 & then begin writeln(' 3aji '$; writeln(' ce )oy '$; writeln(' _________________________________'$;writeln; write('7ama 0n4a 6 '$; rea4ln(nama$; writeln; write('%am Kerja 6 '$; rea4ln(jamkerja$; jamlembur:6jamkerja8*-9; gp :6 99999; writeln('%am Lembur 6 ',jamlembur$; i5 jamlembur 6 -9 then upahlembur:6(gp
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
10/29
write('7ama 0n4a 6 '$; rea4ln(nama$;writeln; write('%am Kerja 6 '$; rea4ln(jamkerja$; jamlembur:6jamkerja8*-9; gp :6 &*.9999; writeln('%am Lembur 6 ',jamlembur$; i5 jamlembur 6 -9 then upahlembur:6(gp
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
11/29
writeln('3aji @otal 6 ?p ',gajitotal:9:9$;en4 else;
i5 jabatan 6 / then begin writeln(' 3aji '$; writeln(' 0sissten !anager '$; writeln(' ______________________________ '$;writeln; write('7ama 0n4a 6 '$; rea4ln(nama$;writeln; writeln('@unjangan 6 ?p &*.9999'$; gajitotal:6#1.9999A&*.9999; writeln('3aji @otal 6 ?p ',gajitotal:9:9$;
en4 else;
i5 jabatan 6 1 then begin writeln(' 3aji '$; writeln(' !anager '$; writeln(' _________________________________ '$;writeln; write('7ama 0n4a 6 '$; rea4ln(nama$;writeln; writeln('@unjangan 6 ?p *999999'$; gajitotal:6-999999A*999999; writeln('3aji @otal 6 ?p ',gajitotal:9:9$;
en4 else;
i5 jabatan 6 2 then begin writeln(' 3aji '$; writeln(' 3eneral !anager '$;
writeln(' _________________________________ '$;writeln; write('7ama 0n4a 6 '$; rea4ln(nama$;writeln; writeln('@unjangan 6 ?p *999999'$; gajitotal:6999999A*999999; writeln('3aji @otal 6 ?p ',gajitotal:9:9$; en4 else;
i5 jabatan 2 then writeln ('input salah'$; en4
K*'e Pr*gra 3. program gaji karya!an
$,3,!,$ Tra7ing Pr*gra Ga+i Karyawan
Input .
Pilihan =abatan : F
Pr*ses .
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
12/29
+ama Anda : ;ari
unjangan : 2>>>>>>
9ajipokok : G>>>>>>
9ajitotal : gajipokok @ tunjangan
Output .
+ama : ;ari
unjangan : 4p 2>>>>>>
9aji otal : 4p 11>>>>>>
$,3,!,% 1l*w7hart Pr*gra Ga+i Karyawan
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
13/29
Ga)ar $, flo!chart program gaji karya!an
$,3," Pr*gra K*n8ersi Satuan Me*ri
$,3,",! Pen+elasan Pr*ses 'ari S*al
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
14/29
Program konersi memori menggunakan statement 'f..else.
ipe data yang digunakan adalah : string integer dan real.
1. 'nput yang dimasukkan berupa pilihan memori yang akan di
konersi serta nilai dari memori yang diinput.
2. Penyeleksian pilihan dengan menggunakkan struktur if..else.
Pada program konersi ini terdapat fungsi alidasi huruf agar
input tidak huruf dan alidasi angka agar input tidak melebihiketentuan.
". Penyeleksi input : 'nput diseleksi terhadap alidasi huruf. =ika input 0 huruf
maka akan muncul Kinput harus angkaL
Pada 0 1. Prosesnya adalah mengkonersi byte menjadi
kilobyte megabyte dan gigabyte. Pada input 0 2. Prosesnya adalah mengkonersi kilobyte
menjadi byte megabyte dan gigabyte. Pada input 0 ". Prosesnya adalah mengkonersi megabyte
menjadi byte kilobyte dan gigabyte. Pada input 0 #. Prosesnya adalah mengkonersi gigabyte
menjadi byte kilobyte dan megabyte. Pada input lebih dari # maka akan muncul Kinput tidak alid L
$,3,"," Pen+elasan Alg*rita
Penjelasan algoritma untuk program konersi memory adalah :
1. Mulai.
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
15/29
2. Masukkan ariable pilihan.
". Masukkan fungsi alidasi untuk penginputan nilainya fungsi
ini berfungsi agar saat penginputan nilai inputan yang
dimasukkan haruslah berupa angka. (ehingga jika inputan nilai
berupa huruf atau angka lebih dari ketentuan maka program
tidak akan berjalan.
#. Bemudian lakukan penyeleksian data sesuai kriteria yang telah
ditentukan. =ika input 0 1 yang dikonersikan adalah memory
byte. 'nput 0 2 yang dikonersikan adalah memory kilobyte.
'nput 0 " yang dikonersikan adalah memory megabyte. 'nput
0 # yang dikonersikan adalah memory gigabyte
$. 5utputnya berupa hasil dari pengkonersian memory yang
telah diinput.
%. (elesai.
$,3,",3 Listing Pr*gra K*n8ersi Satuan Me*ri
program konversi_memory;uses wincrt;
varpilih, cd : integer;bt,kb,mb,gb : real;input : string;beginwriteln(' KEL!"K # '$;writeln(' _________________________________ '$;writeln;
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
16/29
writeln('"ilihan konversi : '$;writeln('%& )E '$; ;writeln('*& K+L)E'$;
writeln('#& !E-)E'$;writeln('.& +-)E'$;writeln;write('!asukkan "ilihan -nda : '$; read(input$;val(input,pilih,cd$;writeln;
i/ cd 01 2 then begin writeln('input harus angka'$; end else
i/ pilih 3 % then begin
writeln(' Konversi '$; writeln(' )E '$; writeln('_________________________________'$; writeln; write('masukkan nilai )E : '$; read(bt$; writeln; kb:3bt4%2*.; mb:3bt4(%2*.5%2*.$; gb:3 bt4(%2*.5%2*.5%2*.$; writeln; writeln('6ilai K+L)E : ' , kb:2:*$; writeln('6ilai !E-)E : ' , mb:2:*$;
writeln('6ilai +-)E : ' , gb:2:*$; end else
i/ pilih 3 * then begin writeln(' Konversi '$; writeln(' K+L)E '$; writeln('__________________________________'$; writeln;
write('masukkan nilai K+L)E : '$; read(kb$; bt:3kb5%2*.; mb:3kb4%2*.; gb:3kb4(%2*.5%2*.$;
writeln; writeln('6ilai )E : ' , bt:2:*$; writeln('6ilai !E-)E : ' , mb:2:*$;
writeln('6ilai +-)E : ' , gb:2:*$; end else
i/ pilih 3 # then begin writeln(' Konversi '$;
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
17/29
writeln(' !E-)E '$; writeln('__________________________________'$; writeln;
write('masukkan nilai !E-)E : '$; read(mb$; bt:3mb5%2*.5%2*.; kb:3mb5%2*.; gb:3mb4%2*.; writeln; writeln('6ilai )E : ' , bt:2:*$; writeln('6ilai K+L)E : ' , kb:2:*$; writeln('6ilai +-)E : ' , gb:2:*$; end else
i/ pilih 3 . then begin writeln(' Konversi '$;
writeln(' +-)E '$; writeln('__________________________________'$; writeln; write('masukkan nilai +-)E : '$; read(gb$; bt:3gb5%2*.5%2*.5%2*.; kb:3gb5%2*.5%2*.; mb:3gb5%2*.; writeln; writeln('6ilai )E : ' , bt:2:*$; writeln('6ilai K+L)E : ' , kb:2:*$; writeln('6ilai !E-)E : ' , mb:2:*$;
end else
begin writeln('input tidak valid'$; end; end&
K*'e Pr*gra $, Program Bonersi Memori
$,3,",$ Tra7ing Pr*gra K*n8ersi Me*ry
Input .
Pilihan 0 #
Pr*ses .
masukkan nilai gigabyte 0 2
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
18/29
bt 0 2 D 1>2#D1>2#D1>2# 0 2#1##F"%#F.>>
kb 0 2D1>2#D1>2# 0 2>GE1$2.>>
mb 0 2D1>2# 0 2>#F.>>
Output .
+ilai byte : 2#1##F"%#F .>>
+ilai kilobyte : 2>GE1$2.>>
+ilai megabyte : 2>#F.>>
$,3,",% 1l*w7hart Pr*gra K*n8ersi Satuan Me*ri
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
19/29
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
20/29
(etelah program selesai dikerjakan maka perlu dilakukan uji coba terhadap
program tersebut. &erikut ini adalah uji coba dari program gaji karya!an dan
program konersi satuan memori.
$,$,! Pr*gra Ga+i Karyawan
ampilan a!al program :
Ga)ar -, tampilan saat run a!al
=ika user menginput 1 maka proses yang terjadi adalah menghitung gaji
total 5ffice &oy.
Ga)ar 9, tampilan gaji total office boy
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
21/29
=ika user menginput 2 maka proses yang terjadi adalah menghitung gaji
total (ecurity.
Ga)ar :, tampilan gaji total security
=ika user menginput " maka proses yang terjadi adalah menghitung gaji
total (taff.
Ga)ar ;, tampilan gaji total staff
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
22/29
=ika user menginput # maka proses yang terjadi adalah menghitung gaji
total (enior (taff.
Ga)ar !#, tampilan gaji total senior staff
=ika user menginput $ maka proses yang terjadi adalah menghitung gaji
total (uperisor.
Ga)ar !!, tampilan gaji total superisor
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
23/29
=ika user menginput % maka proses yang terjadi adalah menghitung gaji
total Asissten Manager.
Ga)ar !", tampilan gaji total asissten manager
=ika user menginput E maka proses yang terjadi adalah menghitung gaji
total Manager.
Ga)ar !3, tampilan gaji total manager
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
24/29
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
25/29
$,$," Pr*gra K*n8ersi Satuan Me*ri
ampilan a!al program :
Ga)ar !-, tampilan a!al program konersi satuan memory
=ika user menginput huruf maka program akan menampilkan Kinput harus
angkaL.
Ga)ar !9, tampilan alidasi huruf
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
26/29
=ika user menginput 1 maka proses yang terjadi adalah konersi dari nilai
&yte.
Ga)ar !:, tampilan konersi satuan memory dari byte
=ika user menginput 2 maka proses yang terjadi adalah konersi dari nilai
Bilobyte.
Ga)ar !;, tampilan konersi satuan memory dari kilobyte
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
27/29
=ika user menginput " maka proses yang terjadi adalah konersi dari nilai
Megabyte.
Ga)ar "#, tampilan konersi satuan memory dari megabyte
=ika user menginput # maka proses yang terjadi adalah konersi dari nilai
9igabyte.
Ga)ar "!, tampilan konersi satuan memory dari gigabyte
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
28/29
=ika user menginput lebih dari # maka program akan menampilkan Kinput
tidak alidL
Ga)ar "", tampilan alidasi angka
-
8/17/2019 Laporan Asistensi BAB II Kelompok 3
29/29
$,% Sipulan
6ari praktikum yang telah dilakukan maka dapat disimpulkan beberapa hal
antara lain sebagai berikut :
1. 6alam membuat sebuah program kita harus memahami keperluan memory
pada setiap tipe data yang kita gunakan agar kita tahu batas3batas dari tipe
data tersebut sehingga kita dapat menggunakannya secara efisien.
2. (ebelum membuat program kita harus memahami istilah3istilah penting
dalam pascal seperti procedure dan function agar kita bisa membuat program
dengan baik benar dan sesuai aturan.
". Programer harus memahami fungsi statemen dalam pascal untuk
memudahkan dalam membuat program.
#. Program memerlukan alidasi untuk memberikan batas input sehingga
program tersebut dapat berjalan dengan lancar.