Код программы ( for )
Program lab3for;
Uses Crt;
Var
iA,iA1,iA2,iDeltaA:integer;
rV:real;
fDataFile:file of integer;
fOutputFile:Text;
Begin
Assign(fDataFile,'C:\DataFile.in');
reset(fDataFile);
read(fDataFile,iA1,iA2,iDeltaA);
Assign(fOutputFile,'C:\OutFile.out');
rewrite(fOutputFile);
writeln(fOutputFile,'------------------');
writeln(fOutputFile,'| A | V |');
writeln(fOutputFile,'------------------');
for iA:=iA1 to iA2 do
begin
if iA=1 then rV:=sin(iA);
if iA>1 then rV:=2*exp(iA)-7;
if iA<1 then rV:=cos(iA);
writeln(fOutputFile,'| ',iA,' |',rV:7:2,' |');
iA:=iA+iDeltaA-1;
end;
writeln(fOutputFile,'------------------');
close(fOutputFile);
End.
Код программы ( while )
Program lab3while;
Uses Crt;
Var
iA,iA1,iA2,iDeltaA:integer;
rV:real;
fDataFile:file of integer;
fOutputFile:Text;
Begin
Assign(fDataFile,'C:\DataFile.in');
reset(fDataFile);
read(fDataFile,iA1,iA2,iDeltaA);
Assign(fOutputFile,'C:\OutFile.out');
rewrite(fOutputFile);
writeln(fOutputFile,'------------------');
writeln(fOutputFile,'| A | V |');
writeln(fOutputFile,'------------------');
iA:=iA1;
while iA <= iA2 do
begin
if iA=1 then rV:=sin(iA);
if iA>1 then rV:=2*exp(iA)-7;
if iA<1 then rV:=cos(iA);
writeln(fOutputFile,'| ',iA,' |',rV:7:2,' |');
iA:=iA+iDeltaA;
end;
writeln(fOutputFile,'------------------');
close(fOutputFile);
End.

Код программы ( repeat )
Program lab3repeat;
Uses Crt;
Var
iA,iA1,iA2,iDeltaA:integer;
rV:real;
fDataFile:file of integer;
fOutputFile:Text;
Begin
Assign(fDataFile,'C:\DataFile.in');
reset(fDataFile);
read(fDataFile,iA1,iA2,iDeltaA);
Assign(fOutputFile,'C:\OutFile.out');
rewrite(fOutputFile);
writeln(fOutputFile,'------------------');
writeln(fOutputFile,'| A | V |');
writeln(fOutputFile,'------------------');
iA:=iA1;
repeat
if iA=1 then rV:=sin(iA);
if iA>1 then rV:=2*exp(iA)-7;
if iA<1 then rV:=cos(iA);
writeln(fOutputFile,'| ',iA,' |',rV:7:2,' |');
iA:=iA+iDeltaA;
until iA > iA2;
writeln(fOutputFile,'------------------');
close(fOutputFile);
End.

Результат работы(файл DataFile.out)
------------------
| A | V |
------------------
| 0 | 1.00 |
| 1 | 0.84 |
| 2 | 7.78 |
| 3 | 33.17 |
| 4 | 102.20 |