Okeh pada kesempatan malam ini saya akan membahas bahasa
pemograman pascal tentang perulangan for, namun disini perulanganya dapat kita
isi sendiri, dalam arti sesuai keinginan kita mau mengulang berapa kali.
Simak saja langsung yah sobat Menghitung Jumlah Bilangan
Perulangan FOR Dengan Nilai Dinamis
programjum_bil2;
uses crt;
var
i, n: integer;
jum, bil: real;
begin
clrscr;
write(‘Banyak bilangan : ‘);read(n);
jum := 0;
For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil);
jum := jum+bil;
end;
writeln(‘Jum
= ‘,jum:0:2);
readkey;
end
ini adalah gambar script yang ada di atas yang telah
di tulis di turbo pascal.
Dan ini program
yang sudah di jalankan
Anda bissa mendownloadnya DISNI
Itu saja yang bias saya tulis semoga bermanfaat
Terimakasih telah berkunjung di blog saya
