Soal :
Buatlah source code Pascal untuk program laporan keuangan yang tiap datanya mengandung no, tanggal, bulan, tahun,
keterangan, dan biaya. Ketentuan:
- Buat data dalam bentuk struktur data
- Buat prosedur untuk menghitung jumlah pengeluaran berdasarkan rentang data
- Buat prosedur untuk menampilkan hasil
Jawab :
program LapKeu;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
pengeluaran=record
no,tgl,bln,thn:integer;
keterangan:String[25];
biaya:real;
end;
var
jml_eks, i : integer;
ekspense:array[1..1000] of pengeluaran;
procedure TampilanData;
begin
writeln(‘—————–Laporan Keuangan—————–’);
writeln(‘————————————————–’);
writeln(‘|No |Tanggal | Keterangan | Biaya |’);
writeln(‘————————————————–’);
for i:=1 to jml_eks do
begin
with ekspense[i] do
writeln(‘|’,No:3,’|',tgl:2,’/',bln:2,’/',
thn:2,’|',keterangan:25,’|',biaya:10:2,’|');
end;
end;
procedure JumlahData(awal,akhir:integer);
var hasil:real;
begin
for i:=awal to akhir do
begin
hasil:=hasil+ekspense[i].biaya;
end;
writeln(‘Jumlah data dari ‘,awal,’s.d.’,akhir,
‘ = ‘, hasil:10:2);
end;
procedure inputdata(nomor:integer);
begin
with ekspense[nomor] do
begin
No:=nomor;
writeln(‘No. ‘, No);
write(‘Tanggal = ‘);readln(tgl);
write(‘Bulan = ‘);readln(bln);
write(‘Tahun = ‘);readln(thn);
write(‘Keterangan = ‘);readln(keterangan);
write(‘Biaya = ‘);readln(biaya);
end;
end;
begin
write(‘Berapa jumlah data? ‘);readln(jml_eks);
for i:=1 to jml_eks do
begin
inputdata(i);
end;
tampilandata;
jumlahdata(1,jml_eks);
readln;
end.
No related posts.
