Написать циклическое решение уравнения на Паскале.
2(cos(x-1)/sin(x-1))^2
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
