Modul 3 Array Record.docx

MODUL 3 “ARRAY,RECORD,DAN PEMOGRAMAN MODULAR”

Asisten Wali Ilham Darmawan Disusunoleh : Kelompok R-26 Sesi :1 (Senin, 17.00 –20.15) Akmal Rizki Huzaeni

2513181036

M.Zaein.Istnanudin.Bamsyam 2513181034

Nilai

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

Dasar Komputer dan pemograman

1. Deskripsi Sistem System ini dibuat untuk solusi para konsumen untuk pemecahan masalah yang terdapat dalam perancangan system penjualan dan sistem pembelian dengan barang yang terbatas dengan cara ini kami produsen mencari cara agar para konsumen lebih mudah membeli produk yang dijual ditoko kami.sistem market online yang pertama menentukan target pemasaran dengan menggunakan iklan disocial media.perkembangan furniture diindonesia terbilangan sangat pesat terlihat dengan target yang dilakukan oleh himpunan industry mebel. Sistem penjualan ditoko home sweet home kami ini kami menggunakan program Lazarus dengan bertujuan mempermudah konsumen kami untuk berbelanja ditoko kami konsumen diperintah dengan memasukan email dan pass untuk masuk kedalam program penjualan toko kami jika email dan pass konsumen salah maka program kami akan terus mengulang sampai email dan pass benar,sesudah konsumen memasukan email dan pass konsumen diberi list nama barang,harga barang,dan jumlah barang,dengan program ini konsumen akan tau

mana barang yang tersedia dan barang yang tidak tersedia ditoko

kami,sesuai dengan selogan kami ‘home sweet home’rumahku surgaku.kami memberikan barang barang furniture yang berkualitas dengan standar yang bagus. Lalu dalam membuat suatu program kami menggunakan aplikasi yang bernama Ms.Visio dan Lazarus. aplikasi Ms. Visio digunakan sebagai sebuah program aplikasi komputer yang sering digunakan untuk membuat diagram, diagram alir Flowchart. Kemudian Lazarus adalah Software untuk membuat suatu program yang bahasa pemrogramannya berbasis Bahasa Pascal dan Sourcecode yang dibuat pada Lazarus for Windows relatif dapat berjalan baik di Lazarus for Linux tetapi bisa juga Lazarus dijalankan pada Windows, Linux, Mac, WinCE Pengunaan programa kali ini konsumen harus memasukan

Laboratorium Optimasi Analisis Sistem Industri

Page 2

Dasar Komputer dan pemograman

MULAI

INPUT A

KASUS A

1

PROCEDURE PEMBELIAN

2

PROCEDURE STRUK

A=3

SELESAI

Laboratorium Optimasi Analisis Sistem Industri

Page 3

Dasar Komputer dan pemograman

Procedure pembelian

Input Id,pass

Id= 123' Pass= 123'

Nama,alamat

Input Namabarang, hargabarang, jumlahbaran g

Ulangi[i] dari A1 sampai C30

INPUT kode

A

Laboratorium Optimasi Analisis Sistem Industri

Page 4

Dasar Komputer dan pemograman

A

JIKA A1

JUMLAHBARANGa CERMIN HARGABARANG RP.150.00' JUMLAHBARANG 1'

JIKA A2

NAMABARANG RANJANG HARGABARANG RP.1.000.000' JUMLAHNBARANG 1'

JIKA A3

NAMABARANG MEJABELAJAR HARGABARANG RP.500.00' JUMLAHBARANG 2'

JIKA A4

NAMABARANG KURSI HARGABARANG RP.300.000' JUMLAHBARANG 2'

JIKA A5

NAMABARANG LEMARIBAJU HARGABARANG RP.7.000.000' JUMLAHBARANG 2'

JIKA A6

NAMABARANG RAKTV HARGABARANG RP.900.000' JUMLAHBARANG 3'

Laboratorium Optimasi Analisis Sistem Industri

Page 5

Dasar Komputer dan pemograman

