Нужно решить уравнение на Pascal

[Anytka99]

Нужно объявить функцию, и решить уравнение на паскале!
1) с использованием оператора цикла с предусловием;
2) с использованием оператора цикла с постусловием

[newerow1989]

Какое уравнение? Для чего перечисление х?

Вот без уравнения вывод всех значений

function y(x:real):real;
begin
   Result:=1/pi*ArcTan(Tan((2*x-1)/2)+pi);
end;

var x:real;
begin
   x:=6.5;
   While x<=10 do
   begin
      Writeln('x = ',x:4:1,'  y = ',y(x):4:4);
      x:=x+0.5;
   end;
   Writeln;
   x:=6.5;
   Repeat
      Writeln('x = ',x:4:1,'  y = ',y(x):4:4);
      x:=x+0.5;
   Until x>10;
   Readln;
end.

[Anytka99]

Сообщение от newerow1989

Какое уравнение? Для чего перечисление х?

Вот без уравнения вывод всех значений

function y(x:real):real;
begin
   Result:=1/pi*ArcTan(Tan((2*x-1)/2)+pi);
end;

var x:real;
begin
   x:=6.5;
   While x<=10 do
   begin
      Writeln('x = ',x:4:1,'  y = ',y(x):4:4);
      x:=x+0.5;
   end;
   Writeln;
   x:=6.5;
   Repeat
      Writeln('x = ',x:4:1,'  y = ',y(x):4:4);
      x:=x+0.5;
   Until x>10;
   Readln;
end.

Да!