Табулирование функции, нахождение максимума и минимума - QBasic

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

Табулирование функции, нахождение максимума и минимума Функция: Y=arctg(x)+x^(1/2)+2 Начальное x=3 Конечное x=6 Шаг по х= 0.3 Если не затруднит еще блок схему к этой программе. Заранее благодарен))

Решение задачи: «Табулирование функции, нахождение максимума и минимума»

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

DECLARE FUNCTION Y! (x!)
 
CLS
 
FOR x = 3 TO 6.1 STEP .3
   PRINT USING "x = #.#   Y = ##.###"; x; Y(x)
NEXT
PRINT : PRINT
max = Y(3)
min = max
 
FOR x = 3 TO 6 STEP .001
   IF max < Y(x) THEN max = Y(x)
   IF min > Y(x) THEN min = Y(x)
NEXT
 
PRINT "MAX ="; max
PRINT "MIN ="; min
END
 
FUNCTION Y (x)
   Y = ATN(x) + SQR(x) + 2
END FUNCTION

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

В этом коде:

Делоет функцию Y(x), которая принимает один аргумент типа Double и возвращает Double.
Задает шаг 0.3 для переменной x от 3 до 6.1. Цикл выполняет 6-3=3 итерации.
Выводит на экран текущее значение x и результат вызова функции Y(x).
Находит максимальное значение функции Y(x) среди всех точек, для которых была вызвана функция.
Находит минимальное значение функции Y(x) среди всех точек, для которых была вызвана функция.
Выводит на экран найденные максимальное и минимальное значения функции Y(x).
Завершает работу программы. В функции Y(x):
Принимает аргумент типа Double.
Возвращает результат вычисления функции, которая суммирует значения функций atn(x), sqr(x) и 2. В переменной max хранится текущее максимальное значение функции Y(x). В переменной min хранится текущее минимальное значение функции Y(x).