Sākumlapa
"Pirmā web lapa"
HTML
CSS
Citi materiāli

Ceļošana - kalni

Lazarus (Delphi)

Ievads
Lazarus vide
Pirmā programma
Mainīgie
Globālie mainīgie
Teksta mainīgie
Veselie mainīgie
Decimālie mainīgie
Zarošanās (If)
Cikli - For
Cikls - While
Gadījuma skaitļi
Masīvi_1
Masīvi_2
Konsole
Darbs ar datnēm
Kārtošana (ievads)
Kārto (Burbulis)
Meklēšana (lineāri)

Vēl iesaku:

W3Schools
Krāsu palete

Pārlūku atbalsts CSS
 (1),   (2) 

Cikli - For

Ja pie zarošanās katra darbība varēja tikt veikta tikai vienu reizi (t.i., virzāmies pa kādu no zariem un izpildām paredzētās darbības tikai vienu reizi), tad cikla gadījumā darbības tiek veiktas atkārtoti tik reižu, kamēr beidzas cikla nosacījums.

for

For ... to ... do

for a:=1 to 3 do b:=a*2;

"For" gadījumā vienmēr ir zināms cikla atkārtošanās reižu skaits! Skaitu nosaka cikla mainīgajam (šajā piemērā "a") paredzētais intervāls ar tā sākuma ("1") un beigu vērtībām ("3"). Tātad piemērā redzamajā gadījumā cikls atkārtosies trīs reizes, cikla mainīgajam "a" pakāpeniski mainot savu vērtību no "1" līdz "3".

Jāņem vērā, ka cikla mainīgā vērtības vienmēr mainās par vienu vienību – "for to do" gadījumā augoši (no mazākā uz lielāko). Kā mainīgā vērtības var tik lietoti skaitļi un citas sakārtojamas vērtības, piemēram, burti alfabēta secībā.

Tātad mūsu piemēra koda izpildes secība būs sekojoša:

  1. a=1 un b=2 (jo 1("a" vērtība)*2);
  2. a=2 un b=4 (jo 2*2);
  3. a=3 un b=6 (jo 3*2); Pēc tam cikls vairs neturpinās, jo "4" ir jau ārpus mūsu paredzētajām cikla robežām, tamdēļ cikla mainīgais šādu vērtību vairs pieņemt nedrīkst!

Piemērs:

Kāds būs Label1 uzraksts pēc sekojošā koda izpildes?

procedure TForm1.Button1Click(Sender: TObject);
var x:char;
begin

for x:='A' to 'E' do 
Label1.caption:='Grupa - '+x; 
end;

Uzraksts būs "Grupa – E", jo cikla mainīgais secīgi mainīs vērtības no "A" līdz "E" katru reizi pārrakstot lābelī redzamo uzrakstu (tas notiek tik ātri, ka mūsu acs tam nespēj izsekot) no "Grupa – A" līdz pat "Grupa – E", kas tad arī ir beidzamā "x" vērtība un pārrakstīta vairs netiks. Soli pa solim:

  1. x=A un label1.caption="Grupa – A";
  2. x=B un label1.caption="Grupa – B";
  3. x=C un label1.caption="Grupa – C";
  4. x=D un label1.caption="Grupa – D";
  5. x=E un label1.caption="Grupa – E". Cikls beidz darbību un lābelī paliek tā beidzamā vērtība. Programma beidz darbību.

NB! Ja aiz rezervētā vārda do ir jāizpilda vairāk kā viena operācija, tad tās iekļaujamas lokālajā begin ... end.

Piemērs:

procedure TForm1.Button1Click(Sender: TObject);
var x:char; y: string; c: byte;
begin

y:=''; 
c:=0; 
for x:='A' to 'E' do 
   begin 
   y:=y+x; 
   c:=c+1; 
   end; 
Label1.caption:=y+inttostr(c); 
end;
for

Uzraksts būs "ABCDE5". Cikls soli pa solim jeb cikla "riņķi":

  1. x:=A  y=A (y="nekas" + "x" vērtība)  c=0+1=1 (pēdējā "c" vērtība plus 1);
  2. x:=B  y=A+B=AB (pēdējā "y" vērtība un "x" vērtība)  c=1+1=2 (pēdējā "c" vērtība plus 1);
  3. x:=C  y=AB+C=ABC  c=2+1=3;
  4. x:=D  y=ABC+D=ABCD  c=3+1=4;
  5. x:=E  y=ABCD+E=ABCDE  c=4+1=5. Cikls darbu beidz. Lābelī tiek izvadītas mainīgo "y" un "c" vērtības, tās neatdalot ar atstarpi.

For ... downto ... do

Vienīgā atšķirība no For...to...do ir, ka cikla mainīgā vērtības mainās dilstoši – no lielākā uz mazāko.

Piemērs:

procedure TForm1.Button1Click(Sender: TObject);
var x:char; y:string;
begin

y:=''; 
for x:='E' downto 'A' do y:=y+x; 
Label1.caption:=y;
end;

Šoreiz tiks izvadīts "EDCBA".




Autortiesības © 2005-2011, kasis.lv. Visas tiesības aizsargātas.