Страница 1 из 1
Паскаль
Добавлено: 21 окт 2007, 18:45
Маринуся
Помагите плиз мне в решении задачки!!!я знаю она лёгкая но я ваще тупая,а двойку не хочу((( нужно вычислить значение выражения sin x +sin x(квадрат)+...+sin x (в спепени n)
Re: Паскаль
Добавлено: 22 окт 2007, 10:53
Хыиуду
Код: Выделить всё
function izvrat(x:real):real;
var i:integer; r:real;
begin
r:=sin(x);
for i:=2 to N do
r:=(r+1)*sin(x)
izvrat:=r;
end;
Re: Паскаль
Добавлено: 22 окт 2007, 12:13
somewhere
Хыиуду, есть большая разница между sin(x)^n и sin(x^n)
Re: Паскаль
Добавлено: 24 окт 2007, 13:19
Хыиуду
По условию задачи было неочевидно, что имеется в виду. Тогда так
Код: Выделить всё
function izvrat(x:real):real;
var i:integer; r,s:real;
begin
r:=x;
s:=sin(x);
for i:=2 to N do
begin
r:=r*x;
s:=s+sin(r);
end;
izvrat:=s;
end;
[/code]