Информатика -продвинутый курс


ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ - часть 4


Программа 65

I ********* тонкие линии и ломаные кривые ************

10 SCREEN 9

20 WINDOW (-16,-12) - (16,12)

30 COLOR 14,1

4о у**************** тонкая линия ********************

50 FOR х = -15 TO 15 STEP .01

60 у = 3*sin(x/3)

70 PSET (х, у+7), 14

80 NEXT х

90 г**************** ломаная линия - 1 ***************

100 FOR х = -15 TO 15 STEP .1

110 у = 3*sin(x/3)

120 PSET (x,y), 11

130 IF x>-15 THEN LINE (x,y) - (xl.yl), 11

140 у1=-У : xl=x

150 NEXT

х

160 ***************** ломаная линия - 2 ***************

170 FOR х = -15 TO 15.STEP .1

180 у = 3*sin(x/3)

190 CIRCLE

(х, у-7), .1, 15

200 IF x>-15 THEN LINE (х, у-7) - (xl, yl- 7), 10

210 CIRCLE (xl, yl- 7), .1, 15 : PAINT (xl.yl - 7), 14, 15

220 у1=У : х1=х

230 NEXT х

340 '********************** Оси ***********************

250 LINE (-16, 7) - (16, 7), 15

260 LINE (-16, 0) - (16, 0), 15

270 LINE (-16, -7) - (16, -7), 15

Выше упоминалось о способе закрашивания областей, ограниченных линией одного цвета, с помощью оператора PAINT. Оператор LINE (\l,yl)-(x2,y2),z,bf позволяет получать закрашенные прямоугольники. Существуют специальные приемы закрашивания. Они основаны на повторении оператора, закрашивающего элементарную площадку. Причем, это может производиться либо по определенному закону, либо случайным образом. Ниже приведена программа, иллюстрирующая два способа закрашивания (хотя можно придумать и другие).

Программа 66

10 **************** закрашивание **********************

20 SCREEN 9

30 WINDOW

(-16, -12) -(16, 12)

40 COLOR

14, 1

50 '************ постепенное закрашивание ************

60 LINE (-10.1, -5.1) - (10.1, 5.1), 15, b

70 FOR x = -10 TO 10 STEP .01

80 LINE (x, -5) - (x, 5), 12

90 NEXT x

100 DELAY 2 : ' FOR k=l to 2000 : NEXT k

110 CLS

120 'а*************** гаситель экрана *****************

130 FOR i = 1 ТО 2000

140 x = .5*INT(RND*64) - 16

150 у = INT(RND*24) - 12

160 LINE

(x, у) - (Х+.5, у+1), 15, bf

170 NEXT i

Следующая программа аналогична программе 31 на Паскале и строит столбчатую диаграмму, наглядно отражающую числовую информацию о населении 6 крупных городов мира: Токио, Гамбурга, Москвы, Бангкока, Мехико и Парижа.




Начало  Назад  Вперед



Книжный магазин