Modul_2_r35.docx

MODUL 2 PENGKONDISIAN,LOOPING,DECISION, DAN COMPOUND

Asisten Wali Miftah Jamalul Ihsan

Disusun Oleh: Kelompok R-35 Sesi : Selasa, 16.00-19.15

Roni Mulyana

2513181007

Muhammad Andan Annur

2513181020

NILAI

LABORATORIUM OPTIMASI ANALITIK SISTEM INDUSTRI JURUSAN TEKNIK INDUSTRI FAKULTAS TEKNIK UNIVERSITAS JENDERAL ACHMAD YANI BANDUNG 2018

Praktikum Dasar Komputer & Pemrograman – Modul 2

R-35

1. Deskripsi Sistem Sistem yang dibuat digunakan untuk kegiatan jual beli dimana pembeli dapat mencari barang apa yang di butuhkan dan mengetahui total yang harus di bayar dengan akurat. Cara kerjanya pertama akan di tampilkan satu per-satu barang yang dijual oleh penjual lalu pembeli diminta memasukan jumlah barang yang di butuhkan, apabila tidak dibutuhkan maka pembeli cukup memasukan nilai nol. Di dalam sistem ini disisipkan tanggal saat pemesanan dan juga terdapat pengulangan pada barang yang ingin di pilih kembali ke menu pemilihan barang dan pada saat pemilihan barang dilakukan oleh pembeli, pembeli dapat memilih barang yang dipilih menggunakan nomor barang dan akan keluar output barang yang telah dipilih pembeli. Aplikasi yang digunakan adalah lazarus. Program ini dibuat untuk memudahkan pelanggan dalam mencari jenis barang dan memudahkan mengetahui harga, jumlah barang tersebut yang dibeli pembeli dan dapat mengetahui hasil dan barang yang akurat. Dan juga pembeli dapat memilih kembali barang yang sebelumnya telah dipilih diawal-awal dan dapat kembali untuk memilih barang yang dipilih, karna sistem ini menggunakan looping atau pengulangan jadi memudahkan pembeli dalam memilih barang yang ingin dia pilih kembali. Dan pembeli juga dapat memilih barangnya melalui proses input pemilihan barang nomor misalnya yang ingin pembeli pilih adalah no.1 yaitu meja maka pada saat dipilih outputnya pun yang pembeli pilih barusan akan keluar dengan barang yang dipilih dan juga tertera dengan sesuai nomor yang ia pilih tadi.

Alur program 1. Pertama-tama kita masukkan program input id dan password untuk login dan masuk ke menu selanjutnya jika masukkan id dan password salah maka program akan mengulang dan tidak akan berlanjut. 2. Tekan enter lalu selanjutnya yang kedua masukkan identitas pembeli,no hp,jenis pengiriman. 3. Masukkan kode jika ingin membeli barang jika tidak silahkan tekan nol. 4. Masukkan jumlah barang yang di inginkan, lalu barang sudah dipilih maka akan keluar semua output yang dari awal point 1 sampai point 4.

Laboratorium Optimasi Analitik Sistem Industri

2

Praktikum Dasar Komputer & Pemrograman – Modul 2

R-35

2. Flowchart MULAI

Masukan Login ‘Id,pas’

Data Pengguna ‘Id,pass’

INPUT Jumlah (Meja,Kursi, lemari,Kursi Pelaminan, sofa, Tempattidur ,Mejamakan, Mejabelajar, Kursi teras, Rak sepatu,

Kaligrafi,meja rias,meja telepon, mimbar,set kursi makan,set kamar tidur,set meja sekolah,sangk ar burung, lemari buku, lemari pajangan)

A

Laboratorium Optimasi Analitik Sistem Industri

1

Praktikum Dasar Komputer & Pemrograman – Modul 2

R-35

A

INPUT Menu’Pilih an Barang kode’

Jika kode=mj

Y

Nama Barang ’meja’ Harga200000

Y

Nama Barang ’kursi’ Harga 150000

Y

Nama Barang ’lemari’ Harga 4500000

Y

Nama Barang ’kursi pelaminan’ Harga 2000000

Y

Nama Barang ’sofa’ Harga 3000000

Y

Nama Barang ’tempat tidur’ Harga 5000000

Y

Nama Barang ’meja makan’ Harga 8000000

Y

Nama Barang ’meja belajar’ Harga 2000000

Y

Nama Barang ’kursi teras’ Harga 300000

Y

Nama Barang ’rak sepatu’ Harga 100000

T

Jika kode=ks

T

Jika kode=lm

T

Jika kode=kp

T

Jika kode=sf

T

Jika kode=tt

T

Jika kode=mmkn

T

Jika kode=mb

T

Jika kode=kt

T

Jika kode=rs

T

B

Laboratorium Optimasi Analitik Sistem Industri

2

Praktikum Dasar Komputer & Pemrograman – Modul 2 B

R-35 1

T

Jika kode=kl

Y

Nama Barang ’kaligrafi’ Harga150000

Totalharga barang*jumlah barang

T

Jika kode=mr

Y

Nama Barang ’meja rias’ Harga700000

T

Jika kode=mt

Y

Nama Barang ’meja telepon’ Harga300000

Y

Nama Barang ’mimbar’ Harga1000000

T

Jika kode=mm

Jumlah (N*Mj,ks,lm,kp,sf, tt,mmkn,mb,kt,rs, kl,mr,mt,mr,skm,s kt,sms,sb,lb,lp)

OUTPUT Nama barang, total harga barang, nama pembeli, jenis pengirima n, no hp SELESAI

T

Jika kode=skm

Y

Nama Barang ’set kursi makan’ Harga400000

Y

Nama Barang ’set kamar tidur’ Harga25000000

Y

Nama Barang ’set meja sekolah’ Harga350000

Y

Nama Barang ’sangkar burung’ Harga100000

Y

Nama Barang ’lemari buku’ Harga250000

Y

Nama Barang ’lemari pajangan’ Harga11000000

T

Jika kode=skt

T

Jika kode=sms

T

Jika kode=sb

T

Jika kode=lb

T

Jika kode=lp

T

OUTPUT Nama barang, Harga

1

Laboratorium Optimasi Analitik Sistem Industri

3

Praktikum Dasar Komputer & Pemrograman – Modul 2

R-35

3. Pseudocode Program furshop {Program ini dibuat untuk memudahkan pelanggan dalam mencari barang dan harga serta mengetahui harga total barang yang dibeli,aplikasi ini menggunakan lazarus} Deklarasi Id,pass ,kode,jmlh, Identitas nama pembeli,no hp pembeli,jenis pengriman. Deskripsi Algoritma Mulai Baca(id=Furshop) Baca(pass=market) Baca(masukkan nama pembeli=nama pembeli) Baca(masukkan no hp=no hp pembeli) Baca(masukkan jenis pengiriman=jenis pengiriman) Baca(masukkan kode barang yang di inginkan=kode) Baca(Masukkan jumlah Barang=jmlh) Total(Mj*200000)+(Ks*150000)+(Lm*4500000)+(Kp*2000000)+(Sf*3000000)+(Tt*5000000)+(mmkn* 8000000)+(Mb*2000000)+(Kt*300000)+(Rs*100000)+(Kl*150000)+(Mr*700000)+(Mt*300000)+(Mbr*1 000000)+(Skm*400000)+(Skt*25000000)+(Sms*350000)+(Sb*100000)+(Lb*250000)+(Lp*11000000) Tulis(jmlh:=mj+ks+lm+kp+sf+tt+mmkn+mb+kt+rs+kl+mr+mt+mbr+skm+skt+sms+sb+lb+lp); Tulis(identitas:=np); Tulis(nohp=nh); Tulis(jenispengriman=jp); Tulis(jumlah barang=jmlh); Tulis(nama barang=namabarang); Tulis(harga barang=hargabarang); Tulis(Total Harga Adalah=total); Akhiri

Laboratorium Optimasi Analitik Sistem Industri

4

Praktikum Dasar Komputer & Pemrograman – Modul 2

R-35

