Perulangan

While-Do

While <kondisi> do

aksi

endwhile

Algoritma Hitung_Rata_rata

Deklarasi

N: integer

x: integer

k: integer

jumlah: integer

rerata: real

Deskripsi

read(N)

jumlahß0

kß1

while k < N do

read(x)

jumlahßjumlah+x

kßk+1

endwhile

Rerataßjumlah/N

Write(rerata)

Program JUMLAH_DERET;

Var

N: integer;

angka: integer;

jumlah: integer;

Begin

write(‘Berapa N?’); readln(N);

jumlah:=0;

angka:=1;

while angka <= N do

Begin 

jumlah:=jumlah + angka;

angka:=angka+1;

End;

Writeln(“Jumlah deret = ‘, jumlah);

End.

Repeat-Until

Repeat

aksi

until <kondisi>

Algoritma JUMLAH_DERET

Deklarasi

N: integer

angka: integer

jumlah: integer

Deskripsi

read(N)

jumlahß0

angkaß1

Repeat

jumlahßjumlah+angka

angkaßangka+1

Until

Write(jumlah)

Program JUMLAH_DERET;

Var

N: integer;

angka: integer;

jumlah: integer;

Begin

write(‘Berapa N?’); readln(N);

jumlah:=0;

angka:=1;

Repeat

jumlah:=jumlah+angka;

angka:=angka+1;

Until angka > N;

writeln(‘Jumlah deret = ‘, jumlah);

End.

For

For peubahßnilai_awal to nilai_akhir do

aksi

endfor

Algoritma JUMLAH_DERET

Deklarasi

N: integer

angka: integer

jumlah: integer

Deskripsi

read(N)

jumlahß0

For angkaß1 to N

jumlahßjumlah + angka

Endfor

Write(jumlah)

Program JUMLAH_DERET;

Var

N: integer;

angka: integer;

jumlah: integer;

Begin

write(‘Berapa N?’); readln(N);

jumlah:=0;

For angka:=1 to N

begin

jumlah:=jumlah+angka;

end;

Writeln(‘Jumlah deret = ‘, jumlah);

End.