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.

Check Also

Ciri-ciri dan Fungsi Surat Resmi yang wajib kalian ketahui

6 Ciri-ciri dasar Surat Resmi Menggunakan bahasa baku sesuai kaidah bahasa Indonesia dan Ejaan Yang …