Найти произведение ряда

@Flaze · Регистрация: 27.05.2013

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

Дано натуральное п, действительное х. Вычислить:

Название: Снимок экрана 2013-11-18 в 21.06.47.png
Просмотров: 17

Размер: 10.5 Кб

@Samhain · 19.11.2013, 09:31

Flaze,

Pascal

var p,pi,x:real;
    i,n:integer;
begin
  write('n = ');readln(n);
  write('x = ');readln(x);
  p:=1;pi:=1;
  for i:=1 to n do
    begin
      pi:=pi*cos(abs(x));
      p:=p*(i/(i+1)-pi);
    end;
  writeln('p = ',p:0:5);
  readln;
end.

@Flaze 1 / 1 / 1 Регистрация: 27.05.2013 Сообщений: 160
		1
	Найти произведение ряда 18.11.2013, 22:07. Показов 1029. Ответов 1 Метки нет (Все метки) Дано натуральное п, действительное х. Вычислить: 0

	19.11.2013, 09:31

Опции темы

Найти произведение ряда

Решение