Вычислить значение выражения

@Midass · Регистрация: 10.09.2015

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

Условие:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\left(1+1/{1}^{2} \right)\left(1+1/{2}^{2} \right)\left(1+1/{n}^{2} \right)$
У меня тут что-то не так.

Pascal

program task2;
var
  n,i:integer;
  h:real;
begin
  writeln('Введите число N:');
  readln(n);
  h:=1 ;
  for i:=1 to n do
  h:=h*1+(1/sqr(i));
  writeln(' h=',h);
end.

@volvo · 22.09.2015, 18:14

Pascal

10	h:=h*(1+(1/sqr(i)));

@Midass · 22.09.2015, 21:34 **[ТС]**

не, там со скобками всё в порядке) я не уверен что по условию я всё правильно сделал.

@volvo · 22.09.2015, 21:36

Нет не в порядке. У тебя h умножается на 1, и потом складывается со значением 1/sqr(i), так что получается не произведение, а сумма. Причем не того, что нужно.

@_Nilan · 22.09.2015, 23:05

А если попробовать так:
h:=(1+1/sqr(1))*(1+1/sqr(2))*(1+1/sqr(i));

@volvo · 22.09.2015, 23:31

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

А если попробовать так:

Ну, попробуй. n = 45, код можно посмотреть?

@_Nilan · 22.09.2015, 23:43

получается вот что:
Введите число N:
45
h=2.50123456790123

Добавлено через 7 минут
немного поспешил, но если добавить div то получается не плохо

Pascal

var
  n,i:integer;
  h:real;
begin
  writeln('Введите число N:');
  readln(n);
  h:=1 ;
  for i:=1 to n do
 h:=(1+1/sqr(1))*(1+1/sqr(2))*(1+1 div sqr(i));
  writeln(' h=',h);
end.

@Puporev · 23.09.2015, 08:04

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

+1 div sqr(i)

Очень оригинально, а ничего что при i>1 1 div sqr(i) всегда=0?

@Midass 0 / 0 / 0 Регистрация: 10.09.2015 Сообщений: 34
	22.09.2015, 21:34 [ТС]	3
	не, там со скобками всё в порядке) я не уверен что по условию я всё правильно сделал. 0

@volvo Супер-модератор 32977 / 21288 / 8175 Регистрация: 22.10.2011 Сообщений: 36,565 Записей в блоге: 8
	22.09.2015, 21:36	4
	Нет не в порядке. У тебя h умножается на 1, и потом складывается со значением 1/sqr(i), так что получается не произведение, а сумма. Причем не того, что нужно. 1

@_Nilan 5 / 5 / 2 Регистрация: 15.05.2014 Сообщений: 81
	22.09.2015, 23:05	5
	А если попробовать так: h:=(1+1/sqr(1))(1+1/sqr(2))(1+1/sqr(i)); 1

@volvo Супер-модератор 32977 / 21288 / 8175 Регистрация: 22.10.2011 Сообщений: 36,565 Записей в блоге: 8
	22.09.2015, 23:31	6
	Сообщение от _Nilan А если попробовать так: Ну, попробуй. n = 45, код можно посмотреть? 1

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.09.2015, 08:04	8
	Сообщение от _Nilan +1 div sqr(i) Очень оригинально, а ничего что при i>1 1 div sqr(i) всегда=0? 1