Создать код для блок-схемы - QBasic

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

Прошу помочь!

Решение задачи: «Создать код для блок-схемы»

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

DECLARE FUNCTION f! (x!, y!)
CLS
 
x0 = 0
y0 = 1
xk = 1
n = 10
 
h = (xk - x0) / n
x = x0
y = y0
row = 4
 
DO WHILE x < xk
   f0 = f(x, y)
   x1 = x + h / 2
   y1 = y + f0 * h / 2
   y = y + f(x1, y1) * h
   x = x + h
   row = row + 1
 
   PRINT USING "x = #.#    y = #.###"; x; y
LOOP
END
 
FUNCTION f (x, y)
   f = x * y
END FUNCTION

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

Объявляется функция с двумя позиционными параметрами x и y.
Очищается экран.
Задаются начальные значения переменных: x0 = 0, y0 = 1, xk = 1, n = 10.
Вычисляется шаг h = (xk - x0) / n.
Устанавливаются начальные значения переменных: x = x0, y = y0, row = 4.
Запускается цикл DO WHILE x < xk.
В каждой итерации цикла вычисляются значения функций f0 = f(x, y), x1 = x + h/2, y1 = y + f0h/2, y = y + f(x1, y1)h, x = x + h.
После каждой итерации цикла значение переменной row увеличивается на 1.
Каждое значение x и y выводится на экран с использованием формата x = #.# y = #.###.
Цикл завершается, когда значение переменной x становится больше значения переменной xk.
Определяется функция f(x, y) с результатом x*y.
Код завершается.