PERCABANGAN

Percabangan adalah urutan-urutan aliran program diharuskan untuk melompat atau pergi ke suatu langkah tertentu yang tidak berurutan.

Jenis-jenis percabangan :
1. Percabangan bersyarat, yaitu percabangan yang mempunyai syarat.
2. Percabangan tidak bersyarat, yaitu percabangan yang tidak mempunyai syarat.

Contoh kasus percabangan :

1. program percabanga;
uses crt;
var n : real;
begin
clrscr;
write (‘masukan nilai :’); readln (n);
if n <> 60 then
writeln (‘lulus’);
else
writeln (‘tidak lulus’)
end.

5. program percabangan_5;
uses crt;
var nl : real;
begin
clrscr;
write (‘masukan nilai anda :’); readln (nl);
if nl >= 80 then
writeln (‘nilai bagus’);
else
writeln (‘nilai jelek’);
readln;
end.

PERULANGAN

Perulangan adalah istilah tidak resmi untuk menyatakan segala jenis struktur kendali yang mengalami pengulangan (interasi), yaitu, setiap struktur yang menyebabkan program berulang kali melaksanakan suatu blok kode.

Jenis-jenis perulangan (loop) :
1. loop yang sudah ditentukan pelaksanaannya
2. loop yang sudah dievakuasi secara continue
3. loop yang tidak pernah berakhir

Contoh kasus perulangan :

1. program perulangan;
uses crt;
var i : integer;
begin
clrscr;
for I := 1 to 5 do
writeln (‘STIMIK MURA’); readln;
end.

2. program perulangan_2;
uses crt;
var x : integer;
i : integer;
begin
clrscr;
write (‘masukan sembarang bilangan :’); readln (i);
x := 1;
while I < 6 do
writeln (‘ STIMIK MURA’);
x := x + 1;
readln;
end.

3. program perulangan_3;
uses crt;
var x : integer;
s : integer;
begin
clrscr;
s := 0
for j:= 1 to 5 do
begin
write (j);
s := s + j;
end;
writeln (s);
end.

4. program perulangan_4;
uses crt;
var x : integer;
begin
clrscr;
x := 1;
while x <= 3 do
begin
writeln (‘ILMU’);
writeln (‘KOMPUTER’);
writeln (‘SISTEM INFORMASI’);
x := x + 1;
end;
end.

5. program perulangan_5;
uses crt;
var i : integer;
j : integer;
begin
clrscr;
for i := 1 to 3 do
begin
writeln (‘ILMU’);
for j := 1 to 2 do
begin
writeln (‘KOMPUTER’);
end;
end;
end.