Question

Дан массив чисел От А До Б вывести в порядке уменьшения используя процедуру и рекурсию.(Паскаль)

Answer 1

var a: integer;

procedure row(n:integer);

begin

    if n>=1 then begin

       write (n, ' ');

       row(n-1)

    end;

end;

begin

readln(a);

   row(a);

end.

Answer 2

Вот пример рекурсивной процедуры на языке Pascal, которая выводит массив чисел от A до B в порядке убывания:

pascalCopy code
procedure PrintArrayDescending(A, B: Integer);
begin
  // Базовый случай: если A больше B, то выходим из рекурсии
  if A > B then
    Exit;

  // Выводим текущий элемент
  Write(A, ' ');

  // Рекурсивно вызываем процедуру для следующего элемента
  PrintArrayDescending(A - 1, B);
end;

Вы можете вызвать эту процедуру следующим образом:

pascalCopy code
var
  A, B: Integer;
begin
  // Введите значения для A и B
  Write('Введите значение для A: ');
  ReadLn(A);
  Write('Введите значение для B: ');
  ReadLn(B);

  // Вызываем процедуру
  PrintArrayDescending(A, B);
end.

Например, если вы введите A = 5 и B = 1, программа выведет числа 5, 4, 3, 2, 1 в порядке убывания.