Найти сумму динамического ряда

echs · Регистрация: 23.10.2013

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

Найти сумму динамического ряда. Ряд действительно
динамический поскольку каждый его член зависит от
предыдущего
Итак, описание ряда. В основе ряда лежит следующий
ряд 1/2 + 2/3 + ... + 100/101
1) всего ровно 100 слагаемых
2) числители слагаемых не меняются
3) меняются знаменатели слагаемых
4) первое слагаемое 1/2, то есть постоянно.
5) алгоритм вычисления знаменателя, начиная со второго
слагаемого
6) это лучше всего понять на примере, чем в общем виде
7) пример
8) допустим, что мы ищем знаменатель слагаемого под
номером 50 (в исходном ряде в знаменателе стоит число
51). А предыдущий знаменатель положим "условно" равен
345. Нам нужна сумма цифр этого знаменателя по MOD 10.
345 => 3 + 4 + 5 = 12 = 2 (MOD 10)
9) Итак вычисленную цифру 2 мы должны "поставить" в
конец нашего знаменателя 51. То есть искомый знаменатель
будет 512
10) чтобы вы могли лучше понять, я приведу несколько
первых слагаемых динамического ряда

1/2 + 2/32 + 3/45 + 4/59 + 5/64 + ...

QBasic/QuickBASIC

REM
REM  1/2 + 2/3 + ... + 100/101
REM
REM  1/2 + 2/32 + 3/45 + 4/59 + 5/64...
REM
REM  SUMMA = 9.965219
REM
 
DECLARE FUNCTION f! (n!)
 
CLS
S = 1 / 2
 
FOR i = 2 TO 100
   z = 10 * (i + 1)
   z = z + (f(2) MOD 10)
   S = S + i / z
NEXT
 
PRINT "SUMMA ="; S
END
 
FUNCTION f (n)
   DIM x AS STRING
   DIM x1 AS STRING
 
   x = LTRIM$(STR$(n))
 
   FOR i = 1 TO LEN(x)
      x1 = MID$(x, i, 1)
      sum = sum + VAL(x1)
   NEXT
   f = sum
END FUNCTION

Не по теме:

примечание
Плохо жить в деревне без нагана! А на форуме?

	04.03.2017, 13:46