решите пожалуйста, вот что успела написать, задачу надо решить с рекурсией и без неё, заранее спасибо

[dasha13]

V3_G-TkJvsY (1).jpg

program Projectrec;

{$APPTYPE CONSOLE}

uses
SysUtils;
  var i,m,a,c,sum,G:integer;
function f(const m,a,c:integer): integer;
 var g: integer;
begin
  if m < 10 then
  exit(m);
  g:= (a * (m + c)) mod 10; // 0...9
  result:= m + g * f(m - 1 - g,a,c);
end;
begin
readln(m);
readln(a);
readln(c);
 i:=m;

 writeln(f(m,a,c));
 sum:=0;
repeat
   g:= (a * (m + c)) mod 10; // 0...9
  sum:= sum + m + g + g;
  m:= m + g;
until m > i;
writeln(sum);
  readln;
end.

[mihаli4]

Хм-м-м... Раздел "Компоненты Delphi"...
А где в задании хоть слово про "Компоненты Дельфи"???

[Serge_Bliznykov]

Сообщение от mihаli4

Хм-м-м... Раздел "Компоненты Delphi"...

вжух и тему перенесли...

[digitalis]

Да рази дело - в названии раздела? Человеку рекурсивную процедуру намулюкать нужно. Мне - лень.

[Serge_Bliznykov]

Сообщение от digitalis

Человеку рекурсивную процедуру намулюкать нужно

если Вы посмотрите в код, то увидите, что рекурсивная процедура f уже написана.
только с ошибками.

вот так будет правильно:

program Projectrec;

{$APPTYPE CONSOLE}

uses SysUtils;
function f(const m,a,c:integer): integer;
 var gm: integer;
begin
  if m < 10 then Result := m
  else begin
    gm:= (a * (m + c)) mod 10; // 0...9
    WriteLn('*debug g(m) = ',gm,' f(',m - 1 - gm,')');
    result:= gm * f(m - 1 - gm,a,c);
  end;
end;

var m,a,c,rFunc,g:integer;
begin
{readln(a);
readln(c);
readln(m);}
a := 3;
c := 17;
m := 22;

 writeln('Recursion f(',m,')=', f(m,a,c));

 rFunc:=1;
 repeat
   g:= (a * (m + c)) mod 10; // 0...9
   if m > 9 then begin
      rFunc := rFunc * g;
      m := m - 1 - g
   end
   else begin
      rFunc := rFunc * m;
      m := 0
   end;
 until m=0;
 writeln('Non recursive f = ',rFunc);
 readln;
end.