Составление программы упорядочивания чисел - QBasic

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

Добрый вечер.. Ребятки,помогите пожалуйста, нужно срочно составить программу упорядочивания по возрастанию 3-ёх чисел. И еще: "Составьте программу вычисления функции y = √ x^2 + x + 1; где x изменяется от 1 до 4 с шагом 0,5

Решение задачи: «Составление программы упорядочивания чисел»

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

REM y = SQR(x^2 + x + 1)
 
DECLARE FUNCTION f! (x!)
 
CLS
 
FOR x = 1 TO 4 STEP .5
   y = f(x)
   PRINT USING "x = #.#   y = #.### "; x; y
NEXT
END
 
FUNCTION f (x)
   f = SQR(x ^ 2 + x + 1)
END FUNCTION

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

В данном коде:

REM y = SQR(x^2 + x + 1) - здесь происходит возведение в квадрат числа x, затем сложение x и единицы, и извлечение квадратного корня из полученной суммы. Результат сохраняется в переменной y.
DECLARE FUNCTION f!(x!) - здесь объявляется функция с именем f, которая будет принимать один аргумент x.
CLS - команда очистки экрана.
FOR x = 1 TO 4 STEP .5 - начинается цикл, который будет выполняться четыре раза с шагом 0,5. Значение переменной x при этом будет изменяться от 1 до 4.
y = f(x) - в каждой итерации цикла значение переменной x передается в функцию f и сохраняется в переменной y.
PRINT USING x = #.# y = #.###; x; y - выводится на экран строка с текущими значениями x и y, отформатированная с точностью до двух знаков после запятой.
NEXT - переход к следующей итерации цикла.
END - конец цикла.
FUNCTION f(x) - определение функции f, которая будет вычислять значение выражения SQR(x ^ 2 + x + 1).
f = SQR(x ^ 2 + x + 1) - вычисление значения функции f и присвоение его переменной f.
END FUNCTION - конец определения функции f.