Сделать рекурсию

@Ninto · Регистрация: 22.03.2023

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

Изменить код под рекурсию.

Pascal

const
  n=3;
type
  ar= array[1..n] of integer;
procedure Per(a: ar; p: integer);
var
  i,b: integer;
begin
  if p=n then begin
    for i:=1 to n do write(a[i]);
    writeln
  end
  else begin
    b:= a[p];
    for i:=p to n do begin
      a[p]:= a[i];
      a[i]:= b;
      Per(a,p+1);
      a[i]:= a[p]
    end;
  end;
end;
var
  i: integer;
  a: ar;
begin
  for i:=1 to n do a[i]:= i;
  Per(a,1)
end.

@mr-Crocodile · 23.03.2023, 09:14

Ninto, ты таки будешь смеяться, но у тебя уже рекурсия

смотри, внутри процедуры Per (в строке кода 18) вызывается процедура Per

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

Pascal

18	Per(a,p+1);

когда функция или процедура внутри себя обращается к самой себе, это и называется рекурсией.

	23.03.2023, 09:14