program perabot;
uses crt;
var
nama,kota,almt,prov : array [1..100] of string;
brg,kode,dkn : array [1..100,1..100] of string;
hrga,byak : array [1..100,1..100] of longint;
tot: array [1..100,1..100] of real;
i,j,n,m: integer;
z : char;
BEGIN
textbackground(black);
textcolor(green);
clrscr;
for i:=1 to 10 do
begin
clrscr;
writeln('--------------------------------------------------------------------------------');
gotoxy(24,2);writeln('
<<<Pemesanan Online>>>');
gotoxy(23,3);writeln('<<<Zakky Aulia Perabot
International>>>
write('Nama Pelanggan : ');readln(nama[i]);
write('Alamat
: ');readln(almt[i]);
write('Kota
: ');readln(kota[i]);
write('Provinsi
: ');readln(prov[i]);
for j:=1 to 10 do
begin
textbackground(GREEN);
textcolor(yellow);
clrscr;
writeln('--------------------------------------------------------------------------------');
gotoxy(30,2);writeln('Barang Yang Anda Pesan');
writeln('--------------------------------------------------------------------------------');
write('Nama Barang :
');readln(brg[i,j]);
write('Kode Barang :
');readln(kode[i,j]);
write('Harga Barang :
');readln(hrga[i,j]);
write('Banyak Barang : ');readln(byak[i,j]);writeln;writeln;
tot[i,j]:=hrga[i,j]*byak[i,j];
end;
end;
begin
clrscr;
for i:=1 to 10 do
begin
CLRSCR;
writeln('================================================================================');
gotoxy(30,2);Writeln('
Daftar Belanja');
gotoxy(30,3);writeln('Zakky Aulia Perabot International');
writeln('================================================================================');
writeln('Nama :
',nama[i]);
writeln('Alamat :
',almt[i]);
writeln('Kota :
',kota[i]);
writeln('Provinsi : ',prov[i]);
writeln('================================================================================');
writeln('|NO|
NAMA | KODE
| HARGA |
BANYAK | TOTAL
|');
writeln('| | BARANG
| BARANG | BARANG |
BARANG | |');
writeln('================================================================================');
for j:=1 to 10 do
begin
writeln('|',j,' |',brg[i,j]:14,' |',kode[i,j]:6,' |',hrga[i,j]:8,' |',byak[i,j]:6,' |',(tot[i,j]):2:0);
end;
readln;
end;
end;
readln;
END.
0 komentar:
Posting Komentar