Составить три варианта программы вычисления функции: первый вариант с использованием оператора f; второй вариант с использованием оператора select case; третий вариант с использованием оператора DEF (функция пользователя) — QBasic(Бейсик)

disel
1
2
3
       x^2             при x<A
y=     x^2+Acosx-sinx      A<=x<=B   
       tgx A=1
1
2
3
4
5
INPUT "vvedite x ", x
INPUT "vvedite B ", b
a = 1
IF x < a THEN y = x ^ 2 ELSE IF x > b THEN y = TAN(x) ELSE y = x ^ 2 + a * b * COS(x) - SIN(x)
PRINT "y="; y
1
2
3
4
5
6
7
8
9
10
11
12
INPUT "vvedite x ", x
INPUT "vvedite B ", b
a = 1
SELECT CASE x
    CASE IS < a
        y = x ^ 2
    CASE IS > b
        y = TAN(x)
    CASE ELSE
        y = x ^ 2 + a * b * COS(x) - SIN(x)
END SELECT
PRINT "y="; y

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment