Selasa, 08 Juni 2010

Program Daftar Harga Toko pada Turbo Pascal

Uses wincrt;
var
nama : string;
i,jd : byte;
kode,judul:array [1..50] of string;
hrg,jml,total:array [1..50] of real;
tbyr:real;
{prosedure data buku}
procedure data_buku;
begin
write('Nama pembeli         :');readln(nama);
write('Masukkan jumlah data :');readln(jd);
for i := 1 to jd do
begin
writeln('Data pembeli ke      :',i);
write('Masukkankode buku    :');readln(kode[i]);
if kode [i]='A' then
begin
     judul[i]:='TURBO PASKAL';
     hrg[i]:=20000;
end
else
if kode[i]='B' then
begin
     judul[i]:='VISUAL BASIC';
     hrg[i]:=40000;
end
else
if kode[i]='C' then
begin
     judul[i]:='BORLAN DELPI';
     hrg[i]:=30000;
end
else
if kode[i]='D' then
begin
     judul[i]:='DESIGN WEB  ';
     hrg[i]:=30000;
end
else
if kode[i]='E'  then
begin
     judul[i]:='BUKU KIMIA  ';
     hrg[i]:=30000;
end
else
begin
judul[i]:='BUKU PROGRAM';
hrg[i]:=50000;
end;
writeln('Judul buku           :',judul[i]);
writeln('Harga                :',hrg[i]:2:0);
write('masukkan jumlah beli :');readln(jml[i]);
writeln;
end;
end;
{prosedure tabel}
procedure tabel;
begin
CLRSCR;
writeln('***********************************************');
writeln('      TOKO BUKU "YUDA PRATAMA DROID"');
WRITELN(' Jl, Optimus 2X No:189 Tlp:(0411)000111');
WRITELN(' E-mail: yuda_pratama@y7mail.com / www.yudapratamadroid.co.cc');                   
writeln('***********************************************');
writeln(' Nama Pembeli  :',nama);
writeln('========================================================================= ');
writeln(' No  KODE     JUDUL                HARGA         JUMLAH        TOTAL');
WRITELN('     BUKU     BUKU                 BELI           BUKU         HARGA');
writeln('=========================================================================');
tbyr:=0;
for i:=1 to jd do
begin
total[i]:=hrg[i]*jml[i];
tbyr:=total[i]+tbyr;
end;
for i:=1 to jd do
begin
writeln(i:2,kode[i]:5,judul[i]:19,hrg[i]:14:0,jml[i]:12:0,total[i]:17:0);
END;
writeln('=========================================================================');
writeln('                                               TOTAL BAYAR = Rp', tbyr :2:0);
END;
{PROGRAM UTAMA}
VAR
lagi : char;
label awal,akhir;
begin
awal:
clrscr;
Data_buku;
tabel;
write(' input data lagi? [y/t]'); readln(lagi);
if (lagi='y') or (lagi='y') then
goto awal
else
goto akhir;
akhir:
readln;
end.

Tidak ada komentar:

Posting Komentar