0 / 0 / 0
Регистрация: 22.03.2023
Сообщений: 1
1

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

22.03.2023, 15:45. Показов 356. Ответов 1

Author24 — интернет-сервис помощи студентам
Изменить код под рекурсию.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2023, 15:45
Ответы с готовыми решениями:

Сделать рекурсию
Помогите исправить код. procedure Find(k: integer); var L,R,i,j: integer; w,x: integer;...

Задание на рекурсию
Парни, помогите пожалуста....задача на рекурсию!!!! завтра надо уже показать ее... я не как не могу...

Цикл на рекурсию
помогите приминить рекурсию в ф-ии. function IsValid(r: Queens; step: integer) : boolean; var...

Упражнение на рекурсию
Возвести число в квадрат, пользуясь соотношением...

1
3050 / 1668 / 657
Регистрация: 19.03.2019
Сообщений: 5,368
23.03.2023, 09:14 2
Ninto, ты таки будешь смеяться, но у тебя уже рекурсия

смотри, внутри процедуры Per (в строке кода 18) вызывается процедура Per
Цитата Сообщение от Ninto Посмотреть сообщение
Pascal
18
    Per(a,p+1);
когда функция или процедура внутри себя обращается к самой себе, это и называется рекурсией.
0
23.03.2023, 09:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.03.2023, 09:14
Помогаю со студенческими работами здесь

Задача на рекурсию
const n=...; type vector = array of real; Описать рекурсивную функцию max (x) для определения...

Сделать рекурсию
Сделать рекурсию. Имеется двумерное рекуррентное соотношение: \begin{cases}x_{n+1}=...

Из Repeat сделать рекурсию
Здравствуйте, дано код на PascalABC.NET, в нет есть цикл repeat - until, нужно переделать программу...

Дана программа. Нужно сделать рекурсию
Дана программа. Нужно сделать рекурсию при помощи процедуры. var s,k:string; i:integer; begin ...

Сделать рекурсию, которая выводит квадрат в квадрате
Сделать рекурсию, которая выводит квадрат в квадрате. Помогите пожалуйста)

Задача на рекурсию
посажена картошка: 30 рядков по 20 лунок в каждом. 1. Смоделировать картофельное поле, зная, что...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru