Tag Archives: naredbe ciklusa

Delphi -Urađen primer

Уобичајен

Ovaj primer obuhvata:

-izbor slučajnog broja

-cikličnu strukturu

image

image

Procedura za dugme “označi oba” (omogućava čekiranje oba ček boksa)

procedure TForm1.Button1Click(Sender: TObject);
begin
checkbox1.checked:=true;
checkbox2.checked:=true;
end;

Procedura za dugme “prikazi” (omogućava prikaz slučajno izabranog broja i/ili loto kombinacije)

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
randomize;
if checkbox1.Checked then edit1.Text:=inttostr(random(101)-50);
if checkbox2.Checked then
for i:=1 to 7 do
edit2.Text:= edit2.text+ ‘ ‘ + inttostr(random(101)-50);
end;

Procedura za dugme “briši” (omogućava brisanje edit boksova i  ček boksova)

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
checkbox1.Checked:=false;
checkbox2.Checked:=false;
end;

Procedura za dugme “poruka” (omogućava prikaz prozora sa porukom URAAA)

procedure TForm1.Button4Click(Sender: TObject);
begin
showmessage(‘URAAAA’);
end;

Advertisements

NAREDBE CIKLUSA

Уобичајен

Ponavljanje bloka naredbi više puta omogućen je naredbama ciklusa  (naredbama ponavljanja ili repetativnim naredbama ili petljama).

U Pascalu postoje tri naredbe ciklusa:

  • FOR – bezuslovna naredba ciklusa.
  • WHILE- naredba sa preduslovom
  • REPEAT – naredba sa postuslovom.

FOR..TO..DO

Read the rest of this entry