Hallo Sahabat VIYOVI ku dimanapun anda berada. Bagaimana dengan kabar anda ? Semoga sehat dalam lindungan Tuhan ya sob. Disini saya memberikan sebuah artikel yang kebetulan sesuai dengan jurusan saya yaitu Ilmu Komputer. Disini terdapat penjelasan tentang sebuah program yaitu pengulangan (For) dengan menggunakan Pascal
Selamat membaca & jangan lupa dicoba ya ....
Blok
Pengulangan merupakan suatu blok program yang memiliki mekanisme untuk
melakukan statemet secara berulang. Hal itu tentu akan membuat program yang
ditulis menjadi lebih efisien. Salah satu kelebihan komputer dibandingkan
manusia adalah kemampuannya untuk melaksanakan perintah berulang kali. Di dalam
algoritma, pengulangan dapat dilakukan sejumlah n kali atau sampai kondisi
berhenti pengulangan tercapai.
Struktur Pengulangan
1.
Struktur Pengulangan terdiri atas dua bagian :
· Kondisi Pengulangan, yaitu ekspresi boolean yang
harus dipenuhi untuk melaksanakan pengulangan.
· Badan (body) pengulangan yaitu bagian algoritma
yang diulang.
2.
Strukrur Perulangan biasanya disertai bagian :
·
Inisialisasi yaitu aksi yang dilakukan sebelum
pengulangan dilakukan pertama kali.
·
Terminasi yaitu aksi yang dilakukan setelah
pengulangan selesai dilaksanakan.
3.
Struktur Perulangan secara umum :
<inisialisasi>
Awal Pengulangan
Badan Pengulangan
<terminasi>
Pernyataan Dalam Struktur
Pengulangan
1. Pernyataan
For
2. Pernyataan
While
3. Pernyataan
Repeat
A. Statement
For
Pernyataan for adalah konstruksi
pengulangan tanpa kondisi (unconditional looping) artinya instruksi-instruksi
di dalam badan pengulangan diulangi sesuai dengan jumlah pengulangan yang
diinginkan. Jumlah pengulangan sudah diketahui sebelum perintah perulangan
dieksekusi.
Contoh Menggunakan For (Naik):
uses crt;
var
i
:integer;
begin
clrscr;
for i:=
1 to 5 do
begin
writeln(i);
end;
readkey;
end.
Contoh Menggunakan For(Turun) :
uses crt;
var
i
:integer;
begin
clrscr;
for i:=
5 downto 1 do
begin
writeln(i);
end;
readkey;
end.
B. Statement
While – do
Berbeda dengan bentuk pengulangan
for, pada konstruksi pengulangan while ini terdapat suatu kondisi yang harus
diperiksa terlebih dahulu. Apabila kondisi bernilai true, maka statement di
dalam blok while akan dikerjakan, sedangkan jika false maka program tidak akan
melakukan perulangan.
uses crt;
var
i :
integer;
begin
clrscr;
i:=1;
while
(i<=20) do
begin
write(i,' ');
i:=i+2;
end;
readkey;
end.
C. Statement
Repeat – until
Penyataan Repat ... until
digunakan untuk mengulang (repeat) sutu pernyataan atau blokpernyataan
terus-menerus sampai (until) kondisi ungkapannya tidak terpenuhi (false).
uses crt;
var
i :
integer;
begin
clrscr;
i:= 0;
repeat
i:=i+1;
writeln(i);
until i=5;
readkey;
end.
Contoh Soal & Jawaban :
1. Buatlah
Program dibawah ini , dengan menggunakan 2 For :
Jawaban :
uses
crt;
var
i,j,n :
integer;
begin
clrscr;
write('Masukkan Nilai N :');
readln(n);
for i:=
1 to n do
begin
for
j:= 1 to i do
begin
write('* ');
end;
writeln;
end;
readkey;
end.
2. Buatlah
Program dibawah ini , dengan menggunakan 2 For :
Jawaban :
uses
crt;
var
i,j,n :
integer;
begin
clrscr;
write('Masukkan Nilai N :');
readln(n);
for i:=
1 to n do
begin
for
j:= 1 to n do
if (i+j>=n+1) then
begin
write('* ');
end
else
begin
write(' ');
end;
end;
writeln;
end;
readkey;
end.
3. Buatlah
Program dibawah ini , dengan menggunakan 2 For :
Jawaban :
uses
crt;
var
i,j,n :
integer;
begin
clrscr;
write('Masukkan Nilai N :');
readln(n);
for i:=
1 to n do
begin
for
j:= 1 to (n+i-1) do
begin
if (i+j>=n+1) then
begin
write('* ');
end
else
begin
write(' ');
end;
end;
writeln;
end;
readkey;
end.
4. Buatlah
Program dibawah ini , dengan menggunakan 2 For :
Jawaban :
uses
crt;
var
i,j,n :
integer;
begin
clrscr;
write('Masukkan Nilai N :');
readln(n);
for i:=
1 to n do
begin
for
j:= 1 to ((2*n)-i) do
begin
if (j>=i) then
begin
write('* ');
end
else
begin
write(' ');
end;
end;
writeln;
end;
readkey;
end.
5. Buatlah
Program dibawah ini , dengan menggunakan 2 For :
Jawaban :
uses
crt;
var
i,j,n :
integer;
begin
clrscr;
write('Masukkan Nilai N :');
readln(n);
for i:=
1 to n do
begin
for
j:= 1 to n do
begin
if (i+j<=n+1) then
begin
write('* ');
end
else
begin
write(' ');
end;
end;
writeln;
end;
readkey;
end.
6. Buatlah
Program dibawah ini , dengan menggunakan 2 For :
Jawaban :
uses
crt;
var
i,j,n :
integer;
begin
clrscr;
write('Masukkan Nilai N :');
readln(n);
for i:=
1 to n do
begin
for
j:= 1 to n do
begin
if (j>=i) then
begin
write('* ');
end
else
begin
write(' ');
end;
end;
writeln;
end;
readkey;
end.
Sekian artikel yang dapat saya
sampaikan , semoga dapat bermanfaat untuk kita semua . Dan semoga artikel ini
dapat dimengerti oleh pembaca. Sering – sering untuk membaca artikel dari
VIYOVI . Dan tunggu artikel dari saya selanjutnya. Terimah Kasih ....
Baca Juga :Yuk Belajar Bahasa Pascal...
Perulangan Pada Bahasa Pascal
4/
5
Oleh
Unknown
- Dilarang memberikan komentar berbau SARA, pornografi dan provokasi
- Dilarang menyematkan link aktif
- Berkomentarlah sesuai dengan isi konten
- Komentar akan kami respon secepatnya
Terima Kasih telah berkunjung