tugas praktikum Looping

assalaamualaikum... udah lama ngak ngepost nih,, diakibatkan karena kesibukan masing-masing dari admin blog ini. tapi saya nyempetin untuk memposting sebuah tugas praktikum untuk mata kuliah algoritma pemrograman, materi praktikum ini adalah Looping atau perulangan. langsung saja soalnya:

buatlah program (pascal) untuk menampilkan tabel depresiasi/penyusutan aktiva / harta tetap dengan menggunaka metode garis lurus dalam persoalan akuntansi berdasarkan masukan:

• Harga perolehan aktiva/ nilai buku
• nilai residu sisa
• Taksiran umur aktiva

 langsung saja programnya ya..

ini scriptnya

uses crt;

var perolehan,debet, residu, kredit, depresiasi,HPerolehan: real;

    umur, a : byte;

    begin

    clrscr;

           write('Harga Perolehan Aktiva: '); readln(perolehan);

           write('Nilai Residu sisa     : '); readln(residu);

           write('Taksiran Umur Aktiva  : '); readln(umur);

           writeln;

           writeln('                     Tabel Depresiasi  ');

           writeln('                   Metode Garis Lurus ');

           writeln('--------------------------------------------------------');

           writeln('Tahun   Depresiasi      Akumulasi      Harga    ');

           writeln('                (Debet)       Depresiasi    Perolehan  ');

           writeln('                                       (Kredit)       Aktiva    ');

           writeln('--------------------------------------------------------');

           writeln('                                                        5000000    ');

            depresiasi :=(perolehan-residu)/umur;

            debet     :=450000;

             a:=1;

           while a <= umur do

           begin

                HPerolehan :=perolehan-depresiasi;

                kredit :=depresiasi+debet;

                writeln(a:3, debet:13:0, depresiasi:15:0, HPerolehan:13:0);

                depresiasi:=kredit;

                a:=a+1;

           end;

           writeln('------------------------------------------------');

           readln;

end.

outputnya :

ya itulah mungkin yang bisa saya berikan terimakasih dan semog bisa membantu...