1 2 3 4 5 6 7 | 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 ( Скачать )
1 2 3 4 5 6 7 | 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 ( Скачать )