Page 136 - Pemrograman Dasar kelas X

132 Pemrograman Dasar SMK Kelas X Sem 2

var i,n,suku:integer;

begin
readln(n);
suku:=2;

for i:=2 to n do
suku:=suku+5;

writeln(‘suku ke- ‘, n,’ adalah : ’, suku);
end.

Dari kode program di atas dapat dilihat bahwa suku pertama adalah 2, sehingga dinyatakan nilai
awal suku:=2. Berikutnya untuk suku kedua, ketiga dan seterusnya (i=2, 3, 4, ..) dihitung nilai suku

setelahnya adalah suku sebelumnya ditambah 5 (suku:=suku+5).
Berikut ini programnya dengan struktur WHILE DO.
Program Barisan;

var i,n,suku:integer;
begin

readln(n);
suku:=2;
i:=2

While i<=n do
Begin
suku:=suku+5;

i:=i+1;
End;
writeln(‘suku ke- ‘, n,’ adalah : ’, suku);

end.

Contoh 4.

Buatlah program untuk menentukan suku terbesar yang kurang dari n dari barisan
2, 4, 8, 16, ....
Jawab:

Masalah ini kurang cocok diselesaikan dengan struktur FOR DO karena banyaknya perulangan
tidak diketahui dengan pasti sehingga sulit mementukan ioterator dan nilai sentinelnya. Dengan

menggunakan struktur While Do dapat diperoleh solusi sebagai berikut.
Program Barisan2;
var n,suku:integer;

begin