Mengitung Deret Bilangan dengan Pascal

25 Desember 2008

Mengitung Deret Bilangan dengan Pascal

Hello temen para pecinta Pascal, berikut ini ada sedikit trik buat menghitung jumlah deret bilangan. Algoritmanya:
1. Melakukan input banyaknya bilangan yang akan dijumlahkan.
2. Lakukan perulangan dari 1 hingga banyak bilangan yang diinputkan pada langkah pertama. Di dalam perulangan tersebut lakukan proses input bil, dan masukkan nilai untuk suatu variabel misalkan tot, dengan nilai variabel tot ditambahkan variabel bil.
3. Proses perulangan pada langkah kedua akan berulang terus sebanyak input data pada langkah satu. Dan variabel tot akan ditambahkan terus dengan variabel bil secara berulang-ulang sebanyak input data pada langkah satu.

Untuk source code-nya adalah sebagai berikut :

Uses wincrt;

Var
maks,n,bil,tot : Integer;

Begin
writeLn (’Masukan berapa banyak bilangan yang ingin dijumlahkan.’);
write (’Banyak Bilangan : ‘);
ReadLn (maks);
writeLn (’——————————————————’);
For n:=1 to maks do
Begin
Write (’Masukan Bilangan ke-’,n,’ : ‘);
ReadLn (bil);
tot := tot + bil;
End;
writeLn (’——————————————————’);
WriteLn (’Jumlah = ‘,tot);
End.