Разложение числа на сумму квадратов - QBasic

Формулировка задачи:

Дано натуральное число. Надо представить его в виде суммы квадратов натуральных чисел. Количество слагаемых должно быть минимально. В программе используется рекурсивная процедура.

DECLARE SUB pq (n AS LONG)
CLS
DIM n AS LONG
INPUT "N = "; n
 
CALL pq(n)
END
 
SUB pq (n AS LONG)
   IF n < 4 THEN
      IF n = 1 THEN PRINT " 1";
      IF n = 2 THEN PRINT " 1  1";
      IF n = 3 THEN PRINT " 1  1  1";
   ELSE
      m = INT(SQR(n))
      PRINT m;
      CALL pq(n - m ^ 2)
   END IF
END SUB

Решение задачи: «Разложение числа на сумму квадратов»

Листинг программы

SUB pq(n AS LONG)
  IF n THEN
    m = INT(SQR(n))
    PRINT m;
    CALL pq(n - m ^ 2)
  END IF
END SUB

Объяснение кода листинга программы

В данном коде реализован рекурсивный алгоритм для разложения числа на сумму квадратов. Вот список действий, которые выполняются в этом коде:

Проверка условия: если число n не равно 0, то выполняются следующие действия.
Вычисление значения переменной m как целочисленного значения квадратного корня из числа n.
Вывод значения переменной m на экран.
Вызов рекурсивной функции pq с аргументом (n - m^2).
Если условие в начале функции не выполняется, то выполняется основная часть алгоритма.
Если условие в начале функции выполняется, то выполняется только вызов рекурсивной функции pq с аргументом (n — m^2).
Рекурсивные вызовы функции pq уменьшают значение числа n на произведение квадрата числа m и последовательно выводят значения переменных m до тех пор, пока не будет достигнуто условие окончания рекурсии (n=0).
При достижении условия окончания рекурсии (n=0) выводится на экран число m.
Если условие в начале функции не выполняется, то выводится сообщение об ошибке.
Возврат управления в вызывающую программу.