Как вывести геометрическую прогрессию?

Question

Пытался вывести геометрическую прогрессию

  b,q:real;
  n:Integer;
  sum:real;
begin
  n:=0;
  b:=StrToFloat(Edit1.Text);
  q:=StrToFloat(Edit2.Text);
  for n:=0 to n do
    sum:=(b*(1-q*n))/(1-q);
  Label1.Caption:=sum;

в чем ошибка? что не так?

Answer 1

дам ответ кусочком на кусочек ваш

b,q:real;
sum:real;
begin    
b:=StrToFloat(Edit1.Text);
q:=StrToFloat(Edit2.Text);
sum:=b/(1-q);
Label1.Caption:=FloatToStr(sum);

формула суммы бесконечно убывающей геометрической прогрессии.

Обязательное условие основание по модулю меньше единицы. И сумма бесконечная. Для конечной суммы нужно количество членов в придачу к имеющимся параметрам

БЛОГ НА HUSL

Как вывести геометрическую прогрессию?

Ответы (1 шт):