CLS
cosinus = 2 / 5
FOR i = 0 TO 9
x = ATN(SQR(1 / (cosinus ^ 2) - 1)) + 2 * 3.14159 * i
grad = x * 180 / 3.14159
PRINT grad
NEXT
Тестирование выполнено в программе QB64 ( Скачать )
CLS
cosinus = 2 / 5
FOR i = 0 TO 9
x = ATN(SQR(1 / (cosinus ^ 2) - 1)) + 2 * 3.14159 * i
grad = x * 180 / 3.14159
PRINT grad
NEXT
Тестирование выполнено в программе QB64 ( Скачать )