Page 68 - MODUL DASKOM 2020

Modul 3 – Array, Record dan Pemrograman Modular 2020

Selesai
Mulai
Tulis(pembelian2.barang)
Tulis(pembelian2.harga)
Tulis(pembelian2.kuantitas)
Selesai
Selesai

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

b) Statement With Do
Record yang menggunakan perintah kata With do untuk memanggil variabelnya.
Contoh Flowchart perintah Record Statement With do :

Praktikum Dasar Komputer & Pemrograman 2020 III-66