Slide 1

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0



Slide 2

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0



Slide 3

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0



Slide 4

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0



Slide 5

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0



Slide 6

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0



Slide 7

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0



Slide 8

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0



Slide 9

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0



Slide 10

IF NAREDBA – naredba grananja
- vežbanje -

• Naredbe grananja omogućavaju da se odabere
izvršavanje jednog dela programa u zavisnosti od
ispunjenja određenih uslova.
• Postoje dve naredbe grananja u Pascal-u:
naredba if i naredba case.
• Uslovne rečenice karakterišu ključne reči kao što
su: AKO, TADA, INAČE,...
• U naredbama se koriste engleske ključne reči IF,
THEN, ELSE,...

Naredba IF se pojavljuje u dva oblika:
1. nepotpuni oblik
IF uslov THEN naredba
2. potpuni oblik
IF uslov THEN naredba ELSE naredba

1. Nacrtaj algoritam i napiši program kojim se
promenljivoj max dodeljuje vrednost većeg od
brojeva a i b.
program max2;
var a,b,max: real;
begin
writeln(’Unesite a i b’);
read(a,b);
if a > b then max := a
else max := b;
writeln(’max = ’, max);
end.

2. Nacrtaj algoritam i napiši program kojim
se računa

 2x2, x  0
y
3  x , x  0

program drugi;
var x,y: real;
begin
writeln(’Unesite broj x’);
read(x);
if x < 0 then y := 2*sqr(x)
else y := 3+sqrt(x);
writeln(’vrednost y je ’, y);
end.

3.

Nacrtaj

algoritam

kojim se računa

i

napiši

program

 x2,x  0

y   25 , x  0
3 x , x  0


program x1;
var x,y: real;
begin
writeln(’Unesi x’);
read(x);
if x > 0 then y := 3*sqrt(x)
else
if x = 0 then y := 25
else y := sqr(x);
writeln(’y = ’, y);
end.

4. Napiši program koji će za uneto a i b računati
c = a*b pod uslovom da su a,b0.
program zadatak4saIFnaredbom;
var a,b,c: real;
begin
writeln(’Unesi a i b’);
read(a,b);
if (a <> 0) and (b <> 0) then
begin
c := a * b;
writeln(c);
end
else
writeln(’Pogrešni podaci’);
end.

5. Nacrtaj algoritam i napiši program koji će pronaći
maksimum tri cela broja uneta preko tastature.

program maksimum3;
var a, b, c, max: integer;
begin
writeln(‘Unesite tri cela broja’);
read(a,b,c);
if (a>b) then
if (a>c) then max := a else max := c
else
if (b>c) then max := b else max := c;
writeln(‘Maksimum je ‘, max)
end.

Zadaci za vežbanje:
1. Nacrtaj algoritam i napiši program koji će
pronaći minimum tri cela broja.
2. Nacrtaj algoritam i napiši program kojim se
računa y   x  2 , x  0
2

 2x , x  0
2

3. Nacrtaj algoritam i napiši program kojim se
računa y   x  3, x  3
 2
 x  2, x  3

4. Nacrtaj algoritam i napiši program kojim se
3 x  2, x  0
računa

y   4, x  0
 x2, x  0
