вычислить: У=cos(x)+cos(x)*(x)+ cos(X)*(X)*(X)+...+cos(X)(в n степени)

[КАША]

помогите пожалуйста полностью программу написать, а то я даже в этой задаче данные написать не могу(((((

[PaScalpel]

напиши нормально функцию. желательно стандартную...

если так как ты написал то вот...
вводишь х и степень, тоисть (n)

Program func;
uses crt;
var y,x,n:real;
begin
clrscr;
writeln('Введите х=');
readln(x);
writeln('Введите степень n=');
readln(n);
y:=cos(x)+cos(sqr(x))+cos(exp(x*ln(3)))+cos(exp(x*ln(n)));
writeln('y=',y:2:4);
readkey;
end.

[__Demon__]

Вот готовая функция на Си++. Переделать не очень сложно:

// double = real в Паскале
// int = int в Паскле
double function(double x, int n)
{
	if (n == 0)
		// std::cos(x) = cos(x) в паскале
		return std::cos(x);
	else 
		// std::pow(x, y) - возведение в степень
		return std::cos(x) * std::pow(x, n) + function(x, n - 1);
}

[КАША]

Сообщение от PaScalpel

напиши нормально функцию. желательно стандартную...

если так как ты написал то вот...
вводишь х и степень, тоисть (n)

Program func;
uses crt;
var y,x,n:real;
begin
clrscr;
writeln('Введите х=');
readln(x);
writeln('Введите степень n=');
readln(n);
y:=cos(x)+cos(sqr(x))+cos(exp(x*ln(3)))+cos(exp(x*ln(n)));
writeln('y=',y:2:4);
readkey;
end.

это на паскале???? мне надо через if на паскале!

[Grag]

Хорошо было бы, если бы ТС правильно задания писать умел(а)!!!
А то это задание можно трояко понять...
1. то ли cos(X^n)
2. то ли (cos(x))^n
3. то ли cos(x)*x*x*x и т.д. Х

[КАША]

Сообщение от Grag

Хорошо было бы, если бы ТС правильно задания писать умел(а)!!!
А то это задание можно трояко понять...
1. то ли cos(X^n)
2. то ли (cos(x))^n
3. то ли cos(x)*x*x*x и т.д. Х

вычислить: У=cos(x)+cos(x)*(x)+ cos(X)*(X)*(X)+...+cos(X)(в n степени)

вычислить:y=cos x + cos (x в квадрате) + cos (x в кубе) +...+ cos (x в n степени)

[Stilet]

вычислить: У=cos(x)+cos(x)*(x)+ cos(X)*(X)*(X)+...+cos(X)(в n степени)

x:=0.2;ax:=1;
for i:=1 to n do begin
 y:=y+cos(x)*ax;
 ax:=ax*x;
end;

вычислить:y=cos x + cos (x в квадрате) + cos (x в кубе) +...+ cos (x в n степени)

x:=0.2;
for i:=1 to n do begin
 y:=y+cos(x);
 x:=x*x;
end;

Найди отличия.

[КАША]

Сообщение от Stilet

x:=0.2;ax:=1;
for i:=1 to n do begin
 y:=y+cos(x)*ax;
 ax:=ax*x;
end;

x:=0.2;
for i:=1 to n do begin
 y:=y+cos(x);
 x:=x*x;
end;

Найди отличия.

я не понимаю ниче в этом!! почему вы присваиваете x:=2? что такое ax??? мне уже плохо потому что я ниче не понимаю!!!!я уже 3 недели эту задачю сдать не могу(((((((

[Stilet]

почему вы присваиваете x:=2?

Где? 0,2! Захотелось так. Присвой что-нить свое.

что такое ax?

Сервисная переменная, хранящая вычисления *(X)*(X)...

[КАША]

Сообщение от Stilet

Где? 0,2! Захотелось так. Присвой что-нить свое.

Сервисная переменная, хранящая вычисления *(X)*(X)...

а какие данные тогда в задаче этой?