tugas mandiri 2

berikut link untuk meng unduh contoh sederhana program data barang.

http://www.4shared.com/document/Ux6Q3j5u/pascal.html

contoh sederhana  program data barang menggunakan turbo pascal (array & record)

————————————————————————————————————-

uses wincrt;
type barang=record
nama:string;
harga:real;
status:char;
totalharga:real;
end;

larikbrg=array[1..10] of barang;

var
brg:larikbrg;
n,i:byte;
lagi:char;

begin
{mengisi data barang}
lagi:=’y’;
while lagi=’y’ do
begin
inc(n);
writeln (‘Mengisi Data Barang Ke ‘,n);
write (‘Masukkan Nama Barang–> ‘);readln (brg[n].nama);
write (‘Masukkan Harga Barang–> ‘);readln (brg[n].harga);
write (‘Status Barang?? <Baru=b,bekas=s> ‘);readln(brg[n].status);
if brg[n].status=’s’ then brg[n].totalharga:=brg[n].harga-(0.3*brg[n].harga)else
brg[n].totalharga:=brg[n].harga-(0.3*brg[n].harga);
writeln;
write (‘Apakah anda ingin mencoba mengisi lagi? <y/t> ‘); readln(lagi);
end;
clrscr;
writeln (‘                  Daftar Barang ANGELs SHOP ‘);
writeln (‘           ========================================’);
writeln (‘No.   Nama Barang          Harga Baru           Harga Bekas  ‘);
writeln (‘——————————————————————-‘);
for i:=1 to n do
writeln (i:2,brg[i].nama:13  ,’          Rp.’,brg[i].harga:10:2  ,’         Rp.’,brg[i].totalharga:10:2);
writeln (‘———————————————————————-‘);
end.