PENGULANGAN
A. Pengertaian
Blok Pengulangan merupakan
suatu blok program yang memiliki mekanisme untuk melakukan pengeksekusian
statemen secara berulang., sehingga program yang kita tulis menjadi effisien.
B.
Macam-macam
Statemen Pengulangan
Ada tiga buah
konstruksi pengulangan, yaitu:
a) Statemen
for
Statemen
for digunakan untuk melakukan
pengulangan yang banyaknya sudah diketahui secara pasti
1) Bentuk
umum:
For
variabel_indeks:=batas_awal to batas_akhir do
statemen_yang_akan_diulang;
Atau
for
variabel_indeks:=batas_awal to batas_akhir do begin
statemen_yang_akan_diulang1;
statemen_yang_akan_diulang2;
.
. .
End;
2) Statemen
for untuk memecahkan masalah
matematika
Statement for dapat digunakan untuk memecahkan masalah menampilkan n bilangan
asli, menampilkan n bilangan Ganjil atau Genap, menjumlahkan n Bilangan Asli,
barisan aritmatika dan Deret Aritmatika, menghitung rataan n data sembarang, menghitung
faktorial, menghitung permutasi dan kombinasi, menghitung eksponen, dan mencari data minimum atau maksimum.
Sebagai contoh, menampilkan deret
bilangan asli dan menjumlahkan seluruh bilangan asli serta mencari nilai
reratanya dengan menggunakan statemen for.
Untuk pembahasan program pascal akan di bahas pada subbab D.
b) While . . . Do
1) Bentuk
umum:
While
(kondisi) do
Statemen;
Atau
While
(kondisi) do begin
Statemen1;
Statemen2;
.
. .
End;
2) Statemen
while . . . do untuk memecahkan
masalah matematika
Stetemen while . . . do dapat digunakan untuk memecahkan masalah matematika
diantaranya menampilkan barisan bilangan, menghitung deret aritmatika, menghitung
rataan dari n bilangan sembarang, menghitung faktorial dan menghitung permutasi
dan kombinasi.
Sama seperti pada statemen for pada statemen while . . . do kita akan menguji program while . . . do untuk menampilkan deret bilangan asli dan
menjumlahkan seluruh bilangan asli serta mencari nilai reratanya.. Untuk
pembahasan program pascal akan di bahas pada subbab D.
c) Repeat . . . Until
1) Bentuk
umum:
Repeat
Statemen;
.
. .
Until
(kondisi);
2)
Statemen Repeat . . . Until untuk
memecahkan masalah matematika
Stetemen Repeat
. . . Until dapat digunakan untuk memecahkan masalah matematika
diantaranya menampilkan barisan bilangan, menghitung deret aritmatika, menghitung
rataan dari n bilangan sembarang, menghitung faktorial, menghitung permutasi
dan kombinasi serta menghitung KPK.
Sama seperti pada statemen for dan statemen while . . . do pada statement Repeat . . . Until kita akan menguji program Repeat
. . . Until untuk menampilkan deret bilangan asli dan menjumlahkan
seluruh bilangan asli serta mencari nilai reratanya. Untuk pembahasan program
pascal akan di bahas pada subbab D.
C.
Materi
Deret Bilangan Asli dan Barisan Bilangan Asli dan Mean
Bilangan asli adalah
himpunan bilangan bulat positif yang bukan nol. Nama lain dari bilangan
ini adalah bilangan hitung atau bilangan yang bernilai positif (integer
positif). Contoh : {1, 2, 3, 4, 5, 6, 7, 8, 9, ...}
Barisan bilangan adalah urutan bilangan
yang dibuat dengan aturan tertentu dan dipisah oleh tanda koma (,). Contoh : 1,
2, 3, 4, . . .
Deret bilangan adalah penjumlahan dari urutan bilangan
yang dibuat dengan aturan tertentu dan dipisah oleh lambang penjumlahan (+).
Contoh: 1+2+3+4+...
Mean adalah nilai yang diperoleh dari jumlah
seluruh nilai dibagi dengan jumlah data.
Contoh soal: Carilah mean dari data di bawah ini:
25, 22, 23, 24, 26, 20, 22, 22, 26, 25.
Banyaknya datum = 10 datum
Jumlah seluruh datum = 25+22+23+24+26+20+22+22+26+25=235.
Jadi mean data tersebut adalah 23,5.
D.
Program
Pascal Deret Bilangan Asli dan Barisan Bilangan Asli dan Mean
1.
Statemen for
Program pascalnya adalah sebagai
berikut:
uses wincrt;
var
n,i:integer;
j, mean, x:real;
begin
writeln('Menampilkan, Menghitung dan Mencari Rerata Suatu Data');
writeln('Berapa banyaknya data?');
read(n);
for i:=1 to n do
begin
writeln('Data ke ',' ',i);
read(x);
j:=j+x;
end;
writeln;
writeln('Banyaknya data:',n);
writeln('Jumlah data:',j:0:2);
mean:=j/n;
writeln('Rerata data:',mean:0:2);
end.
2.
Statemen While . . . Do
Program pascalnya
adalah sebagai berikut:
uses
wincrt;
var
nilai,total,rata:real;
n,i:integer;
begin
write('jumlah data:'); readln(n);
i:=0;
total:=0;
while i < n do
begin
i:=i+1;
write('nilai data ',i ,':');
readln(nilai);
total:=total+nilai
end;
rata:= total/n;
writeln;
writeln('Total nilai :',total:0:2);
writeln('Jumlah data :',n:2);
writeln('Rata-rata nilai
:',rata:0:2);
end.
3.
Statemen Repeat . . . Until
Program pascalnya
adalah sebagai berikut:
uses wincrt;
var
a, x, n, b : integer;
begin
write ('Masukan banyaknya bilangan : '); readln (n);
repeat
begin
x := x + 1;
write ('Masukan angka
ke-',x,':'); readln (a);
b := b + a;
end;
until x = n;
writeln;
writeln('Banyaknya bilangan adalah','
',n);
writeln('Jumlah seluruh bilangan adalah',' ',b);
writeln('Rata-ratanya adalah','
',b/n:0:2);
end.
E.
Materi
Faktorial
Faktorial bilangan asli n adalah perkalian semua bilangan asli yang kurang atau sama
dengan n. Faktorial dilambangkan dengan tanda !. Jadi jika n!, maka dibaca "n
faktorial".
Faktorial biasa digunakan untuk menghitung banyaknya
susunan yang dapat dibentuk dari sekumpulan benda tanpa memperhatikan
urutannya.
Contoh soal:
Hitunglah nilai dari 6!
Penyelesaian
F. Program
Pascal untuk Menghitung Faktorial
1. Statemen
for
Program pascalnya adalah sebagai
berikut:
uses wincrt;
var
i,N,jumlah :integer;
begin
writeln('Menghitung nilai faktorial');
jumlah:=1;
write('Masukan nilai yang akan difaktorialkan : '); readln(N);
write('faktorial dari ',N,' adalah : ');
write('1');
for i:=2 to N do
begin
write(' x ',i);
jumlah:=jumlah*i;
end;
writeln;
writeln(' = ',jumlah);
end..
2.
Statemen While . . . Do
Program
pascalnya adalah sebagai berikut:
uses
wincrt;
Var
I,N,Faktor : integer;
Begin
Faktor := 1;
I := 1;
writeln('Menghitung nilai faktorial');
Write('Masukan nilai yang akan di
faktorialkan : ');
Readln(N);
While N >= I do
Begin
Faktor := Faktor*I;
I := I + 1;
End;
Writeln('Faktorial dari ', N ,' adalah ',
Faktor);
End.
4.
Statemen Repeat . . . Until
Program pascalnya
adalah sebagai berikut:
uses
wincrt;
var
n,i,faktorial:integer;
begin
writeln('Menghitung nilai faktorial');
Write('Masukkan sebuah bilangan: ');
Readln(n);
faktorial:=1;
if (n<>0) then
begin
i:=1;
repeat
faktorial:=faktorial*i;
i:=i+1;
until (i>n);
end;
Write('Faktorial dari ',n);
Writeln(' adalah ',faktorial);
end.Tugas akhir Pemrograman.
0 komentar:
Posting Komentar