Membuat Program Kasir dengan Array dan Record di Free Pascal

Assalamualaikum,
Haloo gaess,

Saya mau cerita sedikit nih, kemarin ujian algoritma 2 ada soal membuat program kasir dengan menggunakan array dan record, tapi ketika saya mau nulis programnya waktu sudah keburu habis. haddeeeh.. !!

Ini penampakan program yang saya buat, tapi ngerjainnya di rumah.

Sebenarnya soal ujiannya ga seperti bentuk diatas, hanya saja bagaimana logika membuat program dengan bahasa pascal menggunakan array dan record.

alur program yang saya buat adalah :
input nama pembeli
input jumlah obat yang dibeli
kemudian lakukan looping dari jumlah yang dibeli untuk..
input nama obat,harga satuan, dan jumlah

harga satuan dan jumlah dikalikan menghasilkan total..

total pembayaran adalah jumlah dari total harga obat yang dibeli.

berikut Source code dari program :

program kassiirr;

uses crt;

type
  data = record
  nama : string[20];
  harga : real;
  jumlah : integer;
  total : real;
end;

var
  saya : string;
  jumlahobat,i,j : integer;
  totalpembelian,tot,kembali :real;
  nama :string[20];
  obat :array [1..100] of data;

begin
 clrscr;
 writeln('==========================================================');
 writeln('                    TOKO OBAT 36Jam                       ');
 writeln('==========================================================');
 writeln();

  write('Nama Pembeli             : ');readln(saya);
  write('Jumlah obat yang dibeli  : ');readln(jumlahobat);
  writeln;

   for i := 1 to jumlahobat do begin
    writeln('Masukkan data ke-',i:2);

    begin
     write('Nama Obat   : ');readln(obat[i].nama);
     write('Harga Satuan: ');readln(obat[i].harga);
     write('Jumlah      : ');readln(obat[i].jumlah);
    end;
    writeln;
   end;
   writeln;

 writeln('Nama Pemebeli            :',saya);
 writeln('| No |    Nama  Obat     | Harga Satuan | Jumlah |    Total    |');

  begin
   obat[i].total:=0;
    for i := 1 to jumlahobat do begin
      obat[i].total:=obat[i].harga*obat[i].jumlah;
       write(i:4);
       write(obat[i].nama:17);
       write(obat[i].harga:18:2);
       write(obat[i].jumlah:6);
       writeln(obat[i].total:17:2);
    end;

 writeln('----------------------------------------------------------------');

 for j:= 1 to jumlahobat do
  tot:= tot+obat[j].total;
  writeln('                            Total Pembayaran    = ',tot:11:2);
 end;

 readln;
end.

sekian dulu deh. Semoga membantu.

Wassalamualaikum Wr.Wb
ryan*/

Terima Kasih

5 komentar

Write komentar

Unknown

AUTHOR

Maret 27, 2016 9:49 PM delete

obat lupakan mantan njir banget lu ndro
btw mantap bro

Oktober 19, 2019 11:03 AM delete

Wkwkwkwk

Anonim

Maret 08, 2021 4:50 PM delete

Lumayan

November 16, 2021 10:01 PM delete

tengkyu banget broo sehat teruss

Desember 26, 2022 8:58 AM delete

makasiii bang udh bikin otak gw kebuka, tpi ada satu pertanyaan bang.
pas di running ko inputan hasil recordnya bisa pas sama writeln nama produk dll bang? mohon penjelasannyaa

Ryan's Blog