4. astea | FOR adibideak (2)

---

Hurrengo adibideetan FOR egitura errepikakorra landuko dugu. Adibide guztiak oinarrizkoak direnez  FOR aginduaren barruan ez da izango beste agindu errepikakorrik, horregatik FOR artikulu honek aurrekari bat du beste artikulu batean —4. astea | FOR adibideak (1)— non FOR aginduak soilak landu diren.



Hauxe da FOR-TO aginduaren ohiko moldea:






Eta hauxe da FOR-DONWTO aginduaren ohiko moldea:






Gogoratu FOR agindu erabili ahal izateko iterazioen kopurua ezaguna izango dela. Iruzkinak:

1. Iterazioen kopurua kontrolatzeko Kontagailua izeneko aldagaia diskretua izango da (integer datu-mota familiakoa edo char datu-motakoa)


2. Kontagailua izeneko aldagaiaren hasieraketa FOR aginduan bertan egiten da, Kontagailua aldagaiaren balioa automatikoki inkrementatatzen da TO kasuan (edo dekrementatatzen da DOWNTO kasuan). Kontagailua izeneko aldagaia FOR aginduaren barruan erabil daiteke, baina ezin zaio bere balioa aldatu


3. Zbk aldagaiak balio ezagunen bat izango du (iterazioen kopurua definitzen duten behemuga eta goimuga aldez aurretik zehazturik daude)


4. DO markaren ostean ez da banatzailerik (puntu eta komarik) jarri behar


5. Edozein esleipenetan bezala, hemen ere OrainArtekoa aldagaia balio ezagunen bat izan behar du. Horregatik, lehen iterazioan kalkulu okerrik gerta ez dadin, FOR-TO agindura sartu aurretik OrainArtekoa aldagaiak dagokion hasieraketa behar du (adibide honetan hasieraketa honako hau izango litzateke OrainArtekoa:=1; biderkaketaren neutroa 1 delako)


6. OrainArtekoa aldagaiari buruzkoa arestian esandakoak balio du ere Zbk aldagaiarako, hots, erabili baino lehenago balio ezagunen bat izan behar duela (Zbk aldagaiaren kasuan balio ezagun hori readLn prozeduraren bitartez eman zaio)

---

ForLaukiBiMarrazten.pas

{------------------------------------------------------
  Zenbaki osoa eta positiboekin lan eginez, sarrerako
  kopuruarean araberako lauki bat pantailaratuko da.
 ------------------------------------------------------}

program LaukiBiPantailaratu ;
var
   iZenbakia, i, j : integer ;

begin
   repeat
      write('0 eta 9 arteko zenbaki osoa eman: ') ;
      readln(iZenbakia) ;
      
      if (iZenbakia < 0) or (iZenbakia > 9) then
      begin
         writeln('Datua 0 eta 9 arteko zenbakia izan dadila') ;
         writeln ;
      end ;
   until (iZenbakia >= 0) and (iZenbakia <= 9) ;

   writeln ;
   writeln(iZenbakia, 'x', iZenbakia, ' laukia:') ;
   for i:=1 to iZenbakia do
   begin
      for j:=1 to iZenbakia do
      begin
         write(iZenbakia:2) ;
      end ;
      writeln ;
   end ;

   writeln ;
   writeln(2*iZenbakia, 'x', iZenbakia, ' laukia:') ;
   for i:=1 to iZenbakia do
   begin
      for j:=1 to 2*iZenbakia do
      begin
         write(iZenbakia:2) ;
      end ;
      writeln ;
   end ;

   writeln ;
   writeln('RETURN tekla sakatu programatik irteteko') ;
   readln ;
end.

---

ForHirukiBatMarrazten.pas

{-----------------------------------------------------------------
  Zenbaki osoa eta positiboekin lan eginez, sarrerako kopuruarean
  araberako triangelu laukizuzen bat pantailaratuko da.
 -----------------------------------------------------------------}

program HirukiBatPantailaratu ;
var
   iZenbakia, i, j : integer ;

begin
   repeat
      write('0 eta 9 arteko zenbaki osoa eman: ') ;
      readln(iZenbakia) ;
      
      if (iZenbakia < 0) or (iZenbakia > 9) then
      begin
         writeln('Datua 0 eta 9 arteko zenbakia izan dadila') ;
         writeln ;
      end ;
   until (iZenbakia >= 0) and (iZenbakia <= 9) ;

   writeln ;
   writeln('Triangelu angeluzuzena:') ;
   for i:=1 to iZenbakia do
   begin
      for j:=1 to i do
      begin
         write(iZenbakia:2) ;
      end ;
      writeln ;
   end ;

   writeln ;
   writeln('RETURN tekla sakatu programatik irteteko') ;
   readln ;
end.