Арифметическая и геометрическая прогрессии

[likstalkera]

ДАНО 3 и 8-й члены убыв. арифм. и геомет. прогрессии
СОСТАВИТЬ ПРОГРАММУ И ВЫЧИСЛИТЬ 30-й член прогрессий

На фри паскале если можно код плиз...

[likstalkera]

ПРИМЕЧАНИЕ: использовать для возведения в степень формулу
X*=EXP(N*LN(X))
которая справедлива для любых целых и нецелых n (например, для вычисления любых корней :

(n КОРЕНЬ ИЗ Х)=X^(1/n)=EXP((1/n)*LN(X))

Арифметическая прогрессия: an= a1 +d(n-1), Sn= (a1 + an) n /2.

Геометрическая прогрессия:

Варьируемыми параметрами в задачах считать, как , например, в задании 1 : a2, a3 и n .

Алгоритм решения на примере задачи: Даны 5 и 15 члены возраст. арифм.(a15 a5) и убыв. геомет. (b15 b5) прогрессии. Найти 201 член прогрессий (или сумму 201 члена прогрессии).
Решается система 2-х уравнений относительно 2-х неизвестных d, a1 или q, b1:
a5= a1+4d (1) Решение d= b5= b1q (1) Решение q=
a15= a1+14d (2) a1=a5-4d b15= b1q (2) b1=b5
затем вычисляются по указанным выше формулам n-член или сумма n-членов прогрессий
an=a1+d(n-1), San=(a1+an)n/2 bn=b1 , Sgn=b1
Вводятся исходные числовые данные после READ(a5,a15,n) READ(b5,b15,n)
По формулам вычисляются d, a1, an или San q, b1, bn, или Sgn
Для программы вводятся переменные a5, a15, d, a1, n, an, или San b5, b15, q, b1, n, bn, или Sgn

Вот может поможет...