Untaian Kisah

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.

Related posts:

1. Materi Kuliah Struktur Data Materi kuliah Struktur Data dapat di unduh disini : ...
2. Contoh Soal Ujian Tengah Semester Praktikum Sistem Operasi Ini adalah contoh model soal yang akan keluar di UTS...
3. Soal Ujian Tengah Semester PSO UJIAN TENGAH SEMESTER Sebelum mengerjakan ketikkan : echo namakamu NPM...