Алгебраическая прогрессия

@Deagle3 · Регистрация: 13.12.2018

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

Решил написать цикл для вычисления примера, хочу удостоверится в правильности написания, т.к. не сходится ответом.

var a,b,i,x,x1:real;
begin
a:= 1;
b:= 2;
i:= 1600;
x1:=0;
while i>b do begin
x:=1/(sqrt(a)+sqrt(b)) + 1/(sqrt(a+1)+sqrt(b+1));
x1:= x1+ x;
a:=a+2;
b:=b+2;
end;
writeln(x1);
end.

@JuriiMW · 28.10.2019, 04:41

Что за ересь?
Что за „алгебраическая прогрессия“?
Есть понятие арифметической или геометрической прогрессии.
Но данная формула не подходит ни под ту, ни под другую.
Математически её можно записать так:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{1599}=\frac{1}{\sqrt{i}+\sqrt{i+1}}$
Вот для неё и нужно искать сумму:

Pascal

var s : Real; i : Integer;
begin
  s := 0;
  for i := 1 to 1599 do
    s := s + 1/(sqrt(i) + sqrt(i+1));
  WriteLn(s);
end.

@Deagle3 0 / 0 / 0 Регистрация: 13.12.2018 Сообщений: 28
		1
	Алгебраическая прогрессия 27.10.2019, 23:02. Показов 1314. Ответов 1 Метки нет (Все метки) Решил написать цикл для вычисления примера, хочу удостоверится в правильности написания, т.к. не сходится ответом. var a,b,i,x,x1:real; begin a:= 1; b:= 2; i:= 1600; x1:=0; while i>b do begin x:=1/(sqrt(a)+sqrt(b)) + 1/(sqrt(a+1)+sqrt(b+1)); x1:= x1+ x; a:=a+2; b:=b+2; end; writeln(x1); end. Миниатюры 0

	28.10.2019, 04:41

Опции темы