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


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


Программа 67 (см. программу 31)

Ю **************** столбчатая диаграмма ****************

20 SCREEN 9

30 COLOR 14, 1

40 DATA 11500, 2300, 9700, 5100, 12400, 8200

45 DATA "Токио", "Гамбург", "Москва", "Бангкок", "Мехико", "Париж"

50 LINE (40, 300) - (550, 300): LINE (40, 300) - (40, 20)

60 FOR k = 1 ТО б

70 READ m(k)

80 NEXT k

90 a = m(l)

100 FOR k = 2 TO 6

110 IF m(k) > a THEN a = m(k)

120 NEXT k

130 FOR k = 1 TO 6

140 READ name$(k)

150 NEXT k

160 FOR k = 1 TO 6

170 n =

10 * k + 3

180 LOCATE 23, n: PRINT name$(k)

190 m(k) = 300 - m(k) / a * 200

200 LINE (k * 80, 300) - (80 + k * 80, 300 - m(k)), k + 3, BF

210 NEXT k

220 c$ = HEX$(a)

230 LOCATE 3, 1: PRINT c$

240 c$ = HEX$(0)

250 LOCATE 22, 3: PRINT c$ 260 END

Дадим короткие пояснения к использованным в данной программе и не использовавшимся ранее средствам. В представленном примере использован не встречавшийся ранее оператор LOCATE X,Y, останавливающий курсор на позицию х,у координатной сетки дисплея. Сочетание команд LOCATE ... PRINT позволяет выводить на экран, находящийся в графическом режиме, тексты. Функция HEXS преобразует числа в соответствующие символы. Отсутствие команды WINDOW приводит к максимально возможному графическому окну.

 




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