1.Выполнить отладку следующей программы:
A) SCREEN 9
FOR X=1 TO 640
CLS
CIRCLE(Х+I, 100),30,2
FOR J=1 T0 5000
NEXT J
CIRCLE(Х+1,100),30,0
NEXT X
Б) Изменить эту программу таким образом, чтобы окружность двигалась по экрану сверху вниз.

1
Комментарий удален
Комментарий удален
SCREEN 9
FOR X = 1 TO 64
CLS
CIRCLE (100, X), 30, 2
FOR J = 1 TO 5000 'Для моего компа 5000 очень мало, движение не заметно я ставил 5000000, зависит от быстродействия компа
NEXT J
NEXT X
спасибо ребят

Ответы и объяснения

2014-04-04T04:25:22+04:00
Выполняем отладку 
SCREEN 9
FOR X = 1 TO 64
CLS
CIRCLE (Х+I,100), 30, 2 (зачем нам cдвиг на I? убираем его)
FOR J = 1 TO 5000 '
NEXT J
CIRCLE(Х+1,100),30,0    (эту строчку вообще убираем)            
NEXT X
 Получим
SCREEN 9
FOR X = 1 TO 64
CLS
CIRCLE (Х,100), 30, 2
FOR J = 1 TO 5000 '
NEXT J       
NEXT X
для того чтобы она двигалась сверху вниз надо изменять параметр по оси Y
FOR X = 1 TO 64
CLS
CIRCLE (100,X), 30, 2
FOR J = 1 TO 5000 '
NEXT J       
NEXT X