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.

Bumi Manusia, tales for the train, Liberate (The Vindicated #2), Resist Me (McCoy Raven Brothers #1), The Giving Tree, Once Upon a Quinceanera: Coming of Age in the USA, Bad Neighbor (Bad Boy Romance, #1), Alexander and the Terrible, Horrible, No Good, Very Bad Day, That Place, Romance: Rough Tough & Tender, Under a New York Skyline, If You Give a Mouse a Cookie, The Alchemist, The Stranger, In the Unlikely Event, The Very Hungry Caterpillar, I Am Legend, Inheritance (The Inheritance Cycle, #4), Awaken Me (The Jaded Series, #4), Where the Wild Things Are