1 2 3 4 5 6 7 8 | CLS SCREEN 9 LINE ( 150 , 175 )-( 450 , 175 ) LINE ( 300 , 25 )-( 300 , 325 ) FOR i = 1 TO 6 r = i * 25 CIRCLE ( 300 , 175 ), r, , , , 1 NEXT |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 8 | CLS SCREEN 9 LINE ( 150 , 175 )-( 450 , 175 ) LINE ( 300 , 25 )-( 300 , 325 ) FOR i = 1 TO 6 r = i * 25 CIRCLE ( 300 , 175 ), r, , , , 1 NEXT |
Тестирование выполнено в программе QB64 ( Скачать )