Написать циклическое решение уравнения на Паскале.
2(cos(x-1)/sin(x-1))^2
mnv1962:
x в каком интервале? Или не задано?
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад