Page 72 - Modul Daskom 2020

Modul 3 – Array, Record dan Pemrograman Modular 2020

Contoh Pseudecode Gabungan Array dan Record :
Program Pembelianbarang
{program akan menampilkan keterangan barang seperti nama dan harga}

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

Deskripsi 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);

Praktikum Dasar Komputer & Pemrograman 2020 III-70