Osnovi programiranja
dr Boban Stojanović
1
Naredbe uslovnog grananja
Rešavanje većine problema često zahteva izvršavanje određenog dela programa u zavisnosti od
ispunjenosti nekog uslova. Iz tog razloga neophodno je postojanje razgranatih struktura, koje se u
programskom jeziku Pascal ostvaruju korišćenjem naredbe uslovnog grananja
if
i naredbe višestrukog
grananja
case
.
Naredba uslovnog grananja – IF
Naredba uslovnog grananja
if
omogućava izvršavanje određenog dela programa u zavisnosti od toga da li
je navedeni uslov ispunjen ili ne. Ukoliko je uslov ispunjen, tj. ukoliko je vrednost logičkog iskaza
tačno
(
true
), onda se izvršava jedna naredba ili blok naredbi navedenih unutar komande
if
. Ukoliko je vrednost
logičkog izraza
netačno
(
false
), može se izvršiti neka druga naredba, odnosno blok naredbi.
Sintaksa
if
<logicki_izraz>
then
<naredba1>
[
else
<naredba2>
];
Korišćenjem ovakve
if – then – else
konstrukcije moguće je formirati više oblika uslovnog grananja, kao
što su: jednostruko, dvostruko i višestruko grananje.
Jednostruko grananje
Kod jednostrukog grananja računar ispituje vrednost logičkog izraza i ukoliko je ova vrednost
tačno
(
true
),
izvršava se naredba, odnosno blok naredbi iza rezervisane reči
then
. Ukoliko je vrednost izraza
netačno
(
false
), ova naredba se ne izvršava.
Na slici je prikazan šematski prikaz ovakvog grananja:
Uslov
Komanda
da
ne
Slika ### Šematski prikaz jednostrukog grananja
Pascal kod koji bi odgovarao ovakvoj vrsti grananja bi bio:
if
logi
č
ki_izraz
then
naredba;
ili
if
logi
č
ki_izraz
then
begin
naredba_1;
naredba_2;
...
naredba_n;
end
;
Osnovi programiranja
dr Boban Stojanović
2
Primer
Napisati program koji na osnovu broja utrošenih kilovata električne energije
P
i cene po kilovatu
C
,
izračunava ukupnu naknadu koju potrošač treba da plati
T
. Ukoliko je naknada veća od 1000 dinara, račun
se uvećava za 10%, kako bi se stimulisala štednja električne energije.
program
Struja;
const
LIMIT=1000.0;
{Limit
iznad
koga
se
uvecava
naknada}
PENALI=10.0;
{Procenat
za
koji
se
uvecava
naknada}
var
P,C,T:
real
;
begin
writeln
('Unesite
broj
utrosenih
kilovata
P:');
readln
(P);
writeln
('Unesite
cenu
po
kilovatu
C:');
readln
(C);
T:=P*C;
if
T>LIMIT
then
T:=T+T*PENALI/100.0;
writeln
('Vas
racun
za
elektricnu
energiju
je
',T,'
dinara.');
end
.
Dvostruko grananje
U slučaju dvostrukog grananja, ukoliko je logički izraz tačan izvršava se naredba ili blok naredbi iza
rezervisane reči
then
, a ako logički izraz nije tačan izvršava se naredba, odnosno blok naredbi, koji se
navode iza rezervisane reči
else
.
Šematski prikaz koji opisuje ovakvu vrstu grananja prikazan je na slici:
Komanda 1
Uslov
Komanda 2
da
ne
Slika ### Šematski prikaz dvostrukog grananja
Pascal kod koji bi odgovarao dvostrukom grananju bi bio:
if
logi
č
ki_izraz
then
naredba_1
else
naredba_2;
ili
if
logi
č
ki_izraz
then
begin
naredba_11;
naredba_12;
...
naredba_1n;
end
else
begin
naredba_21;
naredba_22;
