Minggu, 17 Februari 2013

Contoh Program Kasir/Toko

Program toko;
uses wincrt;
var
pengguna:string;
jumlah    :array [1..100] of integer;
kode_barang :array [1..100] of integer;
nama_barang    :array [1..100] of string;
harga    :array [1..100] of real;
total_beli:array [1..100] of real;
total_bayar    :real;
n,i,satuan:byte;

begin
    clrscr;
    total_bayar:=0;
    write('Nama    :');readln(pengguna);
    write('jumlah barang:');readln(n);
    writeln;
    for i:=1 to n do
    begin
    repeat
    write('kode barang ',i,' : ');readln(kode_barang[i]);
    case kode_barang[i] of
        1    : begin
                nama_barang[i]:='zilan shoes';
                harga[i]:=50000;
                satuan:=1;
                end;

        2    : begin
                nama_barang[i]:='zilan T-shirt';
                harga[i]:=20000;
                satuan:=1;
                end;

        else begin
              writeln('Barang tidak ada');
              writeln;
              satuan:=0;
              end;

        end;
        until satuan = 1;
        write('jumlah        :');readln(jumlah[i]);
        total_beli[i]:=jumlah[i] * harga[i];
        writeln;

    end;
    clrscr;
    writeln('===============================================================');
    writeln('                       TOKO ZILAN 7 GREEN','kasir:       ':15,pengguna:20);
    writeln('---------------------------------------------------------------');
    writeln('|Kode Barang|Nama Barang|Harga Satuan|Jumlah Barang|Total Beli|');
    writeln('---------------------------------------------------------------');
    for i :=1 to n do
        begin
        total_bayar:=total_bayar + total_beli[i];
    writeln('|',kode_barang[i]:11,'|',nama_barang[i]:11,'|Rp',harga[i]:10:0,'|',jumlah[i]:13,'|Rp', total_beli[i]:8:0,'|');
    writeln('---------------------------------------------------------------');
    end;
    writeln('|                        Total Bayar           | Rp',total_bayar:10:0,' | ');
    writeln('---------------------------------------------------------------');

readkey;
end.

Tidak ada komentar:

Posting Komentar