Вычислить квадрат и синус числа - QBasic

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

1) Дано одно число. Вычислить его квадрат и синус, затем, если синус числа положительный, вычислить и напечатать его удвоенные тангенс, в противном случае утроенный косинус. 2) Организуйте массив. Определите значение и порядковый номер максимального элемента.

Решение задачи: «Вычислить квадрат и синус числа»

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

 a = 5      ' Наше число
 kv = a * a
 sina = SIN(a)
CLS
  IF sina > 0 THEN
    PRINT TAN(a) * 2
  ELSE
    PRINT COS(a) * 3
  END IF

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

a = 5 — в данной строке переменной a присваивается значение 5, это число будет использоваться в дальнейшем в вычислениях
kv = a * a — здесь переменной kv присваивается значение a*a, то есть квадрат числа a
sina = SIN(a) — в данной строке переменной sina присваивается значение функции SIN(a), то есть синус числа a
CLS — команда очистки экрана, она используется для того чтобы убрать все предыдущие вычисления и результаты на экране
IF sina > 0 THEN — здесь проверяется условие sina > 0, если оно истинно, то выполняются дальнейшие команды, если ложно, то выполняются команды с альтернативным вариантом
PRINT TAN(a) * 2 — здесь вычисляется значение TAN(a) * 2 и выводится на экран
ELSE — это альтернативный вариант, который выполняется если условие sina > 0 ложно
PRINT COS(a) * 3 — здесь вычисляется значение COS(a) * 3 и выводится на экран
END IF — это конец условия, после этого команды с условием выполняться не будут