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 [...]
Komentar