JIKA A7

NAMABARANG SOFA HARGABARANG RP.2.000.000' JUMALAHBARANG 5'

JIKA A8

NAMABARANG MEJA HARGABARANG RP.600.000 JUMLAHBARANG 6'

JIKA A9

NAMABARANG LEMARIASESORI S HARGABARANGRP.300.000' JUMLAHBARANG 5'

JIKA A10

NAMABARANG RAKSEPATU HARGABARANG RP.100.00' JUMLAHBARANG 2'

JIKA B1

NAMABARANG KITCHENSET HARGABARANG RP.900.00' JUMLAHBARANG 2'

JIKA B2

NAMABARANG RAKPIRING HARGABARANG RP.500.000' JUMLAHBA\\RANG 5'

Laboratorium Optimasi Analisis Sistem Industri

Page 6

Dasar Komputer dan pemograman

NAMABARANG LEMARIDAPUR JIKA B3

HARGABARANG RP.600.000 JUMLAHBARANG 5'

JIKA B4

NAMABARANG MEJAMAKAN HARGABARANG RP.700.000' JUMLAHBARANG 6'

JIKA B5

NAMABARANG MINIBAR HARGABARANG RP.400.000 JUMLAHBARANG 3'

JIKA B6

NAMABARANG MEJAKECIL HARGABARANG 300.000' JUMLAHBARANG 3'

JIKA B7

NAMABARANG MEJASEDANG HARGABARANG 400.000' JUMLAHBARANG 4'

JIKA B8

NAMABARANG MEJABESAR HARGABARANGRP.400.000' JUMLAHBARANG 3'

Laboratorium Optimasi Analisis Sistem Industri

Page 7

Dasar Komputer dan pemograman

JIKA B9

NAMABARANG MEJATAMU HARGABARANG RP.600.000 JUMLAHBARANG 3'

JIKA B10

NAMABARANG MEJAMAKAN HARGABARANG RP.700.000 JUMLAHBARANG 5'

Ulangi[i] dari 1 sampai 20

Namabarang [i],Hargabara ng[i],Jumlahb arang[i]

TOTALJUMLAH 1 SAMPAI 20

OUTPUT NAMABARA NG,HARGAB ARANG,JUML AHBARANG

SELESAI

Laboratorium Optimasi Analisis Sistem Industri

Page 8

Dasar Komputer dan pemograman

Program pembelian_furniture {program akan menampilkan keterangan furniture seperti nama barang dan harga} Deklarasi Type Furniture=record Pembelian:array[1..30]of furniture I,j:integer Deskripsi algortitma Mulai Baca(j) Untuk i sampai j lakukan Dengan pembelian[i] lakukan Mulai Tulis(i) Tulis(nama furniture) Tulis(harga) Selesai Selesai

Laboratorium Optimasi Analisis Sistem Industri

Page 9

Dasar Komputer dan pemograman

program modul_3; uses crt,sysutils; type FURNITURE=record Kodefurniture,jumlah1,nama_barang,harga,status:string; jumlah,hrg:integer; end; var pembelian:array[1..30] of FURNITURE; nama,alamat,id,pass:string; no,i,j,total:integer;

