Программа на Pascal ABC с использованием цикла с параметром:program CalculateFunction;
var
x, y: real;
begin
for x := 0 to 10 do
begin
y := x * cos(x) + sin(x);
writeln('y = ', y:0:2);
end;
end.Программа на Pascal ABC с использованием цикла с предусловием:program CalculateFunction;
var
x, y: real;
begin
x := 0;
while x <= 10 do
begin
y := x * cos(x) + sin(x);
writeln('y = ', y:0:2);
x := x + 1;
end;
end.