var a := 1;var b := 1;write(a, ' ', b, ' ');for var i := 3 to 20 dobegin c := a + b; write(c, ' '); a := b; b := c;end;
Вычисление НОД (алгоритм Евклида)
var a, b: integer;read(a, b);assert((a > 0) and (b > 0));repeat c := a mod b; a := b; b := c;until c = 0;writeln(a); Суммирование рядов (конечных и бесконечных)
Найдем рекуррентную связь между ai:
x1 = axi = xi-1 * a / i, i = 2, 3..read(a, n);x := a;s := x;for var i := 2 to n dobegin x *= a / i; s += x;end; Для вычисления суммы бесконечного ряда в простейшем случае используют следующий метод:
задается некоторый малый eps и сумма  вычисляется, пока 
assert((a > 0) and (a < 1));i := 1;s := 0;y := -a;repeat s += y / i; i += 1; y *= -a;until abs(y / i) < eps;
Просмотров: 579
Вернуться в оглавление
|
