Page 90 - MODUL PDKP'21

Modul 3 – Array, Record dan Pemrograman Modular 2021

Program Pembeliansayuran
{program akan menampilkan keterangan sayuran seperti bahan dan harga}

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

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

Contoh Sourcecode Gabungan Array
dan Record :
Program pembeliansayuran;
Uses crt,sysutils;
Type
sayuran=record
bahan,harga:string;
End;
Var
pembelian:array[1..10]of sayuran;
i,j:integer;
Begin
write('Masukan jumlah sayuran yang akan dibeli:');readln(j);
For i:=1 to j do
With pembelian[i]do
Begin
writeln('Bahan Sayuran ke-',i);
write('Bahan Sayuran :');readln(bahan);
write('Harga :');readln(harga);
End;
clrscr;
writeln('Tanggal/Jam ',datetimetostr(now));
For i:=1 to j do
With pembelian[i] do

Praktikum Dasar Komputer & Pemrograman 2021 III-75