Program jual beli barang paskal (gak jalan)

[Braincode]

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;