Pascal : Contoh program laporan keuangan

    
    program Laporan_Keuangan;
    {$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 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.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.


Tags : Contoh pascal, laporan keuangan