contoh program C++ penjualan

Uses WinCrt;
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei:Integer;
Ulang:Char;
TotalPembayaran:Array[1..10] of Real;
Bayar:Real;
lagi : char;
potongan : integer;
pembelian : integer;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('Pulpen','Buku','Tipe-X',
'Pensil','Penggaris','Spidol','Gunting','Lem','Stopmap','CD');
HargaSatuan:Array [1..10] Of Integer=(1000,2000,1500,
700,500,2000,3000,1000,500,2500);
begin
lagi :='y';
while (lagi='y') or (lagi='y') do

Begin
DataKei:=0;
Bayar:=0;

writeln;

case potongan of

0..30000 : potongan := 500;

end;

Repeat
ClrScr;

DataKei:=DataKei+1;
writeln('                       DATA BARANG                     ');
WriteLn('-------------------------------------------------------');
WriteLn('| Kode barang: 1  , Nama Barang  = Pulpen    ; 1000   |');
writeLn('| Kode barang: 2  , Nama Barang  = Buku      ; 2000   |');
WriteLn('| Kode barang: 3  , Nama Barang  = Tipe-X    ; 1500   |');
WriteLn('| Kode barang: 4  , Nama Barang  = Pensil    ; 700    |');
WriteLn('| Kode barang: 5  , Nama Barang  = Penggaris ; 500    |');
WriteLn('| Kode barang: 6  , Nama Barang  = Spidol    ; 2000   |');
WriteLn('| Kode barang: 7  , Nama Barang  = Gunting   ; 3000   |');
WriteLn('| Kode barang: 8  , Nama Barang  = Lem       ; 1000   |');
WriteLn('| Kode barang: 9  , Nama Barang  = Stopmap   ; 500    |');
WriteLn('| Kode barang: 10 , Nama Barang  = CD        ; 2500   |');
WriteLn('-------------------------------------------------------');
gotoxy(10,15);Write('Tentukan kode barang: ');ReadLn(NomorBarang[DataKei]);
If NomorBarang[DataKei]=1 Then
WriteLn('Nama Barang: ',NamaBarang[1]);
If NomorBarang[DataKei]=2 Then
WriteLn('Nama Barang: ',NamaBarang[2]);
If NomorBarang[DataKei]=3 Then
WriteLn('Nama Barang: ',NamaBarang[3]);
If NomorBarang[DataKei]=4 Then
WriteLn('Nama Barang: ',NamaBarang[4]);
If NomorBarang[DataKei]=5 Then
WriteLn('Nama Barang: ',NamaBarang[5]);
If NomorBarang[DataKei]=6 Then
WriteLn('Nama Barang: ',NamaBarang[6]);
If NomorBarang[DataKei]=7 Then
WriteLn('Nama Barang: ',NamaBarang[7]);
If NomorBarang[DataKei]=8 Then
WriteLn('Nama Barang: ',NamaBarang[8]);
If NomorBarang[DataKei]=9 Then
WriteLn('Nama Barang: ',NamaBarang[9]);
If NomorBarang[DataKei]=10 Then
WriteLn('Nama Barang: ',NamaBarang[10]);
WriteLn('Harga satuan = Rp.',HargaSatuan[NomorBarang[DataKei]]);
Write('Jumlah beli = ');ReadLn(JumlahBeli[DataKei]);
TotalPembayaran[DataKei]:=HargaSatuan[NomorBarang[DataKei]] * JumlahBeli[DataKei];
WriteLn;
Write('Apakah Anda ingin mengisi lagi(Y/T) ? ');ReadLn(Ulang);
Until UpCase(Ulang)<>'Y';

Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+TotalPembayaran[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn('Total belanja ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,TotalPembayaran[DataKei]:2:0);
WriteLn('===================================== +');
WriteLn('Total semua : Rp.',Bayar:2:0);
WriteLn('=======================================');
WriteLn;
WriteLn('::-----------------------------------------------------------------------::');
WriteLn(' [Kode Barang]-[Nama Barang]-[Harga /1an]-[Jumlah Beli]-[Total]');
WriteLn('::-----------------------------------------------------------------------::');
For DataKei:=1 to BanyakDataKei Do

WriteLn         (' ',NomorBarang[DataKei],'            - ',
NamaBarang      [NomorBarang[DataKei]],'      - Rp.',
HargaSatuan     [NomorBarang[DataKei]],'    - ',
JumlahBeli      [DataKei],'           - ',            'Rp.',
TotalPembayaran [DataKei]:2:0);


WriteLn('::-----------------------------------------------------------------------::');
WriteLn(':: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln;

writeln ('total pembayaran                                       = Rp.', bayar:2:0);
writeln ('potongan                                               = Rp.', potongan);
writeln('                                                        ------------- -');
writeln('jumlah dibayar                                         = Rp.',bayar-Potongan:2:0);
write(' masuk lagi (y/t) ? ' ); readln(lagi);

End;
End;
end.