Home » algoritma » belajar » Informasi » Komputer » pascal » Pendidikan » Sistem Informasi » sturktur data » Tips » turbo pascal » umum » Array

6.10.2013

Array

array adalah sebuah struktur data yang terdiri atas banyak variabel dengan tipe data sama, dimana masing-masing elemen variabel mempunyai nilai indeks.  Setiap elemen array mampu menyimpan satu jenis data (yaitu : variabel).  array dinyatakan dengan type.
kali ini saya akan memberikan contoh array dengan menggunakan program penjualan laptop pada  postingan saya tentang Logika Percabangan (part 4).

Contoh :
Program Penjualan_Laptop;
uses wincrt;
type laptop=record
 Merek,Type_laptop:string[10];
    harga:longint;
    jumlah:longint;
end;
var
data:array [1..100] of laptop;
bonus,total,total_bonus:longint;
ul:char;
ttl,tot:longint;
i,n:integer;
begin
repeat
clrscr;
write('Masukkan Jumlah Laptop Yang Dibeli : ');readln(n);
for i:=1 to n do
begin
clrscr;
writeln('Entry Data Penjualan Laptop PT. Diamond Computer');
writeln('===========================');
writeln;
writeln('Laptop Ke-',i);
writeln;
write ('Input Merek      : ');readln(data[i].Merek);
write ('Input Type Laptop: ');readln(data[i].Type_laptop);
write ('Input Harga      : ');readln(data[i].Harga);
write ('Input Jumlah Beli: ');readln(data[i].jumlah);
writeln;
end;
clrscr;
writeln('Laporan Penjualan Laptop PT. Diamond Computer');
writeln('=========================================================');
writeln('|   Merek  | Type Laptop |    Harga    |Beli|  Total   | Total Bonus|');
writeln('=========================================================');
tot:=0;
ttl:=0;
for i:=1 to n do
begin
total:=data[i].harga*data[i].jumlah;
                    if data[i].jumlah >10 then
                    begin
                    Bonus :=1000000;
                    end
                    else
                    if data[i].jumlah >5 then
                    begin
                    Bonus :=300000;
                    end
                    else
                    if data[i].jumlah >2 then
                    begin
                    Bonus :=100000;
                    end
                    else
                    begin
                    Bonus :=0;
                    end;
tot:=tot+bonus;
ttl:=ttl+total;
writeln('|',Data[i].merek:10,'|',data[i].type_laptop:13,'|',
data[i].harga:13,'|',data[i].jumlah,'|',Total:13,'|',bonus:13,'|');
end;
writeln('=========================================================');
writeln('                                           |',ttl:13,'|',tot:13,'|');
writeln('=========================================================');
write('Mau Ulang Lagi ? [Y/T] : ');readln(ul);
until upcase(ul)<>'Y';donewincrt;
end.

Related posts

Description: Array Rating: 4.5 Reviewer: Tedy ItemReviewed: Array
Al
Mbah Qopet Updated at: 14.24.00
Diposting oleh

2 komentar:

Langganan: Posting Komentar (Atom)