contoh program 17

uses crt;

var

       uan, bun: real;

       bul: integer;

begin

clrscr;

       write('Masukkan Jumlah Uang            : '); readln(uan);

       write('Masukkan Berapa bulan kedepan   : '); readln(bul);

       

       for bul := 1 to bul do

       begin

                   bun := uan * 0.02;

                   uan := uan + bun;

       end;

       

       write('Jumlah Uang setelah ', bul, ' bulan, adalah ', uan:0:0); readln;

end.

contoh program 15

uses crt;

var

       bul, beb: integer;

begin

clrscr;

       write('Jumlah bebek sekarang 1000 bebek'); writeln;

       write('Masukkan berapa bulan kedepan   : '); readln(bul);

     

       beb:= 1000;

     

       for bul := 1 to bul do

                   begin

                   beb:= (beb * 20 div 100) + 1;

                   end;

                 

       write('Jumlah bebek setelah ', bul, ' Bulan kedepan   : ', beb);

       readln;

end.

contoh program 14

uses crt;

var

       bat, x, y: integer;

begin

clrscr;

       write('Masukkan Batas deret   : '); readln(bat);

       

       x:= 1;

       y:= 1;

                   

       write(x, ' ');

                   

       while (x <= bat) or (y <= bat) do

       begin

                   x:= x + y;

                   y:= y + x;

                   

                   if (x <= bat) then

                   write(x, ' ');

                   if (y <= bat) then

                   write(y, ' ');

       end;

       readln;

end.

contoh program 13

uses crt;

var

       deb, jam, men, det, njam, nmen: integer;

begin

clrscr;

       write('Masukkan Waktu dalam Detik   : '); readln(deb);

       

       jam := 0;

       men := 0;

       det := 0;

       

       njam := deb;

       nmen := deb;

       

       repeat

       begin

                   njam:= njam - 3600;

                   jam := jam + 1;

       end;

       until njam < 3600;

       

       repeat

       begin

                   nmen := nmen - 60;

                   men := men + 1;

                   

                   if (men > 60) then

                               men := men - 60;

       end;

       until nmen < 60;

       

       write(jam, ' Jam, ', men, ' Menit, ', nmen, ' Detik '); readln;

end.

contoh program 11

uses crt;

var

         ang: integer;

begin

clrscr;

         write('Masukkan sebuah angka   : '); readln(ang);

       

         repeat

         begin

                         ang := ang - 2;

         end;

         until ang <= 1;

       

         if ang = 0 then

                         write('Even')

         else

                         write('Odd');

                       

         readln;

end.