Pascal Record Dan Array

Program Contoh Record Dan Array
║program record01; ▲
║uses crt; ■
║type ▒
║ databrg=record ▒
║ namabrg:string[15]; ▒
║ hargabrg:real; ▒
║end; ▒
║var ▒
║jumlahbrg,i,j:byte; ▒
║totalharga:real; ▒
║barang:array[1..50]of databrg; ▒
║{Masukan Data} ▒
║begin clrscr; ▒
║write('Jumlah Barang ? ');readln(jumlahbrg); ▒
║for i :=1 to jumlahbrg do ▒
║ begin ▒
║ writeln;writeln('Barang ke ',i:2); ▒
║ with barang[i]do ▒
║ begin ▒
║ write('Nama Barang? ');readln(namabrg); ▼
║ write('harga ? ');readln(hargabrg); ▲
║ end; ▒
║ end; ▒
║{Menampilkan Hasil} ▒
║writeln;writeln; ▒
║writeln('--------------------------------------------------------'); ▒
║writeln(' Struk penjualan'); ▒
║writeln('Nama Barang harga '); ■
║writeln('--------------------------------------------------------'); ▒
║totalharga:=0; ▒
║for i:= 1to jumlahbrg do ▒
║begin ▒
║with barang[i]do ▒
║ begin ▒
║ totalharga:=totalharga+hargabrg; ▒
║ write(namabrg:10); ▒
║ writeln(hargabrg:10:0); ▒
║ end; ▒
║end; ▒
║writeln; ▒
║writeln('--------------------------------------------------------'); ▒
║writeln('*****Total',totalharga:10:0); ▒
║writeln('--------------------------------------------------------'); ▒
║writeln(' TERIMA KASIH '); ▒
║readln; end.

Selamat Mencoba.......