Contoh Program Record menggunakan Turbo Pascal

Hei sobat, postingan pertama blog ini akan saya mulai dengan Contoh Program Record menggunakan Turbo Pascal. 

Record adalah tipe data terstruktur yang digunakan untuk menyimpan variable lebih dari satu

Cara penulisannya dalam Turbo Pascal sebagai berikut;

uses crt;

type nama_record : record

        nama_variable : type_data;

        nama_variable : type_data;

end;

Contoh Program record menggunakan turbo pascal mengitung nilai akhir  :

uses crt;

type jual = record

     kode  : string;

     nama  : string;

     harga :real;

     jumlah:real;

     total: real[2];

end;

function hitungtotal(harga1,jumlah1 :real) : real;

begin

hitungtotal :=(harga*jumlah);

end;

{----------program utama----------}

var urutan : array[1..50] of nilai;

var i,n : integer;

var total : real;

var harga2,jumlah2 : real;

    begin

    clrscr;

writeln('Jumlah Penjualan');

writeln;

writeln(================================');

writeln;

write('Jumlah Penjualan barang :'); readln(n);

for i:=1 to n do

begin

 writeln;

 write(i,')kode         :'); readIn(urutan[i].kode);

 write(' nama           :'); readIn(urutan[i].nama);

 write(' harga          :'); readIn(urutan[i].harga);

 write(' jumlah          :'); readIn(urutan[i].jumlah);

 harga2 := urutan[i].harga;

 jumlah2:= urutan[i].jumlah;

total := hitungtotal(harga2, jumlah2);

 urutan[i].NA:=nakhir;

 writeln(' Total Harga : ', urutan[i].total :0:2);

 writeln;

 end;

 {----------menampilkan data---------}

 writeln;

 writeln('DAFTAR Penjualan barang:');

 writeln('-----------------------------------------------------------');

 writeln('NO     kode    barang    jumlah    harga    Total');

 writeln('-----------------------------------------------------------');

 writeln;

 for i:=1 to n do

 begin

 write(i:2);

 write(urutan[i].kode:15);

 write(urutan[i].nama:15);

 write(urutan[i].harga:8:2);

 write(urutan[i].jumlah:8:2);

 write(urutan[i].total:8:2);

 writeln;

 end;

 readIn;

 end.

Hasilnya   :

demikian contoh program record menggunakan turbo pascal