Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Графика в Turbo Pascal




 

1. Установите графический режим и с помощью Random заполните экран 30000 точек случайного цвета.

2. Постройте желтую линию с координатами краев (0,0),(630,0) с помощью процедуры

PutPixel.

3. Постройте рамку цвета LightCyan по краям экрана с помощью процедуры Line.

4. В верхней части экрана создайте область, ограниченную рамкой цвета LightGreen и текстом в центре: "Банк данных школы № 86 г.Воронежа". Цвет для текста — LightCyan.

5. В нижней части экрана создайте область, ограниченную рамкой цвета LightGreen и текстом в центре: "Для продолжения программы нажмите Enter". Выводимый текст должен трижды изменить цвет с LightCyan на LightRed.

6. Разметьте экран на три области: заголовочную, диалогов, подсказки, как размечена оболочка IDE Turbo Pascal 5.5/6.0. Для рамок используйте цвет Yellow. Соответственно вы­ведите сообщения: "Заголовок", "Рабочая область", "Подсказка" цветом LightCyan.

7. Используя произвольный цвет, постройте двухмерный закрашенный прямоугольник и внизу сделайте подпись белого цвета: "1992". Параметры для SetFillStyle = (1,3).

8. Нарисуйте "бублик" желтого цвета произвольного радиуса.

9. Разметьте экран на три области: заголовочную, диалогов, подсказки. Для рамок ис­пользуйте цвет Yellow. Соответственно выведите сообщения: "Заголовок", "Рабочая об­ласть", "Подсказка" цветом LightCyan. Центральную часть, исключая рамку, оформите окно с фоном Cyan и заполните его 30000 точек случайного цвета. Для очистки и установки фона графического окна используйте процедуру Ваг.

10. Нарисуйте круг цвета произвольного радиуса, закрасив цветом Cyan все, что лежит все этого круга.

11. В центре экрана нарисуйте эллипс, закрашенный цветом LightGreen, всю остальную площадь экрана сделайте фиолетовой.

12. Находясь в графическом режиме, присвойте двум переменным целые значения, сло­жите их и выведите результат в центр экрана. Так как вывести число в графике нельзя, пре­образуйте результат в строку отдельной пользовательской функцией. Используйте процеду­ру Str.

13. Находясь в графическом режиме, присвойте двум переменным дробные значения, сложите их и выведите результат в центр экрана. Так как вывести число в графике нельзя, преобразуйте результат в строку отдельной пользовательской функцией. Используйте про­цедуру Str.

14. Постройте оси X,Y и начертите цветом LightRed график функции Y=X для Х=1..400. Учитывая то, что отсчет будет вестись от левой нижней точки экрана, функция X=Y будет выглядеть как Y=349—X.

15. Заданы пять значений количества заболевших гриппом в классе за последние пять лет: 12 (1990), 30 (1991), 11 (1992), 21 (1993), 4 (1994). С помощью Ваг3D постройте диа­грамму, отражающую динамику (в высоте столбца) заболеваемости. Под каждым столбцом укажите год. Исходные данные опишите в типизированном массиве.

 





Дата добавления: 2017-01-14; Просмотров: 125; Нарушение авторских прав?;


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



ПОИСК ПО САЙТУ:





studopedia.su - Студопедия (2013 - 2017) год. Не является автором материалов, а предоставляет студентам возможность бесплатного обучения и использования! Последнее добавление ip: 54.198.143.210
Генерация страницы за: 0.005 сек.