/
dgrigorev
/
gw-basic-cpp
Обзор
Документация
Войти
/
dgrigorev
/
gw-basic-cpp
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
examples/circles.bas
15 строк
254 B
dagrigorev
first commit
21 апр 2026, 23:47
21 апр 2026, 23:47
514b2f2
Код
Авторство
О чём код?
10 SCREEN 2 20 CLS 30 COLOR 15,0 40 PI = 3.1415926535 50 CX = 320 60 CY = 100 70 SCALE = 35 80 FOR K = 0 TO 8 90 R2 = PI / 4 + K * PI 100 R = INT(SQR(R2) * SCALE) 110 CIRCLE (CX, CY), R, 10 120 NEXT K 130 LOCATE 1,1 140 PRINT "tan(x^2+y^2)=1" 150 END