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

How To, Tutorial

How to properly update Database with EF core code first migration?

How to properly update Database with EF core code first migration