АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Практическое задание N 1. 46

Читайте также:
  1. Window(x1, y1, x2, y2); Задание окна на экране.
  2. В основной части решается практическое задание.
  3. Глава 1. Первое практическое занятие по методу ПМТ
  4. Домашнее задание
  5. Домашнее задание
  6. Домашнее задание
  7. Домашнее задание
  8. Домашнее задание
  9. Домашнее задание
  10. Домашнее задание
  11. Домашнее задание
  12. Домашнее задание

Модифицировать программу "небо в алмазах":

 

1. Выводить пикселы в прямоугольниках, расположенных:

в правой нижней четверти экрана (использовать яркие цвета),

в левой верхней четверти экрана (использовать темные цвета).

Увеличить степень "гашения" точек, - чтобы экран был более свободным.

2. Выводить пикселы в прямоугольниках, расположенных:

в левой нижней четверти экрана (использовать яркие цвета),

в правой верхней четверти экрана (использовать темные цвета). Сопроводить появление каждой сотой точки коротким звуковым импульсом с частотой 100 * цвет точки.

Примечание к п. п. 1 и 2: После высвечивания 5000 пикселов изменять номер графического режима, цвет линий и фона.

3. Смоделировать на экране семь вертикальных цветных полос настройки телевизора, заполненных пикселами разного цвета.

4. Смоделировать на экране пять колец, заполненных пикселами разного цвета.

Примечание к п. п. 3 и 4: Заполнение произвести тремя способами:

а) линиями или окружностями разного радиуса;

б) пикселами, рисующими линии или окружности разного радиуса.

Координаты точек окружности радиуса "r" вычислять по формуле:
x=round(r*cos(t)); y=round(r*sin(t)); где 0=< t <=2*Pi;

в) пикселами с координатами, определяемыми функцией Random и выводимыми только в заданной области в цикле до нажатия клавиши.

После каждого заполнения способами а), б), в) - очищать экран.

 

{------------------------------------------------------------------

Фрагмент N 2 программы "мерцание звезд"

(рисование массива пикселов, изменяющих цвет).

----------------------------------------------------------------- }

for k:= 1 to N do begin X[k]:=random(Gx); Y[k]:=random(Gy) end;

Repeat

for k:= 1 to N do begin i:= random(16);

PutPixel(X[k], Y[k], i);

if i= 0 then begin X[k]:= random(Gx); { новые координаты звезд }

Y[k]:= random(Gy) end end

Until KeyPressed;

{---------------------------------------------------------------- }

В программе "мерцание звезд" точки неподвижны, их координаты определены в виде массивов X[1.. N], Y[1.. N]. Точки последовательно высвечиваются различными цветами. Если точка гаснет (i= 0), то она случайным образом изменяет свои координаты.


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)