Найти сумму, используя рекурсию

@vinya · Регистрация: 24.04.2012

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

Найти значение суммы X1+X2+...+Xn, где X1=const, а Xi=(Xi-1)*5 , используя рекурсивную функцию.
помогите, пожалуйста найти ошибку, почему не работает программа

Pascal

program Project1;
var
    z,n:Integer;
    function xxx(x:Integer): Integer;
    begin
    if n=0 then xxx:=0 else xxx:=x+xxx(x*5);
    end;
begin
  Writeln('vvedite chislo n');
  Readln(n);
  z:=xxx(n*5);
  Writeln('znachenie viragenia=',z:4);
  Readln;
end.

@Puporev · 26.05.2012, 16:40

Насколько элементарное условие, настолько тупо написано...

Pascal

program Project1;
function xxx(x1,n:Integer): Integer;
begin
if n=1 then xxx:=x1 else xxx:=xxx(x1,n-1)*5;
end;
var n,x1,z:Integer;
begin
  Write('vvedite chislo n=');
  Readln(n);
  Write('vvedite x1=');
  Readln(x1);
  z:=xxx(x1,n);
  Writeln('znachenie viragenia=',z);
  Readln;
end.

	26.05.2012, 16:40