UPUTSTVO ZA REŠAVANJE 1 GLOBALNE PROMENLJIVE OPISUJEMO NA SLEDEĆI

142 UPUTSTVO ZA UPOTREBU 1 KLIKNITE MIŠEM
UPUTSTVO ZA DOSTAVU ANKETE ANKETA SE DOSTAVLJA
139 UPUTSTVO SARADNICIMA VOL 40 (2015) BR 2 UPUTSTVO

56IN1 ČITAČ KARTICA ARTIKL CNRCARD5 BRZO UPUTSTVO V10 KLJUČNE
CANYON 5PORT 8PORT 16PORT ETHERNET SWITCH HUB BRZO UPUTSTVO
CANYON SUPER OPTIČKI MIŠ PROIZVOD CNMSL5 UPUTSTVO ZA UPOTREBU

Kreirati aplikaciju u kojoj se:

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