Kun Pemrograman Komputer (1).docx

LAPORAN PRAKTIKUM DASAR PEMROGRAMAN

ARRAY BERDIMENSI SATU

Disusun Oleh: Achmad Rosikun (3.31.16.0.01)

PROGRAM STUDI TEKNIK LISTRIK JURUSAN TEKNIK ELEKTRO POLITEKNIK NEGERI SEMARANG 2017/2018

I. TUJUAN  Mengenal beberapa bentuk array di dalam pascal  Dapat menulis program dengan menggunakan deklarasi array dan memanipulasi array

II. DASAR TEORI Array adalah deretan rinci data yang mempunyai tipe data yang sejenis sehingga memungkinkan pada saat yang bersamaan menampung sejumlah data. Data yang disimpan di dalam array selanjutnya disebut sebagai elemen. Sedangkan setiap kotak yang ditempati elemen harus diidentifikasi dengan menggunakan indeks atau subscript dengan tanda[]. Macam array : a. Array berdimensi satu : terdiri dari satu kolom/satu baris. b. Array berdimensi dua : terdiri dari m kolom dan n baris. c. Array berdimensi banyak. Bentuk array: Array Dimensi Satu Elemen

[1]

[2]

Indeks

[3]

[4]

[5]

[1]

[2] [3] [4] [5]

[6]

Array Dimensi Dua 1

2

3

4

1 2 3 4 5

**DEKLARASI ARRAY VAR NAMA_ARRAY:ARRAY[indeks]OF TIPE DATA

**Contoh VAR NAMA : Array[1..5]of string[10];

Nilai : Array [1..5]of real; III. ALAT YANG DIGUNAKAN  1 UNIT Komputer  Software DOS 6.2  Software Turbo Pascal Versi 5.5 keatas  Disket kerja

IV.

LANGKAH KERJA Tahapan/langkah-langkahnya adalah sebagai berikut: a. Memahami persoalan : Daftar Penjualan Bahan Bakar Pertamina b. Mengidentifikasi : - Data Input : a.

Harga Satuan (HS)

b.

Nama Pembeli (Nama)

c.

ID (ID)

d.

Jumlah Barang (Jum)

e.

Pajak (Pajak)

a) Total (Tot) b) Nama Barang (NB) 

Proses : a. Transaksi : HS*JUM b. Jika

Transaksi

<

500000

:

Pajak

0.05*transaksi c. Jika Transaksi >500000: Pajak = 0.1*transaksi d. TOT = Transaksi-Potongan-Pajak e. Total Penjualan (TP)= TP+TOT f. Rata Penjualan (RP)=TP/N 

Data Output : a. Total Penjualan (TP) b. Rata Penjualan (RP)

=

c. Membuat Algoritma/Flowchart Program Flowchart Transaksi Jual Beli Elektronik

MULAI

TOT=0

N, NB

FOR K=1 TO N

INPUT NP[K],JBBM[K],HP[K],JML[K]

PBYR[K]=HP[K]*JML[K] TP=TP+PBYR[K] C

B A

B

A

IF (JBBM[K]=’PREMIUM ’) OR (JBBM[K]=’SOLAR’)

KTG[K]=’NON SUBSIDI’

TOT=TOT+PBYR[K]

END[K]

RP=TP/N

FOR K=1 TO 72

CETAK GARIS HORIZONTAL 3 KALI

END {K}

A

C

KTG[K]=’SUBSIDI’

A

FOR K=1 TO 13

CETAK GARIS VERTIKAL 9 KALI

END {K}

CETAK JUDUL,JUDUL KOLOM

FOR K=1 TO N

CETAK K,NAMA[K],JUM[K],NB[K],ID[K].HS[K],PAJ AK[K].TOT[K]

END {K}

CETAK RP,TP

SELESAI

V. HASIL DATA -Program