Табулирование функции двух переменных - QBasic

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

Табулирование функции двух переменных Функция: s=(a*e^(-2x)) * cos(pi*x/2)+(a^2)*sqrt(x) Изменение аргументов первого интервал x[0;pi/2] шаг 0.2 второго интервал y[1;5] шаг 1.5 Исходные данные а=2.1

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

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

DECLARE FUNCTION s! (x!, y!)
CLS
CONST a = 2.1
CONST pi = 3.141593
PRINT "   x =";
 
FOR x = 0 TO pi / 2 STEP .2
   PRINT USING "   ##.#"; x;
NEXT x
PRINT
PRINT
 
FOR y = 1 TO 5 STEP 1.5
   PRINT USING "y = #.#"; y;
   FOR x = 0 TO pi / 2 STEP .2
      PRINT USING " ##.###"; s(x, y);
   NEXT x: PRINT
NEXT y
 
END
 
FUNCTION s (x, y)
   s = a * EXP(-2 * x) * COS(pi * x / 2) + a ^ 2 * SQR(x)
END FUNCTION

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

Список элементов кода:

Объявление функции s(x, y) с двумя аргументами x и y.
Очистка экрана с помощью команды CLS.
Объявление констант a и pi со значениями 2.1 и 3.141593 соответственно.
Вывод сообщения x = с помощью команды PRINT.
Запуск цикла FOR, который выполняет 5 итераций, начиная с 0 и увеличивая значение x на 0.2 на каждой итерации.
Внутри цикла выводит значение x с помощью команды PRINT, используя формат ##.#.
Завершение цикла FOR с помощью команды NEXT x.
Вывод сообщения y = #.# с помощью команды PRINT.
Запуск вложенного цикла FOR, который выполняет 5 итераций, начиная с 0 и увеличивая значение y на 1.5 на каждой итерации.
Внутри цикла выводит значение y с помощью команды PRINT, используя формат y = #.#.
Запуск вложенного цикла FOR, который выполняет 5 итераций, начиная с 0 и увеличивая значение x на 0.2 на каждой итерации.
Внутри цикла выводит значение s(x, y) с помощью команды PRINT, используя формат ##.###.
Завершение вложенного цикла FOR с помощью команды NEXT x.
Завершение внешнего цикла FOR с помощью команды NEXT y.
Определение функции s(x, y), которая принимает два аргумента x и y.
Вычисление значения функции s(x, y) с помощью формулы s = a * EXP(-2 * x) * COS(pi * x / 2) + a ^ 2 * SQR(x).
Завершение определения функции s(x, y) с помощью команды END FUNCTION.
Завершение основного блока кода с помощью команды END.