Написать программу движения точки по экрану- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
CLS
SCREEN 12
FOR x=30 to 400
CIRCLE(x-1,100),10
PAINT(x-1,100),0,0
FOR t=1 to 300
CIRCLE(x,100),10,3
PAINT(x,100),3,3
NEXT t
NEXT x
END

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment