Contoh Program Menghitung Jumlah Perkalian Deret Menggunakan REPEAT UNTIL Pada Turbo Pascal

Berikut ini adalah program untuk menghitung jumlah perkalian deret suatu bilangan dengan batas yang kita tentukan sendiri. Dengan program kita bisa mengetahui berapa hasil perkalian suatu bilangan yang terurut dari angka satu sampai batas angka yang telah ditentukan.

Kode Program:

program jumlah_perkalian_deret(faktorial);

var

   i            : integer;

   batas        : integer;

   jumlah       : integer;

begin

     write('masukan Batas= '); readln (batas);

     jumlah   := 1;

     i        := 0;

       repeat

           i      := i + 1;

           write(i:2 ,'x' :2);

           jumlah := jumlah * i;

       until i = batas;

           writeln('= ',jumlah);

     readln;

end.

Hasil Program:

Selamat Mencoba,, semoga berhasil... ^_^