PROJEKTOVANJE RAZGRANATE ALGORITAMSKE STRUKTURE Razgranate algoritamske strukture Kod

PROJEKTOVANJE RAZGRANATE ALGORITAMSKE STRUKTURE

Razgranate algoritamske strukture Kod njih se u zavisnosti od vrednosti logičkog uslova izvršavanje nastavlja jednom od dve grane.

IF uslov THEN naredba 1 ELSE naredba 2; Ako je uslov ispunjen (tačan) onda se izvršava naredba 1, a inače se izvršava Za kreiranje USLOVA koristimo naredba 2. relacijske operatore (>, >=, <, <= i <>) i logičke operatore (AND, OR, NOT) grafički prikaz razgranate strukture algoritma

Zadatak: Odredi 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;

Kada se programira aplikacija može se desiti da je potrebno upozoriti korisnika da je pogrešno uneo podatak. To se postiže korišćenjem posebne naredbe Show. Message(‘Tekst poruke’); Tada će se pojaviti poseban prozorčić na kojem će biti ispisana poruka i imaće dugme na kojem piše OK. Ukoliko želimo da korisniku pokažemo u koju edit komponentu je uneo pogrešan podatak koristimo komandu Ime. Edit. Komponente. Set. Focus;

ZADATAK: Neparan broj Napisati aplikaciju koja proverava da li je uneti broj neparan. (Show. Message poruka) procedure TForm 1. Button 1 Click(Sender: TObject); var x: integer; begin x: =Str. To. Int(Edit 1. Text); if x mod 2 <> 0 then Show. Message('Jeste, neparan je') else Show. Message('Nije neparan') ; end;

ZADATAK: Napisati program koji ispituje da li uneti prirodan broj pripada intervalu [100, 500]. (Show. Message poruka).

procedure TForm 1. Button 1 Click(Sender: TObject); var X: integer; begin X: =Str. To. Int(Edit 1. Text); if (X>=100)and(X<=500) then Show. Message('PRIPADA') else Show. Message('NE PRIPADA'); end; Ne sme se koristiti dvostrana nejednakost oblika 100≤X≤ 500 već se koristiti logički izraz (X>=100)and(X<=500) !

ZADATAK: Agregatno stanje vode Napisati aplikaciju koja će na osnovu unete temperature vode ispisati njeno agregatno stanje. Za ispisivanje poruke za korisnika koristiti prozor za dijalog Show. Message.

procedure TForm 1. Button 1 Click(Sender: TObject); var T: integer; s: string; begin T: =Str. To. Int(Edit 1. Text); if T<0 then s: ='CVRSTO' else if T<100 then s: ='TECNO' else s: ='GASOVITO'; Show. Message('Agregatno stanje vode je: ' +s); end;

ZADATAK: Izračunati vrednost funkcije

Procedure TForm 1. Button 1 Click( Sender: TObject ); var x, y: integer; 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;

ZA KONTROLNI Razgranata algoritamska struktura NAREDBA IF – 2 ZADATKA NARADBA CASE – 2 ZADATKA KOMPONENTE GROUPBOX I CHECHBOX

Zadaci za vežbanje 1. 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. (Show. Message poruka) 2. Kreiraj aplikaciju koja testira da li broj pripada intervalu (500, 1000) (uslov kreirati na osnovu 500<x<1000) 3. Kreiraj aplikaciju koja testira da li je unet broj veći od 500 i u labeli ispisuje odgovarajuću tekstualnu poruku 3. Kreiraj aplikaciju koja testira da li je unet ceo broj neparan. (Show. Message poruka) 4. Kreiraj aplikaciju koja testira da li je unet ceo broj deljiv sa 5. (Show. Message poruka) 5. Kreiraj aplikaciju koja testira da li je unet broj negativan. (Show. Message poruka)

6. Napisati program koji ispituje da li je uneti prirodan broj trocifren. Poruku prikazati je u labeli. 7. Uneti dva broja. Ako su oba neparna štampati odgovarajuću poruku (Show. Message poruka) i razliku njihovih kvadrata, u suprotnom apsolutnu vrednost njihove razlike. 8. Kreiraj aplikaciju koja ispisuje poruku da li je vreme za plivanje. (Vreme za plivanje je ako je spoljna temperatura veća od 27 stepeni). 9. Kreiraj aplikaciju koja izračunava funkciju 10. Kreiraj aplikaciju koja izračunava funkciju