РЕШЕНИЕ ЗАДАЧ БЕЙСИК

[Никита программист]

Составлял программу для решения данной задачи,не могу понять в чем ошибка,программа выделяет третью строчку как ошибку

[сфинкс]

REM ZNACENIE F
INPUT "VVEDITE X,Y"; x, y
IF x = y THEN Z = SQR(SIN(x) ^ 2 + COS(y) ^ 2): PRINT "Uslov 1": GOTO 5
IF x < y AND y > 0 THEN Z = TAN(ABS(x / y)) - SQR(y): PRINT "Uslov 2": GOTO 5
PRINT "Uslov 3": Z = 1
5 PRINT "Z="; Z
END

вдобавок пишет какое условие выполнилось
но 1-е условие наверное всегда ответ 1

внимательнее с подсказкой ниже:

sin(2*x))^2 или SIN(x) ^ 2
tg(ABS или TAN(ABS

[ViktorR]

1. Basic и QB64 есть условный оператор в полной и сокращённой форме:
а) В полной форме:

IF <лог. условие> THEN
   <Блок операторов, если условие выполняется>
ELSE
    <Блок операторов, если условие не выполняется>
END IF

б) В сокращённой:

IF условие THEN <Оператор, если условие выполняется>

или

IF условие THEN
   <Блок операторов, если условие выполняется>
END IF

2. Запись элементарных и составных функций отличается от того, как мы это записываем на письме.
Пример: z = sin^2(2x) . Тут символ ^ следует понимать как степень. Т.е. 2 - это надстрочный символ на письме.
В выражениях для языка программирования это надо представить как выражение, которое составлено из элементарных функций:
2x --> 2*x
sin^2(2*x) --> (y)^2, где y = sin(2*x). Т.е. z = (sin(2*x))^2.
Внешние скобки можно не использовать.
Решение может быть таким:

REM ZNACHENIE
INPUT "VVEDITE DVA CHISLA x, y: ", x, y
IF x = y THEN
    z = SQR(sin(2*x)^2 +cos(y)^2)
ELSE
   IF ( x < y) THEN
      IF (y > 0) THEN
          z = tg(ABS(x/y)) - SQR(y)
      ELSE
          z = 1
      END IF
   END IF
END IF
PRINT "Z = ": Z

Обрати внимание на то, что оператор GOTO и сопутствующие ему метки отсутствуют.
В языках программирования достаточно развитая форма записей условных операторов и циклов. Использование GOTO - это крайне редкое событие, т.к. ясность при чтении программного кода смазывается.
Конечно, в такой маленькой программе GOTO не сильно влияет на понимание записанного алгоритма, но лучше отвыкать от привычки использовать GOTO.
Обрати внимание и на то, как записаны условия.