begin Repeat writeln(' ============================================='); writeln('>>>>>>> Silahkan Login Terlebih Dahulu <<<<<<<'); writeln(' ============================================='); write('ID

:');readln(id);

write('Katasandi :');readln(pass); until(id='123')and(pass='123'); begin writeln; write(' ~~ Masukan Nama Anda : ');readln(nama); write(' ~~ Masukan Alamat Anda : ');readln(alamat); begin clrscr; writeln('

>>>> Selamat Datang Di Toko HOME SWEET HOME <<<<<< ');

writeln; writeln('

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

writeln('

|

writeln('

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

|Barang yang Tersedia Di HOME SWEET HOME|

Laboratorium Optimasi Analisis Sistem Industri

|');

Page 10

Dasar Komputer dan pemograman

writeln('

| NO | BARANG FURNITURE | HARGA FURNITURE |NO.| BARANG FURNITURE

| HARGA FURNITURE |'); writeln('

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

writeln('

| 1. | Cermin

| Rp. 150.000

writeln('

| 2. | Ranjang

| Rp. 1.000.000 |22.| meja rias

writeln('

| 3. | Meja belajar

writeln('

| 4. | Kursi

writeln('

| 5. | Lemari baju

writeln('

| 6. | Rak tv

writeln('

| 7. | Sofa

| Rp. 2.000.000 |26.| kursi kerja

writeln('

| 8. | Meja

| Rp. 600.000

writeln('

| 9. | Lemari asesoris

writeln('

| 10. | Rak sepatu

| Rp. 100.000

|29.| meja rias

writeln('

| 11. | Kitchen set

| Rp. 900.000

|30.| kursi pelaminan

writeln('

| 12. | Rak piring

| Rp. 500.000

|');

writeln('

| 13. | Lemari dapur

| Rp. 600.000

|');

writeln('

| 14. | Meja makan

| Rp. 700.000

|');

writeln('

| 15. | Mini bar

| Rp. 400.000

|');

writeln('

| 16. | Meja kecil

| Rp. 300.000

|');

writeln('

| 17. | Meja sedang

writeln('

| 18. | Meja besar

| Rp. 400.000

|');

writeln('

| 19. | Meja tamu

| Rp. 600.000

|');

writeln('

| 20. | Rak buku

| Rp. 700.000

|');

writeln('

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

|21.| meja telepon

| Rp. 500.000 | Rp. 300.000

| Rp. 700.000

|27.| bufet

| Rp. 300.000

|');

| Rp.700.000 | Rp.400.000

|25.| kaligrafi

|26.| gazebo

|');

| Rp.400.000

|23.| mimbar

|24.| sketsel

| Rp. 900.000

| Rp.500.000

|');

|');

| Rp.500.000

|');

| Rp.1.000.000

|');

| Rp.500.000

|');

| Rp.500.000

|28.| kursi teras

|');

| Rp.300.000 | Rp.800.000

|'); |');

| Rp.900.000

|');

| Rp. 400.000

|');

writeln; write(' masukan jumlah barang yg akan anda beli : ');readln(j); for i:=1 to j do with pembelian[i] do begin writeln('barang ke-',i); write(' masukan kode yg akan di beli : ');readln(no); if no=1then with pembelian[i] do begin; Nama_Barang:='Cermin'; Laboratorium Optimasi Analisis Sistem Industri

Page 11

Dasar Komputer dan pemograman

Harga:='Rp.150.000'; hrg:=150000; end; if no=2then with pembelian[i] do begin; Nama_Barang:='Ranjang'; Harga:='Rp.1.000.000'; hrg:=1000000; end; if no=3then with pembelian[i] do begin; Nama_Barang:='Meja belajar'; Harga:='Rp.500.000'; hrg:=500000; end; if no=4then with pembelian[i] do begin; Nama_Barang:='Kursi'; Harga:='Rp.300.000'; hrg:=300000; end; if no=5then with pembelian[i] do begin; Nama_Barang:='Lemari baju'; Harga:='Rp.700.000'; hrg:=700000; end; if no=6then with pembelian[i] do begin; Nama_Barang:='Rak tv'; Harga:='Rp.900.000'; Laboratorium Optimasi Analisis Sistem Industri

Page 12

Dasar Komputer dan pemograman

hrg:=900000; end; if no=7then with pembelian[i] do begin; Nama_Barang:='Sofa'; Harga:='Rp.2.000.000'; hrg:=2000000; end; if no=8then with pembelian[i] do begin; Nama_Barang:='Meja'; Harga:='Rp.600.000'; hrg:=600000; end; if no=9then with pembelian[i] do begin; Nama_Barang:='Lemari asesoris'; Harga:='Rp.300.000'; hrg:=300000; end; if no=10then with pembelian[i] do begin; Nama_Barang:='Rak sepatu'; Harga:='Rp.100.000'; hrg:=100000; end; if no=11then with pembelian[i] do begin; Nama_Barang:='Kitchen set'; Harga:='Rp.900.000'; hrg:=900000; Laboratorium Optimasi Analisis Sistem Industri

Page 13

Dasar Komputer dan pemograman

end; if no=12then with pembelian[i] do begin; Nama_Barang:='Rak piring'; Harga:='Rp.500.000'; hrg:=500000; end; if no=13then with pembelian[i] do begin; Nama_Barang:='Lemari dapur'; Harga:='Rp.600.000'; hrg:=600000; end; if no=14then with pembelian[i] do begin; Nama_Barang:='Meja makan'; Harga:='Rp.700.000'; hrg:=700000; end; if no=15then with pembelian[i] do begin; Nama_Barang:='Mini bar'; Harga:='Rp.400.000'; hrg:=400000; end; if no=16then with pembelian[i] do begin; Nama_Barang:='Meja kecil'; Harga:='Rp.300.000'; hrg:=300000; end; Laboratorium Optimasi Analisis Sistem Industri

Page 14

Dasar Komputer dan pemograman

if no=17then with pembelian[i] do begin; Nama_Barang:='Meja sedang'; Harga:='Rp.400.000'; hrg:=400000; end; if no=18then with pembelian[i] do begin; Nama_Barang:='Meja besar'; Harga:='Rp.400.000'; hrg:=400000; end; if no=19then with pembelian[i] do begin; Nama_Barang:='Meja tamu'; Harga:='Rp.600.000'; hrg:=600000; end; if no=20then with pembelian[i] do begin; Nama_Barang:='Rak buku'; Harga:='Rp.700.000'; hrg:=700000; end; if no=21then with pembelian[i] do begin; Nama_Barang:='meja telepon'; harga:='Rp.500.000'; hrg:=500000; end; if no=22then Laboratorium Optimasi Analisis Sistem Industri

Page 15

Dasar Komputer dan pemograman

with pembelian[i] do begin; Nama_Barang:='meja rias'; harga:='Rp.400.000'; hrg:=400000; end; if no=23then with pembelian[i] do begin; Nama:='mimbar'; harga:='Rp.700.000'; hrg:=700000; end; if no=24then with pembelian[i] do begin; Nama:='sketsel'; harga:='Rp.400.000'; hrg:=400000; end; if no=25then with pembelian[i] do begin; Nama:='kaligrafi'; harga:='Rp.500.000'; hrg:=500000; end; if no=26then with pembelian[i] do begin; Nama:='kursi kerja'; harga:='Rp.500.000'; hrg:=500000; end; if no=27then with pembelian[i] do Laboratorium Optimasi Analisis Sistem Industri

Page 16

Dasar Komputer dan pemograman

begin; Nama:='bufet'; harga:='Rp.500.000'; hrg:=500000; end; if no=28then with pembelian[i] do begin; Nama:='kursi teras'; harga:='Rp.300.000'; hrg:=300000; end; if no=29then with pembelian[i] do begin; Nama:='meja rias'; harga:='Rp.800.000'; hrg:=800000; end; if no=30then with pembelian[i] do begin; Nama:='kursi pelaminan'; harga:='Rp.900.000'; hrg:=900000; end; if (no<1) or (no>30) then with pembelian[i] do begin; status:= 'BARANG TIDAK TERSEDIA'; end else begin with pembelian[i] do begin status:='BARANG TERSEDIA'; Laboratorium Optimasi Analisis Sistem Industri

Page 17

Dasar Komputer dan pemograman

readln; end; end; end; clrscr; total:=0; for i:=1 to j do begin writeln; writeln('Barang yg di pesan ke-',i); writeln(' ============================================='); writeln(' ============= Barang Yg Dipesan ============='); writeln(' ============================================='); writeln(' Nama Barang

: ',pembelian[i].nama_barang);

writeln(' ============================================='); writeln(' Status

: ',pembelian[i].status);

writeln(' ============================================='); writeln(' Harga Barang : ',pembelian[i].harga); writeln(' ============================================='); write(' Masukan Jumlah Barang Yang Di inginkan: ');readln(pembelian[i].jumlah); writeln(' ============================================='); total:=total+(pembelian[i].jumlah*pembelian[i].hrg); end; clrscr; writeln; writeln; writeln(' ============================================='); writeln(' ============== STRUK PEMBAYARAN ============='); writeln(' ============================================='); writeln(' Nama Pembeli

:',nama);

writeln(' ============================================='); writeln(' Alamat Pembeli :',alamat); writeln(' ============================================='); for i:=1 to j do Laboratorium Optimasi Analisis Sistem Industri

Page 18

Dasar Komputer dan pemograman

BEGIN writeln(' Nama Barang

: ',pembelian[i].nama_barang);

writeln(' ============================================='); writeln(' Harga Barang

: ',pembelian[i].harga);

writeln(' ============================================='); writeln(' Jumlah

: ',pembelian[i].jumlah);

writeln(' ============================================='); end; write(' Total Pembayaran :',total); end; writeln; writeln; writeln(' >>>>>>>Anda Melakukan Pembayaran Pada Tanggal ' ,datetimetostr(now)); writeln(' >>>>>>>TERIMA KASIH TELAH BERBELANJA DI TOKO HOME SWEET HOME<<<<<<'); writeln(' <<<<<<< (~_~) (~_~) (~_~) (~_~) (~_~) (~_~) (~_~) (~_~) >>>>>>'); readln; end;

end.

Laboratorium Optimasi Analisis Sistem Industri

Page 19

Dasar Komputer dan pemograman

LAMPIRAN Nomor

Nama barang

Harga

Cermin

Rp.150.000

Ranjang

Rp.1.000.000

Meja belajar

Rp.500.000

Kursi

Rp.300.000

Foto

1.

2.

3.

4.

Laboratorium Optimasi Analisis Sistem Industri

Page 20

Dasar Komputer dan pemograman

Lemari baju

Rp.700.000

5.

6.

Rak tv

Rp.900.000

7.

Sofa

Rp.2.000.000

8.

Meja

Rp.600.000

Laboratorium Optimasi Analisis Sistem Industri

Page 21

Dasar Komputer dan pemograman

9.

Lemari asesoris

Rp.300.000

10.

Rak sepatu

Rp.100.000

11.

Kitchen set

Rp.900.000

12.

Rak piring

Rp.500.000

Laboratorium Optimasi Analisis Sistem Industri

Page 22

Dasar Komputer dan pemograman

13.

Lemari dapur

Rp.600.000

14.

Meja makan

Rp.700.000

15.

Mini bar

Rp.400.000

Laboratorium Optimasi Analisis Sistem Industri

Page 23

Dasar Komputer dan pemograman

16.

Meja kecil

Rp.300.000

17.

Meja sedang

Rp.400.000

18.

Meja besar

Rp.400.000

19.

Meja tamu

Rp.600.000

Laboratorium Optimasi Analisis Sistem Industri

Page 24

Dasar Komputer dan pemograman

20.

Rak buku

Rp.700.000

21.

Meja telepon

Rp.500.000

22.

Meja rias

Rp .400.000

23.

Mimbar

Rp .700.000

Laboratorium Optimasi Analisis Sistem Industri

Page 25

Dasar Komputer dan pemograman

24.

Sketsel

Rp.400.000

25.

Kaligrafi

Rp.500.000

26.

Gazebo

Rp.1.000.000

27.

Buffet

Rp.500.000

Laboratorium Optimasi Analisis Sistem Industri

Page 26

Dasar Komputer dan pemograman

28.

Kursi teras

Rp.300.000

29.

Kursi pelaminan

Rp.900.000

30.

Kursi kerja

Rp.500.000

Laboratorium Optimasi Analisis Sistem Industri

Page 27