var x,y,xn,xk,hx:real;
i,n:integer;
begin
writeln(Rus('введите xn,xk,hx'));
readln(xn,xk,hx);
writeln;
writeln(Rus('вычисление с помощью цикла с параметром'));
writeln;
writeln(' ':3,'x',' ':8,'y');
x:=xn;
n:=round((xk-xn)/hx)+1; // вычисление числа операций
for i:=1 to n do
begin
y:=(sqr(x-cos(x))/2);
writeln(x:7:2,' ',y:10:5);
x:=x+hx;
end;
writeln;
writeln(Rus('вычисление с помощью цикла с предусловием'));
writeln;
writeln(' ':3,'x',' ':4,'y');
x:=xn;
while x<=(xk+hx/2) do
begin
y:=(sqr(x-cos(x))/2);
writeln(x:7:2,' ',y:10:5);
x:=x+hx;
end;
writeln;
writeln(Rus('вычисление с помощью цикла с постусловием'));
writeln;
writeln(' ':3,'x',' ':4,'y');
x:=xn;
repeat
y:=(sqr(x-cos(x))/2);
writeln(x:7:2,' ',y:10:5);
x:=x+hx;
until x>(xk+hx/2);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.