RAZGRANATA STRUKTURA Zadaci algoritmi I reenja Algoritmi linijska

RAZGRANATA STRUKTURA Zadaci, algoritmi I rešenja

Algoritmi - linijska struktura 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 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)

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 Edite 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;

Zadaci za vežbu-DZ 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] (uslov kreirati na osnovu 500<x<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