program penjumlahan

Program Penjumlahan_Deret_Bilangan_Bulat;

Uses Wincrt;

Var

bilangan_awal,bilangan_akhir,bilangan_setelah_awal,bilangan_penolong1,bilangan_penolong2:longint;

jumlah1,jumlah2,jumlah_akhir:longint;

Begin

Write (‘Masukkan bilangan awal yang diinginkan = ‘); readln (bilangan_awal);

Write (‘Masukkan bilangan akhir yang diinginkan = ‘); readln (bilangan_akhir);

If bilangan_akhir=bilangan_awal then write (bilangan_awal)

else begin

jumlah_akhir:=0;

jumlah1:=0;

jumlah2:=0;

bilangan_setelah_awal:=bilangan_awal+1;

bilangan_penolong1:=0;

bilangan_penolong2:=0;

Write (bilangan_awal);

Repeat

jumlah2:=jumlah2+bilangan_penolong2;

bilangan_penolong2:=bilangan_penolong2+1;

Until bilangan_penolong2>=bilangan_awal;

Repeat

jumlah1:=jumlah1+bilangan_penolong1;

bilangan_penolong1:=bilangan_penolong1+1;

Until bilangan_penolong1>bilangan_akhir;

Repeat

Write (‘ + ‘,bilangan_setelah_awal);

bilangan_setelah_awal:=bilangan_setelah_awal+1;

jumlah_akhir:=jumlah1-jumlah2;

Until bilangan_setelah_awal>bilangan_akhir;

Write (‘ = ‘,jumlah_akhir);

end

End.

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

w

Connecting to %s

%d blogger menyukai ini: