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

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

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.

Advertisement (Dibawah ini adalah Iklan)
loading...

Married to the Bad Boy Young Adult Bad Boy Romance.ePub

Darshan.pdf

Fear and Loathing in America The Brutal Odyssey of an Outlaw Journalist.lit

Feed Newsflesh Trilogy.rtf

The Old Patagonian Express By Train Through the Americas.amz

It Had to Be You Chicago Stars.kindle

Murder in the Cathedral.ePub

I ll Give You the Sun.rtf

Abhorsen Abhorsen.ePub

Island.ePub

The Paul Street Boys.docx

Haunted.ePub

The No Ladies Detective Agency No Ladies Detective Agency.audio

Fe Fi FOE Comes.ePub

The Revolution Betrayed.amz

A Death in the Family.audio

Damaged Goods Things You Must Know About Healing From Abuse.kindle

Reimagined How amazing people design lives they love.audio

Meditation on Space Time.lit

His Black Wings.ePub

BTPN Movies · Top eBooks · IBDB