Aplikasi Penjualan pada pascal

uses

crt;

Var

Kode_Barang:String;

Jumlah_Barang:Integer;

Total_Bayar:Real;

begin

clrscr;

gotoxy(30,2);

Writeln('CV Nugiez Computer');

gotoxy(25,3);

Writeln('JL.Melati no 11

Yogyakarta');

gotoxy(1,4);

Writeln

('********************************

*********************');

gotoxy(20,7);

Writeln('Kode Barang :');

gotoxy(20,8);

Writeln('Jumlah Barang :');

gotoxy(20,10);

Writeln('+++++++++++++++++++++++

+++++++++');

gotoxy(20,11);

Writeln('+ Nama Barang + Harga

Satuan +');

gotoxy(20,12);

Writeln('+++++++++++++++++++++++

+++++++++');

gotoxy(20,13);

Writeln('+

+ +');

gotoxy(20,14);

Writeln('+++++++++++++++++++++++

+++++++++');

gotoxy(20,16);

Writeln('Total Biaya :');

gotoxy(45,20);

Writeln('Terima Kasih Atas

Kunjungan Anda');

gotoxy(45,21);

Writeln

('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

');

gotoxy(48,22);

Writeln('Design By. Wulandari

Dewi A');

gotoxy(36,7);

Readln(Kode_Barang);

gotoxy(36,8);

Readln(Jumlah_Barang);

gotoxy(23,13);

If Kode_Barang='HD' then

begin

Writeln('Harddisk');

gotox(40,13);

Writeln('850000');

gotoxy(37,16);

Total_Biaya:= Jumlah_Barang *

850000;

Writeln('',Total_Biaya:2:0);

readln;

end;

gotoxy(23,13);

If Kode_Barang='MNTR' then

begin

Writeln('Monitor');

gotox(40,13);

Writeln('550000');

gotoxy(37,16);

Total_Biaya:= Jumlah_Barang *

550000;

Writeln('',Total_Biaya:2:0);

readln;

end;

gotoxy(23,13);

If Kode_Barang='PRNT' then

begin

Writeln('Printer');

gotox(40,13);

Writeln('500000');

gotoxy(37,16);

Total_Biaya:= Jumlah_Barang *

500000;

Writeln('',Total_Biaya:2:0);

readln;

end;

readln;

end.