Графика в 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