Translate

Jumat, 03 Mei 2013

Tugas Pascal Record Tidak Menggunakan With


buat teman-teman yang baca artikel ini . guw sedikit tambah kan . ini merupakan tugas terbaru dari dosen pa donie . sebelum dikumpulkan periksa ulang program teman-teman semua . terutama pada titik koma, dan titik dua .

program Program_Barang;
uses crt;
type
brg=record
kd:array[1..50] of string[5]:
nama:array[1..50] of string[10];
quantity:array[1..50] of real;
harga:array [1..50] of real:
tot :array[1..50] of real;
total:real;
end;
var
   barang:brg;
   d,e,f : integer;
begin
barang.total := 0:
clrscr;
write('Input Berapa Data ?= '); readln(d):
for e := 1 to a do
    begin
         write(' Kode Barang = '); readln(barang.kd[e]);
         write(' Nama Barang = '); readln(barang.nama[e]);
         write(' Quantity = ');  readln(barang.quantity[e]);
         write(' Harga Satuan = '); readln(barang.harga[e]);
         barang.tot[b] := barang.quantity[e] * barang.harga[e];
         barang.total := barang.total + barang.tot[e]:
         writeln;
    end;
writeln('Kode Barang      Nama Barang     Quantity     Harga Satuan    Total Harga');

for f := 1 to d do
writeln(barang.kd[f]:10 , barang.nama[f]:25, barang.quantity[f]:20:0, barang.harga[f]:15:0, barang.tot[f]:15:0);

writeln('Total Harga = ', barang.total:10:0):
readln:
end;


JANGAN LUPA FOLLOW BLOG ANE sebagai imbalannya :p , jangan ambil datanya aja :D

0 komentar:

Posting Komentar