1 2 3 4 5 6 7 | CLS INPUT "a,b,h="; a, b, h FOR x = a TO b STEP h y = 2 * TAN(x / 2 ) + 1 PRINT "x="; x, "y="; y NEXT x END |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 | CLS INPUT "a,b,h="; a, b, h FOR x = a TO b STEP h y = 2 * TAN(x / 2 ) + 1 PRINT "x="; x, "y="; y NEXT x END |
Тестирование выполнено в программе QB64 ( Скачать )