makalah sejarah java

program kasir

program kasir;
uses crt;
var
   kdbrg: array [1..50] of integer;
   nmbrg: array [1..50] of string;
   harga, tbeli : array [1..50] of real;
   jumlah       : array [1..50] of integer;
   n, i, ok     : byte;
   tbayar       : real;
   user         : string;

begin
  clrscr;
  tbayar := 0;
  write('Nama Pengguna : '); readln(user);

  write('Jumlah Barang : '); readln(n);
  writeln;
  for i := 1 to n do
    begin
    repeat
    write('Kode barang ',i,' : '); readln(kdbrg[i]);
    case kdbrg[i] of
     111 : begin
            nmbrg[i] := 'Saos Tomat';
            harga[i]:= 4000;
            ok := 1;
            end;

     211 : begin
            nmbrg[i] := 'Mie Goreng';
            harga[i]:= 2000;
            ok := 1;
            end;

     311 : begin
            nmbrg[i] := 'Mie Rebus';
            harga[i]:= 1800;
            ok := 1;
            end;

     411 : begin
            nmbrg[i] := 'Kornet Sapi';
            harga[i]:= 6000;
            ok := 1;
            end

     else begin
          writeln('Kode tidak terdaftar!');
          writeln;
          ok := 0;
          end;

    end;
    until ok = 1;
    write('Jumlah        : '); readln(jumlah[i]);
    tbeli[i] := jumlah[i] * harga[i];
    writeln;

  end;
  clrscr;
  writeln('STRUK BELANJA');
  writeln('TOKO WIlda','Kasir : ':50,user:15);
  writeln('------------------------------------------------------------------------------');
  writeln('| Kode Barang | Nama Barang  | Harga Satuan   | Jumlah Barang | Total Beli   |');
  writeln('------------------------------------------------------------------------------');
  for i := 1 to n do
    begin
    tbayar := tbayar + tbeli[i];
    writeln('| ',kdbrg[i]:11,' | ',nmbrg[i]:12,' | Rp',harga[i]:12:0,' | ',jumlah[i]:13,' | Rp', tbeli[i]:10:0,' |');
    writeln('------------------------------------------------------------------------------');
    end;
    writeln('|                        Total Bayar                          | Rp',tbayar:10:0,' | ');
    writeln('------------------------------------------------------------------------------');

readkey;
end.