Написать циклическое решение уравнения ** Паскале. 2(cos(x-1)/sin(x-1))^2

Question

Написать циклическое решение уравнения на Паскале.

2(cos(x-1)/sin(x-1))^2

Comments

x в каком интервале? Или не задано?

---

и какой шаг

---

И что в квадрате (х-1) или Sin &

Answer 1

Uses crt;
const
dx=1;
var
x:real;
begin
x:=-10;
while x<=10   do<br>    begin
        if x-1<>0 then
          writeln ('y= ',2*(cos(x-1))/Sin(sqr(x-1)))
         else
           writeln('-');
          x:=x+dx;
      end;
Readkey;
end.