Page 70 - Modul Daskom 2020

Modul 3 – Array, Record dan Pemrograman Modular 2020

Dengan pembelian1 lakukan
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 & Pemrograman 2020 III-68