Question

Решить задачу с помощью рекурсивной функции или процедуры. Pascal. Сформировать множество из цифр натурального числа.

Answer 1

function foo(n: integer): set of integer;

begin

 if n = 0 then result := []

 else

   result := [n mod 10] + foo(n div 10)

end;

begin

 var a := 12345;

 var s: set of integer := [];

 s := foo(a);

 Print(s)

end.

Answer 2

Для решения задачи с формированием множества из цифр натурального числа с помощью рекурсивной процедуры, вам потребуется разбить число на его цифры и добавить их в множество. В Pascal это можно сделать следующим образом:

pascalCopy code
procedure AddDigitsToSet(number: Integer; var digitSet: set of 0..9);
begin
  if number = 0 then
    Exit;

  // Получаем последнюю цифру числа
  var digit := number mod 10;

  // Добавляем цифру в множество
  Include(digitSet, digit);

  // Рекурсивно обрабатываем оставшуюся часть числа без последней цифры
  AddDigitsToSet(number div 10, digitSet);
end;

Вызов этой процедуры сформирует множество digitSet, содержащее цифры из натурального числа number.

Пример использования процедуры:

pascalCopy code
var
  number: Integer;
  digitSet: set of 0..9;

begin
  number := 1234567890;
  digitSet := [];

  AddDigitsToSet(number, digitSet);

  // Выводим множество на экран
  for var digit in digitSet do
    Write(digit, ' ');
end.

Если number равно 1234567890, результат выполнения программы будет:

Copy code
0 1 2 3 4 5 6 7 8 9

Обратите внимание, что в множестве хранятся уникальные цифры, и дубликаты будут игнорироваться.