Найти сумму первых к членов этой прогрессии - Free Pascal
Формулировка задачи:
Ребят работаю инструктором и не чего не успеваю выручите.
1.
Даны второй и пятый члены геометрической прогрессии. Найти сумму первых к членов этой прогрессии.
2.
Вычислить площадь и периметр равнобедренного треугольника со стороной а и основанием в.
Решение задачи: «Найти сумму первых к членов этой прогрессии»
textual
Листинг программы
Uses Math;
var b1,b2,b5,q:double;
k:dword;
begin
write('b2 : ');
Readln(b2);
write('b5 : ');
Readln(b5);
q:=power(b5/b2,1/3);
b1:=q/b2;
write('k : ');
readln(k);
Write('Sum b(',k,') = ');
if q<>1 then Writeln(b1*(1-power(q,k))/(1-q):5:3)
else Writeln(k*b1:5:3);
Readln;
end.
Объяснение кода листинга программы
- Импортируется модуль Math.
- Объявляются переменные b1, b2, b5, q типа double и k типа dword.
- Выводится значение переменной b2.
- Считывается значение переменной b2.
- Вычисляется значение переменной q как степени числа b5/b2, делённой на 3.
- Вычисляется значение переменной b1 как степени числа q, делённой на b2.
- Выводится значение переменной k.
- Выводится сумма первых k членов прогрессии (b1*(1-power(q,k))/(1-q)).
- Программа ожидает ввода.