Написать программу для вычисления e = cos x + cos x2 + cos x3 + … + cos x90

[Sania59]

Вычислить: .
e = cos x + cos x2 + cos x3 + … + cos x90

[Stilet]

const x=0;
var e:Double;i:integer;
begin
 for i:=1 to 90 do e:=e+cos(x*90); write(e);readln;
end.

[Serge_Bliznykov]

Виталий, если уже пример набросали, где обнуление переменной e ?!
а где cos x , cos x2, cos x3 и т.д.?!!

правда, я не понимаю, что означает запись cos x3, думаю, что это x в 3-степени, но по такой записи, без формулы, нельзя утверждать точно...

[Sania59]

правда, я не понимаю, что означает запись cos x3, думаю, что это x в 3-степени, но по такой записи, без формулы, нельзя утверждать точно... Да действительно это степени x во второй, x в третий и так далее до x в 90 степени

[Serge_Bliznykov]

ну, пробуйте так:

var e:Double; i:integer;
 x, powX : Double;
begin
 WriteLn('Введите x:'); Readln(x);
 e:=0;
 powX := 1;
 for i:=1 to 90 do begin
   powX := powX * x; {возведение X в степень i}
   e:=e+cos(powX); 
 end;
 write('e=',e);
 readln;
end.

[Stilet]

где обнуление переменной e ?

Та я иногда доверяю это самому компилю. Она будет в нуле, это же не локальная переменка. Тем паче что автору все равно. Знаю что это не по феншую, но... иногда случается "иногда"