Page 86 - Modul PDKP 20

Modul 3 – Array, Record dan Pemograman Modular 2020

Mulai
Tulis(barang)
Tulis (harga)
Tulis (kuantitas)
Selesai
Dengan pembelian2 lakukan
Mulai
Tulis (barang)
Tulis (harga)
Tulis (kuantitas)
Selesai
Selesai

Contoh Source Code perintah Record Statement With Do :
Program Pembelian_kosmetik;
Uses crt;
Type
kosmetik=record
barang,harga,kuantitas:string;
End;
Var
pembelian1,pembelian2:kosmetik;
Begin
With pembelian1 do
Begin
Writeln('Masukkan Kosmetik ke-1');
Write('barang:');readln(barang);
Write('harga:');readln(harga);
Write('kuantitas:');readln(kuantitas);
End;
Readln;
Begin
With pembelian2 do
Begin
Writeln('Masukkan Kosmetik ke-2');
Write('barang:');readln(barang);
Write('harga:');readln(harga);
Write('kuantitas:');readln(kuantitas);
End;
Readln;
Clrscr;
With pembelian1 do
Begin
Writeln('barang:',barang);
Writeln('harga:',harga);
Writeln('kuantitas:',kuantitas);
End ;
Readln;
With pembelian2 do
Begin
Writeln('barang:',barang);
Writeln('harga:',harga);
Writeln('kuantitas:',kuantitas);
End ;
Readln;
End;
End.

Praktikum Dasar Komputer & Pemograman 2020 III-69