Instrucţiunea FOR este o instrucţiune repetitivă care permite execuţia repetată a unei instrucţiuni în funcţie de valoarea unui contor.
CAZUL CRESCĂTOR
FOR identificator:=expresie1 TO expresie2 DO instrucţiune;
CAZUL DESCRESCĂTOR
FOR identificator:=expresie1 DOWMTO expresie2 DO instrucţiune;
Unde identificator este o variabilă de orice tip ordinal, iar expresie1 şi expresie2 sunt expresii de acelaşi tip cu variabila dată.
În care: variabila de control este un identificator de variabilă iar valoarea inițială și valoarea finală sunt câte o expresie.
Instructiunea FOR face ca instrucțiunea ( care poate fi o instrucțiune compusă) să se execute repetat cât timp variabilei de control i se atribuie o progresie de valori.
Când se intră într-o instrucțiune FOR valorile inițială și finală sunt determinate o data pentru tot restul execuției instrucțiunii FOR. Instrucțiunea se execută o dată pentru fiecare valoare a variabilei de control
Exemple de folosire a instrucțiunii FOR: afișarea numerelor crescător/descrescător
program for1;
var contor:integer;
begin
for contor:= 10 downto 1 do
writeln(contor);
end.
program for2;
var contor:integer;
begin
for contor:= 1 to 10 do
writeln(contor);
end.
1. Scrieți un program care va afișa crescător și descrescător cifrele și literele alfabetului latin.
2. Scrieți un program care va calcula X la puterea N.
3. Calcularea factorialului unui număr. În matematică factorialul unui număr întreg pozitiv n este notat cu n! și este egal cu produsul numerelor naturale mai mici sau egale cu n. Este o funcție numerică discretă. Exemplu: 5!=5*4*3*2*1=120
4. Calcularea sumei 1 + 1/2 + 1/3 + ... + 1/n .
Pentru compilarea programelor puteți utiliza compilatorul online sau descărcați PascalABC.NET
program for2;
var i:integer;
c: char;
begin
for i:=0 to 9 do write(i:2);
writeln;
for i:=9 downto 0 do write(i:2);
writeln;
for c:='A' to 'Z' do write(c:2);
writeln;
for c:='Z' downto 'A' do write(c:2);
writeln;
readln;
end.