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

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

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.

Cilla Lee-Jenkins: Future Author Extraordinaire, The Twits, Jacked Up (Birmingham Rebels, #3), Pachinko, The Virgins, I Could Pee on This And Other Poems by Cats, Blizzard, Hooray for Fish!, The Art of Peace, Head Start, The Red Pyramid (Kane Chronicles, #1), Bonded by Blood, Round Robin (Elm Creek Quilts, #2), Food Swings: 125 Recipes to Enjoy Your Life of Virtue and Vice, On Tyranny: Twenty Lessons from the Twentieth Century, The Master Will Appear, A New Jersey Love Story: Troy & Camilla, Turbulence (Kennedy Stern #5), The Hating Game