LINIJSKA STRUKTURA Zadaci i reenja ALGORITAM je konani

LINIJSKA STRUKTURA Zadaci i rešenja

ALGORITAM je konačni redosled operatora, elementarnih obrada i pravila o njihovoj primeni u cilju dobijanja rešenja nekog problema. Pojam algoritma ne mora biti vezan za primenu računara. Algoritmi se koriste u svakodnevnom životu za izvršavanje različitih aktivnosti (npr kuvarski recepti). Postoje različite mogućnosti za predstavljanje algoritma, ali se on najčešće pretstavlja grafički pod imenom dijagram toka programa (flowchart).

Osnovne algoritamske strukture �Linijska (sekvencija) Karakteristika linijske strukture je da se svi elementi izvršavaju samo jednom i koraci se odvijaju u nizu jedan za drugim bez ponavljanja ili "skretanja" �Razgranata (selekcija) Razgranata struktura će se pojaviti kod algoritma koji ima blok odlučivanja, pri čemu se vrši testiranje određenog uslova prema rezultatu. Algoritam se grana i nastavlja tok jednom od grana- opcija. �Ciklična (iteracija) Ciklični algoritam će se pojaviti kada isti niz naredbi treba ponoviti više puta. Postoji više varijanti ove srukture a dve osnovne podele su: � Broj iteracija (ponavljanja) je unapred poznat (npr petlja FOR) � Iteracija se vrši dok se ne zadovolji određen uslov (npr petlje tipa WHILE. . DO).

Linijska struktura Ciklična struktura Razgranata struktura

1. Izračunati površinu pravougaonika ako su poznate stranice

Programski kod Procedure TForm 1. Button 1 Click ( SEnder: Tobject ); Var d, s, P : Integer; Begin d : = Str. To. Int ( Edit 1. Text ) ; s : = Str. To. Int ( Edit 2. Text ) ; P : = d * s; Label 5. Caption : = Int. To. Str ( P ); End;

2. Izračunati površinu i zapreminu kvadra ako su poznate stranice

Procedure TForm 1. Button 1 Click( SEnder: TObject ); Var a, b, c, P, V: Integer; Begin a : = Str. To. Int ( Edit 1. Text ); b : = Str. To. Int ( Edit 2. Text ); c : = Str. To. Int ( Edit 3. Text ); P : = 2 * ( a * b + a * c + c * b ); V : = a * b * c; Label 6. Caption : = Int. To. Str ( P ); Label 8. Caption : = Int. To. Str ( V ); End;

3. Na osnovu unetog broja dinara izračunati broj evra ako je 1 evro =119. 52 din

Procedure TForm 1. Button 1 Click( SEnder: TObject ); Var d: Integer; e: Real; Begin d : = Str. To. Int ( Edit 1. Text ); e : = d / 119. 52; Label 4. Caption : = Float. To. Str ( e ); Float End;

4. Na osnovu unetog broja evra i kursa izračunati broj dinara

Procedure TForm 1. Button 1 Click( SEnder: TObject ); Var e: Integer; k, d: Real; Real Begin e : = Str. To. Int( Edit 1. Text ); k : = Str. To. Float( Float Edit 2. Text ); d : = e*k; Label 5. Caption : = Float. To. Str( d ); Float End; Procedura za dugme IZLAZ (Close) Procedure TForm 1. Button 2 Click( SEnder: TObject ); Begin Close End;

Zadaci za vežbu i DZ Za sve zadatke je potrebno uraditi: a) predlog obrasca –nacrtati i b) napisati programske kodove za dugme (ili više ako ih ima). 1. Kreiraj aplikaciju koja vrednost u metrima preračunava u centimetre i decimetre 2. Kreiraj aplikaciju koja unet broj sati izračunava koliko je to minuta i sekundi (posebno ispisati minute i posebno sekunde – npr 1 h ima 60 minuta, 3600 sekundi) 3. Kreiraj aplikaciju koja broj megabajta (MB) preračunava u kilobajte (KB) i bajte (B) 4. Kreiraj aplikaciju koja unetu vrednost u miljama konvertuje u kilometre (1 milja=1. 6093 km) 5. Kreiraj aplikaciju koja unetu vrednost u km/h pretvara u m/s (1 km/h = 0. 2777778 m/s)