1.Вычислить сумму ряда s= cos(x)+cos(x)*cos(x)+...+cos(x)*cos(x)*...*cos(x), для x и n...

Question

1.Вычислить сумму ряда s= cos(x)+cos(x)*cos(x)+...+cos(x)*cos(x)*...*cos(x), для x и n введенных с клавиатуры.

Answer 1

Var n, i: Integer;
    x, sum, temp, cosx: Double;
begin
  ReadLn(x, n);
  sum:=0;
  cosx:=cos(x);
  temp:=1;
  for i:=1 to n do begin
    temp:=temp*cosx;
    sum:=sum+temp;
  end;
  WriteLn(sum);
end.

Comments

спасибо

Answer 2

Var x, n, i, j, r: Integer;
    sum, temp: Double;
begin
  ReadLn(x, n);
  sum:=0;
  r:=cos(x);
  for i:=1 to n do begin
    temp:=r;
    for j:=1 to i do temp:=temp*temp;
    sum:=sum+temp;
  end;
  WriteLn(sum);
end.

Comments

почему синус когда надо косинус

---

а блок схему реализовать сможите

---

Alviko, если Вы такой умный, напишите свое решение! Я свое написал.

---

Program cikal1 ;
var

n, i : integer;

x, s : real;

begin

s := 0;

read (n);

for i := 1 to n do

s := s + sin (i);

writeln (s);

end.

---

я сам сделал анологичное задание но верно ли оно