LATIHAN PERULANGAN PADA PASCAL (Bagian 2)

LATIHAN PERULANGAN PADA PASCAL (Bagian 2)
Sebelumnya saya sudah posting mengenai Latihan Perulangan Pada Pascal (Bagian 1). Kali ini saya akan melanjutkan posting berapa latihan - latihan lagi dengan kasus - kasus yang lumayan tambah rumit langsung saja.

Kasus 1
Buatlah program untuk menghitung jumlah yang harus dibayar oleh nasabah jika meminjam uang disuatu koperasi dimana bunganya dijadikan pokok pada bulan berikutnya.

Bingung...? langsung saja ketikan listing di bawah ini pada pascal
       uses crt;
   var
     awal,akhir,rpbunga   : real;
     bunga, lama, i       : integer;
     mau                  : char;
   begin
     repeat
       clrscr;
       write('Pinjaman Awal = Rp. ');readln(awal);
       write('Bunga [%] = ');readln(bunga);
       write('Lamanya Pinjaman [Periode] = ');readln(lama);
       writeln('------------------------------------------------');
       writeln(' Periode Bunga [%] Pinjaman Pinjaman Bunga [Rp] ');
       writeln('                    Awal      Akhir');
       writeln('------------------------------------------------');
       for i:=1  to lama do
       begin
         akhir:=awal + ((bunga/100) * awal);
         rpbunga:=0.1 * awal;
         writeln(i:5, bunga:9, awal:11:0, akhir:11:0, rpbunga:10:0);
            awal:=akhir;
       end;
       writeln('Mau Menghitung Lagi ? [Y/N] : ');
       readln(mau);
       until mau='N';
   readln;
   end.

Jika suda di ketik maka tampilannya akan seperti di bawah ini

Tampilan Hasilnya :

Di bawah hasil hitungannya ada pertanyaan "Mau Hitung Lagi" Jika kita pilih Y maka akan di lakukan perhitungan lagi dari awal dan jika kita pilih T akan berhenti dan keluar

Kasus 2

Ubah perintah For dari kasus 1 dengan perintah While Do

Langsung saja ketikan scrib atau listing di bawah ini :

   uses crt;

   var

     awal,akhir,rpbunga   : real;

     bunga, lama, i       : integer;

     mau                  : char;

   begin

     repeat

     clrscr;

       write('Pinjaman Awal = Rp. ');readln(awal);

       write('Bunga [%] = ');readln(bunga);

       write('Lamanya Pinjaman [Periode] = ');readln(lama);

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

       writeln(' Periode Bunga [%] Pinjaman Pinjaman Bunga [Rp] ');

       writeln('                    Awal      Akhir');

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

       i:=1;

       while i <= lama do

       begin

         akhir:=awal + ((bunga/100) * awal);

         rpbunga:=0.1 * awal;

         writeln(i:5, bunga:9, awal:11:0, akhir:11:0, rpbunga:10:0);

            awal:=akhir;

         i:=i+1;

       end;

       writeln('Mau Menghitung Lagi ? [Y/N] : ');readln(mau);

       until mau='n';

   readln;

   end.

Jika suda di ketik maka tampilannya akan seperti di bawah ini:

Tampilan Hasilnya :

sama seperti di hasil program dari kasus 1 di bawah hasil hitungannya ada pertanyaan "Mau Hitung Lagi" Jika kita pilih Y maka akan di lakukan perhitungan lagi dari awal dan jika kita pilih T akan berhenti dan keluar.

Lanjut juga di Latihan Perulangan Pada Pascal (Bagian 3)

Password : pusatkomputerindo.blogspot.com Bagi Kalian Para OTAKU Bisa Di Lihat Daftar Anime SPRING 2015 Yang Akan Rilis APRIL 2015
LATIHAN PERULANGAN PADA PASCAL (Bagian 2)

LATIHAN PERULANGAN PADA PASCAL (Bagian 2) 10out of 10 based on 25 ratings. 35 user reviews.

Anda sedang membaca artikel tentang LATIHAN PERULANGAN PADA PASCAL (Bagian 2). Bila Anda merasa mendapat manfaat dari artikel ini, jangan lupa LIKE fanspage kami di atas, sebagai bentuk apresiasi terhadap blog PUSATKOMPUTERINDO. Terimakasih. ^_^

Related Posts: