Tugas UAS Algoritma Pemograman

Penentuan Permasalahan
Pada program kali ini penulis akan membuat program deret bilangan genap sampai nilai maxsimal, dimana disetiap suku ke-5 dibuat satu group dan masing- masing group tersebut harus mempunyai jumlah.
Contoh:
Jika kita input nilai maxsimal nya 25, maka hurus:
Group 1:
2
4
6
8
10
Jumlah 30
Group 2
12
14
16
18
20
Jumlah 80
Group 3
22
24

2. Penyelesaian Masalah
Pada program kali ini penulis menggunakan metode notasi perulangan for… to...do dan didalam perulangan tsb penulis menyisipkan notasi pemilihan if.. than untuk menentukan bilangan genap,group serta jumlah masing-masing group. Penulis membutuhkan 4 variabel, dan untuk menjumlahkan masing-masing group maka kita perlu merubah harga menjadi 0 (nol) kembali setelah mendapatakan jumlah dari satu group di atasnya.

3. Algoritma Pemograman
Membuat_deret_bilangan_genap
Kamus
I,max,N,jumlah,A: Integer
Algoritma
Input(max)
i←1
for N ← 1 to max do
begin
if N mod 2 = 0 then
begin
if A mod 5 = 0 then
output (‘ group ‘,i)
output (‘ ,N)
A← A + 1
Jumlah ← jumlah + N
If A mod 5 = 0 then
Begin
Outut (‘ jumlah’,jumlah)
Jumlah ← 0
Endif
Endif
Endif
End.

4. Program Dalam Pascal
program deret_bilangan_genap;
uses wincrt;
var i,max,N,jumlah,A:integer;
begin
write(' masukan nilai max: ');
readln(max);
i:=1;
for N:= 1 to max do
begin
if N mod 2 = 0 then
begin
if A mod 5 = 0 then
writeln('grup ',i);
writeln(' ',N);
A:=A+1;
jumlah:=jumlah+N;
if A mod 5 = 0 then
begin
writeln(' jumlah',jumlah);
jumlah:=0;
if A mod 5 = 0 then
i:=i+1;
end;
end;
end;
end.




5. Hasil Eksekusi


Contoh jika kita menginputkan 25 maka