RAZGRANATA STRUKTURA Zadaci i reenja Za sve zadatke

RAZGRANATA STRUKTURA Zadaci i rešenja Za sve zadatke su dati PREDLOZI rešenja. Vi možete imati drugačiji obrazac kao i programski kod. Bitno je da se rešenje može izvršiti u razvojnom okruženju tj. da RADI

*podsetnik* Linijske strukture su najjednostavniji primeri rešavanja nekog problema. Za neke ulazne podatke, ulazne veličine, prostom obradom dobijaju se neki rezultati, izlazne veličine. Npr: 1. Unesi stranicu kvadrata (a) 2. Izračunaj površinu (P=a 2) 3. Ispiši rezultat (P)

Razgranate strukture U životu (pa i u programiranju ) su mnogi naši koraci uslovljeni nekim događajem i vrlo često ćemo na osnovu nekog uslova, zahteva, preduzeti sasvim različite korake u rešavanju problema. Ako je USLOV ispunjen (AKO USLOV VAŽI) onda ćemo napraviti neke korake, a INAČE (ako uslov ne važi) preduzimamo neke sasvim druge korake.

Prost oblik: IF uslov THEN naredba; Proširen oblik: IF uslov THEN naredba 1 ELSE naredba 2; Za kreiranje USLOVA koristimo relacijske operatore (>, >=, <, <= i <>) i logičke operatore (AND, OR, NOT)

Primer: Kreiraj aplikaciju koja će ispisati upozorenje korisniku prilikom kreiranja Face. Book profila. Pitati korisnika koliko ima godina, ako ima manje od 12 ispisati poruku “Nije dozvoljeno kreirati nalog korisnicima mladjim od 13 godina!”

procedure TForm 1. Button 1 Click(Sender: TObject); Var a: integer; Begin a: =Str. To. Int(edit 1. text); If a<13 then Show. Message(‘ Nije dozvoljeno kreirati nalog korisnicima mladjim od 13 godina!'); End;

1. Odrediti veći od dva uneta broja

Procedure TForm 1. Button 1 Click ( SEnder: Tobject ); Var x, y, Max : Integer; Begin x : = Str. To. Int ( Edit 1. Text ); y : = Str. To. Int ( Edit 2. Text ); If x > y Then Max : = x Else Max : = y; Label 5. Caption : = Int. To. Str ( Max ); End;

2. Odrediti najveći od tri uneta cela broja

Procedure TForm 1. Button 1 Click( SEnder: TObject ); Var a, b, c, Max : Integer; Begin a : = Str. To. Int ( Edit 1. Text ); b : = Str. To. Int ( Edit 2. Text ); c : = Str. To. Int ( Edit 3. Text ); Max : = a; If b > Max Then Max : = b; If c > Max Then Max : = c; Label 6. Caption : = Int. To. Str ( Max ); End;

3. Kreiraj aplikaciju koja za uneti ceo broj proverava da li je broj paran ili neparan. Za rešavanje možemo iskoristiti funkcije MOD i DIV. Ako je broj deljiv sa 2 -onda je paran, u suprotnom je neparan. Ako je deljiv sa 2, ostatak pri deljenju je 0 i tu primenjujemo ugrađenu funkciju MOD.

4. Izračunati vrednost funkcije

Procedure TForm 1. Button 1 Click( SEnder: TObject ); Var x, y: integer; begin x: =Str. To. Int (Edit 1. Text); if x<0 then y: = -1 else if x = 0 then y: =0 else y: =1; Label 4. Caption: =Int. To. Str(y); End;

5. Izračunati vrednost funkcije (na obrascu predvideti Edit za x 1 i x 2) Procedure TForm 1. Button 1 Click( SEnder: TObject ); Var x 1, x 2, y: integer; begin x 1: =Str. To. Int(Edit 1. Text); x 2: =Str. To. Int(Edit 2. Text); if x 1<x 2 then y: =x 1+x 2 else if x 1=x 2 then y: =3*x 1 else y: =5*x 1 -x 2; Label 4. Caption: =Int. To. Str(y); End;

6. Kreirati aplikaciju koji ispituje da li su dati celi brojevi A, B i C uređeni u neopadajućem poretku (A<=B<=C). Ispisati poruku (JESU , NISU).

procedure TForm 1. Button 1 Click(Sender: TObject); Var a, b, c: integer; begin a: =Str. To. Int(edit 1. text); b: =Str. To. Int(edit 2. text); c: =Str. To. Int(edit 3. text); If (a<=b) and (b<=c) then Show. Message('JESU u neopadajucem redosledu ') else Show. Message('NISU u neopadajucem redosledu'); end; procedure TForm 1. Button 2 Click(Sender: TObject); begin Close; end;

ZDZ Kreiraj aplikaciju koja ispisuje poruku da li je student položio ispit. Uslov za položen ispit je više od 60 osvojenih bodova na testu. Kreiraj aplikaciju koja testira da li broj pripada intervalu [500, 1000] Kreiraj aplikaciju koja testira da li je unet broj veći od 500 i ispisuje odgovarajuću tekstualnu poruku Kreiraj aplikaciju koja testira da li je unet ceo broj neparan Kreiraj aplikaciju koja testira da li je unet ceo broj deljiv sa 5 Kreiraj aplikaciju koja testira da li je unet broj negativan Kreiraj aplikaciju koja ispisuje poruku da li je vreme za plivanje. (Vreme za plivanje je ako je spoljna temperatura veća od 27 stepeni). Kreiraj aplikaciju koja izračunava funkciju