Вычислить значение функции G по формуле

@k3na4 · Регистрация: 23.12.2010

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

@sanya923 · 09.04.2011, 13:45

Pascal

const
  n=5;
var
  i:integer;
  a,p,res:real;
  x:array[1..n] of real;
begin
  a:=0;
  p:=1;
  write('Введите пять значений подряд через пробел: ');
  readln(x[1],x[2],x[3],x[4],x[5]);
  for i:=1 to n do
    begin
      p:=p*(x[i]/(i+1))
      a:=a+x[i]+arctan(p)
    end;
  res:=sin(a);
  writeln('Результат: ',res);
  readln;
end.

@k3na4 0 / 0 / 0 Регистрация: 23.12.2010 Сообщений: 26
		1
	Вычислить значение функции G по формуле 09.04.2011, 02:13. Показов 1229. Ответов 1 Метки нет (Все метки) Вычислить значение функции G по формуле 0

	09.04.2011, 13:45

Вычислить значение функции G по формуле

Решение