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.

Sold as a Fake Fiancee, Chasing Ghosts, The Ugly Girl Party, Roamer (Nomad Series, #3), Jaded and Tyed, Soft souls living in a Harsh world, Like Water for Chocolate, A Walk in the Woods, Plume, Future City, Hot Bastard Next Door: A Boy Next Door, Second Chance Romance, One Night In Vegas: A Billionaire Second Chance Romance, Civil War Memoirs of Louisa May Alcott (Unabridged): Including Letters, Hospital Sketches & Biography of the Author - Autobiographical account of the author ... Union Army during the American Civil War, The Berenstain Bears Meet Santa Bear, I Love You Coupons, Pandemic Sorrow Series (Jag, Rush, & Roxy 3-in-1), Prophecy's Daughter, Wrecked, Island of Legends (Unwanteds, #4), The Strange Case of the Alchemist's Daughter