1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | CONST Pi = 3.14159265358#SCREEN 12 ' Параметры r = 100 oy = r ' Сетка LINE (0, 240)-(640, 240), 8 FOR x = 0 TO Pi * 2 STEP Pi / 4 LINE (x * r, 230)-(x * r, 250), 8 NEXT ' График FOR x = 0 TO Pi * 2 STEP Pi / 360 ny = COS(x) * r: nx = x * r LINE (ox, 240 - oy)-(nx, 240 - ny), 10 ox = nx: oy = ny NEXT |
Тестирование выполнено в программе QB64 ( Скачать )