Nizovi Vebanje 1 U proceduri za odreivanje najveeg

Nizovi Vežbanje

1. U proceduri za određivanje najvećeg člana niza namerno su napravljene tri greške: Ispravi ih : procedure TForm 1. Button 2 Click(Sender: TObject); var i: integer; max: real; begin a[1]: =max; for i : = 2 to n do if a[i]<max then max: =a[i]; Edit 2. text: =Int. To. Str(max); End;

procedure TForm 1. Button 2 Click(Sender: TObject); var i: integer; max: real; begin a[1]: =max; Ispravno : max: =a[1]; for i : = 2 to n do if a[i]<max then max: =a[i]; Ispravno > Edit 2. text: =Int. To. Str(max); Ispravno Float. To. Str(max) End;

• 2. Opiši kako treba da izgleda forma za kreiranje procedure kojom se rešava problem izračunavanja prosečne vrednosti niza

Unesi niz Prosečna vrednost niza je

• 3. Napiši proceduru za unos niza B, dužine m

var b: array[1. . 50] of real; m: integer: procedure TForm 1. Button 1 Click(Sender: TObject); var i: integer; begin m: =Str. To. Int(Edit 1. Text); for i : = 1 to m do begin b[i]: =Str. To. Float(Input. Box(’Unos’, ’Unesi clan niza’, ’’)); List. Box 1. Items. add(Float. To. Str(a[i])); end;

• 4. Napiši proceduru za izdvajanje podniza neparnih članova niza a, dužine n. Članovi niza a su prirodni brojevi

procedure TForm 1. Button 2 Click(Sender: TObject); var i: integer; k: integer; begin k: =0; for i : = 1 to n do if a[i] mod 2 = 1 then begin k: =k+1; b[k]: =a[i]; end; for i: = 1 to k do List. Box 2. Items. add(Float. To. Str(b[i])); end.

• 5. Dat je niz a[1]=4 a[2]=9 a[3]=11 a[4]=2 a[5]=10 Opisati kako će izgledati niz posle pokrenute procedure TForm 1. Button 2 Click(Sender: TObject); var i, k: integer; p: real; begin p: =a[1]; for k: = 1 to 3 do begin for i : = 1 to n-1 do a[i]: =a[i+1]; a[n]: =p; end ; for i: = 1 to n do List. Box 2. Items. add(Float. To. Str(a[i])); end;

• Odgovor : Niz će se ciklično pomeriti tri mesta ulevo a[1]=4 a[2]=9 a[3]=11 a[4]=2 a[5]=10 k=1 a[1]=9 a[2]=11 a[3]=2 a[4]=10 a[5]=4 k=2 a[1]=11 a[2]=2 a[3]=10 a[4]=4 a[5]=9 k=3 a[1]=2 a[2]=10 a[3]=4 a[4]=9 a[5]=11