Question

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

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

Answer 1

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