IF NAREDBA – naredba grananja

10
IF NAREDBA – naredba grananja - vežbanje -

description

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 . - PowerPoint PPT Presentation

Transcript of IF NAREDBA – naredba grananja

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 oblikIF uslov THEN naredba

2. potpuni oblikIF 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.

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.

2. Nacrtaj algoritam i napiši program kojim

se računa

0,3

0,2 2

xx

xxy

program x1;var x,y: real;begin

writeln(’Unesi x’);read(x);if x > 0 then y := 3*sqrt(x)

elseif x = 0 then y := 25

else y := sqr(x);writeln(’y = ’, y);

end.

3. Nacrtaj algoritam i napiši program

kojim se računa

0,3

0,25

0,2

xx

x

xx

y

4. Napiši program koji će za uneto a i b računati c = a*b pod uslovom da su a,b0.

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

elsewriteln(’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

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

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

0,2

0,22

2

xx

xxy

3,2

3,32 xx

xxy

0,

0,4

0,23

2 xx

x

xx

y