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

By On Thursday, April 2nd, 2015 Categories : Artikel

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.

26923151, 26923152, 26923153, 26923154, 26923155, 26923156, 26923157, 26923158, 26923159, 26923160, 26923161, 26923162, 26923163, 26923164, 26923165, 26923166, 26923167, 26923168, 26923169, 26923170, 26923171, 26923172, 26923173, 26923174, 26923175, 26923176, 26923177, 26923178, 26923179, 26923180, 26923181, 26923182, 26923183, 26923184, 26923185, 26923186, 26923187, 26923188, 26923189, 26923190 384716, 384717, 384718, 384719, 384720, 384721, 384722, 384723, 384724, 384725, 384726, 384727, 384728, 384729, 384730, 384731, 384732, 384733, 384734, 384735, 384736, 384737, 384738, 384739, 384740, 384741, 384742, 384743, 384744, 384745, 384746, 384747, 384748, 384749, 384750, 384751, 384752, 384753, 384754, 384755