Page 88 - MODUL PDKP'21

Modul 3 – Array, Record dan Pemrograman Modular 2021

Selesai
Dengan pembelian2 lakukan
Mulai
Baca(bahan)
Baca(harga)
Baca(kuantitas)
Selesai
Dengan pembelian1 lakukan
Mulai
Tulis(bahan)
Tulis (harga)
Tulis (kuantitas)
Selesai
Dengan pembelian2 lakukan
Mulai
Tulis (bahan)
Tulis (harga)
Tulis (kuantitas)
Selesai
Selesai

Contoh Sourcecode perintah Record Statement With Do:
Program Pembelian_sayuran;
Uses crt;
Type
sayuran=record
bahan,harga,kuantitas:string;
End;
Var
pembelian1,pembelian2:sayuran;
Begin
With pembelian1 do
Begin
Writeln('Masukkan Sayuran ke-1');
Write('Bahan:');readln(bahan);
Write('Harga:');readln(harga);
Write('Kuantitas:');readln(kuantitas);
End;
Readln;
Begin
With pembelian2 do
Begin
Writeln('Masukkan Sayuran ke-2');
Write('Bahan:');readln(bahan);
Write('Harga:');readln(harga);
Write('Kuantitas:');readln(kuantitas);
End;
Readln;
Clrscr;
With pembelian1 do
Begin
Writeln('Bahan:', bahan);
Writeln('Harga:',harga);

Praktikum Dasar Komputer & Pemrograman 2021 III-73