Табулирование функции двух переменных - 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

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

textual
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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