Page 86 - MODUL PDKP'21

Modul 3 – Array, Record dan Pemrograman Modular 2021

Tulis(pembelian1.kuantitas)
Selesai
Mulai
Tulis(pembelian2.bahan)
Tulis(pembelian2.harga)
Tulis(pembelian2.kuantitas)
Selesai
Selesai

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

Praktikum Dasar Komputer & Pemrograman 2021 III-71