4. Sourcecode program FurShop; uses crt,sysutils; var mj,ks,lm,kp,sf,tt,mmkn,mb,kt,rs,kl,mr,mt,mm,skm,skt,sms,sb,lb,lp,jmlh:integer; id,pass:string; np,nh,jp,kode,namabarang,identitas,namapembeli,jenispengiriman:string; hargabarang,total:real; begin repeat writeln('Silahkan Log in'); write('ID:');readln(id); write('PASSWORD:');readln(pass); clrscr; until(id='furshop')and(pass='market'); writeln; clrscr; writeln('Hari/Tanggal:',datetimetostr(now)); writeln; writeln('

===========================');

writeln('

|Selamat Datang di FURSHOP|');

writeln('

|08587945392

writeln('

|Bandung

writeln('

===========================');

|'); |');

readln; write('masukan nama pembeli');readln(np); write('masukan no hp');readln(nh);

Laboratorium Optimasi Analitik Sistem Industri

5

Praktikum Dasar Komputer & Pemrograman – Modul 2

R-35

write('Masukan Jumlah Barang:');readln(jmlh); if kode='mj'then begin namabarang:='meja'; hargabarang:=200000; end; if kode='ks'then begin namabarang:='kursi'; hargabarang:=150000; end; if kode='lm'then begin namabarang:='lemari'; hargabarang:=4500000; end; if kode='kp'then begin namabarang:='kursi pelaminan'; hargabarang:=2000000; end; if kode='sf'then begin namabarang:='sofa'; hargabarang:=3000000; end; if kode='tt'then

Laboratorium Optimasi Analitik Sistem Industri

6

Praktikum Dasar Komputer & Pemrograman – Modul 2

R-35

begin namabarang:='tempat tidur'; hargabarang:=5000000; end; if kode='mmkn'then begin namabarang:='meja makan'; hargabarang:=800000; end; if kode='mb'then begin namabarang:='meja belajar'; hargabarang:=200000; end; if kode='kt'then begin namabarang:='kursi teras'; hargabarang:=300000; end; if kode='rs'then begin namabarang:='rak sepatu'; hargabarang:=100000; end; if kode='kl' then begin namabarang:='kaligrafi'; hargabarang:=150000; Laboratorium Optimasi Analitik Sistem Industri

7

Praktikum Dasar Komputer & Pemrograman – Modul 2

R-35

end; if kode='mr' then begin namabarang:='meja rias'; hargabarang:=700000; end; if kode='mt' then begin namabarang:='meja telepon'; hargabarang:=300000; end; if kode='mm' then begin namabarang:='mimbar'; hargabarang:=1000000; end; if kode='skm' then begin namabarang:='set kursi makan'; hargabarang:=400000; end; if kode='skt' then begin namabarang:='set kamar tidur'; hargabarang:=2500000; end; if kode='sms' then

Laboratorium Optimasi Analitik Sistem Industri

8

Praktikum Dasar Komputer & Pemrograman – Modul 2

R-35

begin namabarang:='set meja sekolah'; hargabarang:=350000; end; if kode='sb' then begin namabarang:='sangkar burung'; hargabarang:=100000; end; if kode='lb' then begin namabarang:='lemari buku'; hargabarang:=250000; end; if kode='lp' then begin namabarang:='lemari pajangan'; hargabarang:=1100000; end; begin total:=hargabarang*jmlh; identitas:=np; clrscr; write('hari/tanggal:',datetimetostr(now)); writeln; writeln('

|----------------------------|');

writeln(' writeln('

|identitas:',np); |nohp:',nh);

Laboratorium Optimasi Analitik Sistem Industri

9

Praktikum Dasar Komputer & Pemrograman – Modul 2

writeln('

|jenispengriman:',jp);

writeln('

|jumlah barang:',jmlh);

writeln('

|nama barang:',namabarang);

writeln('

|harga barang:',hargabarang:0:2);

writeln('

|Total Harga Adalah:',total:0:2);

writeln('

|===========FURSHOP==========|');

writeln('

|----------------------------|');

write('

R-35

================================');

writeln; write('

==========TERIMA KASIH==========');

writeln; write('

================================');

writeln; readln; end; end.

Laboratorium Optimasi Analitik Sistem Industri

10

Lampiran -

Tabel barang Materi asistensi

Tabel Barang

Nama Barang

Harga Barang

1.Meja

Rp.200.000.00

2.Kursi

Rp.150.000.00

3.lemari

Rp.4.500.000.00

4.Kursi Pelaminan

Rp.2.000.000.00

5.sofa

Rp.3.000.000.00

6.Tempat tidur

Rp.5.000.000.00

7.Meja makan

Rp.800.000.00

8.Meja belajar

Rp.200.000.00

9.Kursi teras

Rp.300.000.00

10.Rak sepatu

Rp.100.000.00

Gambar

11.kaligrafi

Rp.150.000.00

12.meja rias

Rp.700.000.00

13.meja telepon

Rp.300.000.00

14.mimbar

Rp.1.000.000.00

15.set kursi makan

Rp.400.000.00

16.set kamar tidur Rp.25.000.000.00

17.set meja sekolah Rp.350.000.00

18.sangkar burung

Rp.100.000.00

19.lemari buku

Rp.250.000.00

20.lemari pajangan Rp.11.000.000.00