Spoiler for
PROGRAM:
program data;
uses crt;
TYPE
Pembelian=record
sembako1: string[25];
harga1 : real;
sembako2: string[25];
harga2 : real;
sembako3: string[25];
harga3 : real;
sembako4: string[25];
harga4 : real;
sembako5: string[25];
harga5 : real;
totalharga: real;
diskon : real;
totalbayar: real;
end;
var beli
embelian;
f :file of pembelian;
pil,i : byte;
procedure buat_file_baru;
begin
clrscr;
{$i-};
assign (f,'c:\beli.dat');
reset(f);
{$i+};
if ioresult0 then rewrite(f);
seek (f,filesize(f));
(*Pemasukan Data*)
repeat
with beli do
begin
writeln('Jumlah data:',filesize(f));
writeln('Tekan enter untuk mengakhiri');
writeln('NO:',filesize(f)+1);
write('sembako 1 : '); readln(sembako1);
begin
close(f);
exit;
end;
write('harga1 :') ; readln(harga1);
write('sembako 2 :') ; readln(sembako2);
write('harga2 :') ; readln(harga2);
write('sembako 3 :') ; readln(sembako3);
write('harga3 : '); readln(harga3);
write('sembako 4 :'); readln(sembako4);
write('harga4 : '); readln(harga4);
write('sembako 5 :'); readln(sembako5);
write('harga5 : '); readln(harga5);
totalharga:=(harga1)+(harga2)+(harga3)+(harga4)+(h arga5);
writeln('total harga :',totalharga:1:2);
if (totalharga=49000) then
writeln('diskon:40000')
else if (totalharga=30000) then
writeln('diskon:30000')
else if (totalharga=20000) then
writeln('diskon:20000')
else if (totalharga=10000) then
writeln('diskon:10000')
else
writeln('diskon:0');
totalbayar:=(totalbayar)-(diskon);
writeln('totalharga:',totalharga:1:2);
writeln;
write(f,beli);
end;
until false;
end;
procedure tampil_data;
begin
clrscr;
{$i-};
assign(f,'c:\beli.dat');
reset(f);
{$i+};
if ioresult0 then
begin
writeln('file beli tidak ditemukan!');
write('tekan enter... ');
readln;
exit;
end;
with beli do
repeat
read(f,beli);
writeln('sembako 1 :',sembako1);
writeln('harga 1 :',harga1:1:2);
writeln('sembako 2 :',sembako2);
writeln('harga 2 :',harga2:1:2);
writeln('sembako 3 :',sembako3);
writeln('harga 3 :',harga3:1:2);
writeln('sembako 4 :',sembako4);
writeln('harga 4 :',harga4:1:2);
writeln('sembako 5 :',sembako5);
writeln('harga 5 :',harga5:1:2);
totalharga:=(harga1)+(harga2)+(harga3)+(harga4)+(h arga5);
writeln ('total harga :',totalharga:1:2);
if (totalharga=49000) then
writeln('diskon:40000')
else if (totalharga=30000) then
writeln('diskon:30000')
else if (totalharga=20000) then
writeln('diskon:20000')
else if (totalharga=10000) then
writeln('diskon:10000')
else
writeln('diskon:0');
totalbayar:=(totalharga)-(diskon);
writeln('totalharga:',totalbayar:1:2);
writeln;
until eof(f);
close(f);
writeln('Tekan ENTER untuk kembali ke menu');
readln;
end;