Вычислить сумму элементов последовательности

@dmitriy2012 · Регистрация: 06.06.2012

даны натуральное число n, действительное число а. Напечатать последовательность чисел: cos(a), cos(cos(a)), cos(cos(cos(a))), ... , cos ( ... ( cos(a)...); n раз.

Добавлено через 1 час 35 минут

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

cos(a), cos(cos(a)), cos(cos(cos(a))), ... , cos ( ... ( cos(a)...); n раз.

тут в конце каша так что можно просто cos(a), cos(cos(cos)), cos(cos(cos(a)))... так N раз.

Добавлено через 2 минуты
прошу прощения, где cos(cos(cos(cos)) там cos(cos(a))

n - натуральное.
а - действительное.

Найти сумму элементов последовательности cos(a), cos(cos(a)), cos(cos(cos(a))), ... n раз

valeriikozlov · 09.06.2012, 22:59

Pascal

var 
a:real;
n:integer;
begin
write('n= '); read(n);
write('a= '); read(a);
while n>0 do begin
a:=cos(a);
writeln(a);
dec(n);
end;
readln();
end.

@Puporev · 11.06.2012, 08:39

Pascal

var a,t,s:real;
    n,i:integer;
begin
write('a=');
readln(a);
write('n=');
readln(n);
s:=cos(a);
t:=cos(a);
for i:=2 to n do
 begin
  t:=cos(t);
  s:=s+t;
 end;
write('S=',s:0:4);
readln
end.

@dmitriy2012 0 / 0 / 0 Регистрация: 06.06.2012 Сообщений: 48
		1
	Вычислить сумму элементов последовательности 09.06.2012, 13:43. Показов 1085. Ответов 2 Метки нет (Все метки) даны натуральное число n, действительное число а. Напечатать последовательность чисел: cos(a), cos(cos(a)), cos(cos(cos(a))), ... , cos ( ... ( cos(a)...); n раз. Добавлено через 1 час 35 минут Сообщение от dmitriy2012 cos(a), cos(cos(a)), cos(cos(cos(a))), ... , cos ( ... ( cos(a)...); n раз. тут в конце каша так что можно просто cos(a), cos(cos(cos)), cos(cos(cos(a)))... так N раз. Добавлено через 2 минуты прошу прощения, где cos(cos(cos(cos)) там cos(cos(a)) n - натуральное. а - действительное. Найти сумму элементов последовательности cos(a), cos(cos(a)), cos(cos(cos(a))), ... n раз 0

Опции темы

Вычислить сумму элементов последовательности

Решение