Подпись: Компьютерная программа для работы с графикой. Задача: Нарисовать окружность(R = 50) и закрасить её светло-голубым цветом, заставить её мигать(5 раз). CLS SCREEN 12 FOR i = 1 TO 5 CIRCLE (320, 240), 50, PAINT (320, 240), 9, 9 SLEEP 2 CLS SLEEP 2 NEXT 1.      очистка экрана. 2.      задаём разрешение экрана (чаще используется 12) 3.      с помощью FOR заставляем цикл работать 5 раз, т. е. мигать окружность. 4.      рисуем окружность (в скобках задаём центр, за скобками - радиус). 5.      закрашиваем, используя, оператор PAINT(в скобках задаём область внутри окружности, иначе закрасится экран, затем цвет). 6.      заставляем программу мигать, используя, SLEEP. 7.   закрываем цикл  

Домашняя

Страница 1

Страница 2

Страница 4

Страница 5

Вернуться на

 школьный

сайт

 

Hosted by uCoz