Page 88 - Modul PDKP 20

Modul 3 – Array, Record dan Pemograman Modular 2020

Deklerasi
Type
barang=record
<nama,harga:string>
Selesai
Pembelian:array [1..10] dari barang
i,j:integer

Deklerasi Algoritma
Mulai
Baca(j)
Untuk i1 sampai j lakukan
Dengan pembelian[i] lakukan
Mulai
Baca(i)
Baca(nama)
Baca(harga)
Selesai
Untuk i1 sampai j lakukan
Dengan pembelian[i] lakukan
Mulai
Tulis(i)
Tulis(nama)
Tulis(harga)
Selesai
Selesai

Contoh Source Code Gabungan Array dan Record :
Program pembelianbarang;
Uses crt,sysutils;
Type
barang=record
nama,harga:string;
End;
Var
pembelian:array[1..10]of barang;
i,j:integer;
Begin
write('Masukan jumlah item yang akan dibeli:');readln(j);
For i:=1 to j do
With pembelian[i]do
Begin
writeln('Item ke-',i);
write('Nama Alat :');readln(nama);
write('Harga :');readln(harga);
End;
clrscr;
writeln('Tanggal/Jam ',datetimetostr(now));
for i:=1 to j do
With pembelian[i] do
Begin
writeln('Item ke-',i);
writeln('Nama Alat :',nama);
writeln('Harga :',harga);
End;
readln;
End.

Praktikum Dasar Komputer & Pemograman 2020 III-71