Uputstvo za rešavanje:
1. Globalne promenljive opisujemo na sledeći način:
var
Form1: TForm1;
n:integer;
x:array of integer; /* opis dinamičkog niza (promenljive dužine)
2. Kod dugmeta Napravi niz :
procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
begin
Randomize; /*pozivanje na funkciju slučajnog izbora
n:=StrToInt(Edit1.Text);
SetLength(x, n); /*dodeljivanje duyine nizu a, jer je opisan kao dinamičan
for i:=0 to n-1 do
begin
x[i]:=-100+Random(201);
Memo1.Lines[i]:=IntToStr(x[i]); /*prikazivanje elemenata u linijama Memo
end;
end;
3. Kod dugmeta Računaj:
procedure TForm1.Button2Click(Sender: TObject);
var prosek:real;
i, s, poz, min, indeks: integer;
begin
if CheckBox1.Checked then
begin
s:=0;
for i:=0 to n-1 do s:=s+x[i];
prosek:=s/n;
Edit2.Text:=FloatToStr(prosek);
end;
if CheckBox2.Checked then
begin
poz:=0;
for i:=0 to n-1 do
if x[i]>0 then poz:=poz+1;
Edit3.Text:=IntToStr(poz);
end;
if CheckBox3.Checked then
begin
min:=x[0]; indeks:=1;
for i:=1 to n-1 do
if x[i]<min then
begin
min:=x[i]; indeks:=i+1;
end;
Edit4.Text:=IntToStr(indeks);
end;
end;
ELEKTRONSKI KARTON KORISNIČKO UPUTSTVO LEKAR SADRŽAJ SADRŽAJ 1
GROUP 680 UPUTSTVO O UREĐENJU I ČUVANJU ARHIVSKOG MATERIJALA
IZRADA MATURSKIH RADOVA IZRADA MATURSKIH RADOVA [ UPUTSTVO ZA
Tags: globalne promenljive, globalne, opisujemo, sledeći, promenljive, uputstvo, rešavanje