program penjualan barang

program latihan;
uses wincrt;
var
jum,harga,tothar:array[1..10] of longint;
kode:array[1..10] of char;
nama:array[1..10] of string[20];
i,n,totjum:integer;
pajak,totjumhar,totbayar:real;
uang,kembalian:real;
begin
     write('input banyak data: ');readln(n);
     for i:=1 to n do
          begin
          write('input kode barang      : ');readln(kode[i]);
          write('input jumlah barang    : ');readln(jum[i]);
          end;
     for i:=1 to n do
          begin
          if (kode[i]='m') or (kode[i]='M') then
             begin
             nama[i]:='monitor';
             harga[i]:=600000;
             end;
          begin
          if (kode[i]='f') or (kode[i]='F') then
             begin
             nama[i]:='hardisk';
             harga[i]:=300000;
             end;
          begin
          if (kode[i]='p') or (kode[i]='P') then
             begin
             nama[i]:='printer';
             harga[i]:=500000;
             end;
             end;

             tothar[i]  :=jum[i]*harga[i];
             totjum     :=totjum+jum[i];
             totjumhar  :=totjumhar+tothar[i];
             pajak      :=0.10*totjumhar;
             totbayar   :=totjumhar+pajak;
            
         
             end;
                      
          clrscr;
          writeln;
          writeln('Kode Nama    Jumlah  Harga   Total Harga ');
          writeln('---------------------------------------- ');
          for i:=1 to n do
          begin
          writeln('kode[i]:1,nama[i]:13,jum[i]:4,harga[i]:10,totharga[i]:12');
          end;
          writeln('---------------------------------------- ');
          writeln('Total jumlah produk = ',totjum);
          writeln('Total jumlah harga  =Rp ',totjumhar:0:2);
          writeln('Pajak 10%           =Rp ',pajak:0:2);
          writeln('Total bayar         =Rp ',totbayar:0:2);
          writeln('---------------------------------------- ');
          write ('input jumlah uang =Rp ');readln(uang);
          kembalian:=uang-totbayar;
          writeln('Uang kembalian= ',kembalian:0:2);
          writeln('Terima Kasih Atas Kunjungan Anda');
          writeln('----------**********------------');
          end;

     readln;
     donewincrt;
     end.

program tpw

uses
WinCrt; { Allows Writeln, Readln, cursor movement, etc. }

{ WinCrt Demo Program

(Press Ctrl-F9 to run this program.)

This program demonstrates how to use the WinCrt unit
to perform "traditional" screen I/O. This is the easiest
way to build text mode programs that run in a window.
For more information about the WinCrt unit, refer to
Chapter 14 in the Programmer's Guide. For information
on writing more advanced Windows applications, read
about the ObjectWindows application framework in the
Windows Programming Guide. }

begin
Writeln('Welcome to Turbo Pascal for Windows');
end.