CONTOH PROGRAM TRANSAKSI DI LESTORAN (PASCAL)
Program friedChicken;
uses crt;
type
TransactionRecord = record
nama : string;
jumlah : integer;
harga : longint;
end;
Var
transaksi : array[1..1000] of TransactionRecord;
ctr, ctr2 : integer;
hargasatuan : integer;
totalharga : longint;
totalayam, pil : integer;
Begin
clrscr;
repeat
writeln ('Menu');
writeln ('1. Penjualan');
writeln ('2. Lihat Detail Transaksi');
writeln ('3. Lihat Total Pendapatan');
writeln ('4. Keluar');
write ('Pilihan Anda:');
readln (pil);
case (pil) of
1: begin
clrscr;
ctr:=ctr+1;
write ('Nama Pembeli:');
readln (transaksi[ctr].nama);
write ('Jumlah Ayam:');
readln (transaksi[ctr].jumlah);
hargasatuan:=6000;
writeln ('Harga Satuan: Rp. 6000');
transaksi[ctr].harga:=transaksi[ctr].jumlah*hargasatuan;
writeln('');
writeln ('Detail Transaksi');
writeln ('Nama Pembeli:', transaksi[ctr].nama);
writeln ('Jumlah Pembeli:', transaksi[ctr].jumlah);
writeln ('Total Harga:', transaksi[ctr].harga);
end;
2: begin
clrscr;
writeln ('Dafar Transaksi');
ctr2:=1;
while (ctr2<=ctr) do
begin
writeln ('Transaksi :', ctr2);
writeln ('Nama Pembeli :', transaksi[ctr2].nama);
writeln ('Jumlah Beli :', transaksi[ctr2].jumlah);
writeln ('Total Harga :', transaksi[ctr2].harga);
writeln ('--------------------------------------');
ctr2:=ctr2+1;
end;
end;
3: begin
clrscr;
writeln ('Total Pendapatan');
ctr2:=1;
totalharga:=0;
totalayam:=0;
while (ctr2<=ctr) do
begin
totalharga:=totalharga+transaksi[ctr2].harga;
totalayam:=totalayam+transaksi[ctr2].jumlah;
ctr2:=ctr2+1;
end;
writeln ('Total Ayam :', totalayam);
writeln ('Total Pendapatan :', totalharga);
end;
4: begin
writeln ('');
end;
else
writeln ('Pilihan Tidak Valid');
end;
writeln ('Press Enter to Continue');
readln;
until (pil=4);
end.
SEMOGA BERMANFAAT
No comments:
Post a Comment