Для заданного числа х вычислить сумму одиннадцати слагаемых: Sinx + CosSinx + SinCosSinx+…+SinCos…Sinx

@Vana999 · Регистрация: 28.05.2011

Студворк — интернет-сервис помощи студентам

Для заданного числа х вычислить сумму одиннадцати слагаемых:
Sinx + CosSinx + SinCosSinx+…+SinCos…Sinx

На одной строке экрана вывести значения каждого слагаемого,

на другой строке — значение суммы.

@lamed · 19.06.2011, 19:30

Pascal

{ Для заданного числа х вычислить сумму одиннадцати слагаемых: 
 Sinx + CosSinx + SinCosSinx+…+SinCos…Sinx 
 На одной строке экрана вывести значения каждого слагаемого, }
var
   x,y,s: real;
   i, n: integer;
begin
  readln(n); { n:=11; }
  readln(x);
  s:= 0;
  y:=x;
  for i:= 1 to n do
    begin
      if odd(i) then
        y:= sin(y)
      else
        y:= cos(y);
      write(y:7:4);
      s:= s+y;
    end;
  writeln;
  writeln(s:7:4);
end.

@Vana999 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 33
		1
	Для заданного числа х вычислить сумму одиннадцати слагаемых: Sinx + CosSinx + SinCosSinx+…+SinCos…Sinx 19.06.2011, 19:21. Показов 2476. Ответов 1 Метки нет (Все метки) Для заданного числа х вычислить сумму одиннадцати слагаемых: Sinx + CosSinx + SinCosSinx+…+SinCos…Sinx На одной строке экрана вывести значения каждого слагаемого, на другой строке — значение суммы. 0

	19.06.2011, 19:30

Опции темы

Для заданного числа х вычислить сумму одиннадцати слагаемых: Sinx + CosSinx + SinCosSinx+…+SinCos…Sinx

Решение