Практическая работа №25
Тема: Построение эллипсов. Задача №22 «Цилиндр»
Цель:
1. Закрепить понятия: «координатная плоскость».
2. Изучить графические процедуры для построения геометрических фигур: эллипс.
3. Формировать умения и навыки составления программ, реализующих вывод на экран геометрических фигур с изображением эллипса.
Работа содержит новый материал для объяснения и тренировочные задания.
Сборник практических работ по программированию в Паскале
Практическая работа №25
Тема: Построение эллипсов. Задача №22 «Цилиндр»
Закрепить понятия: «координатная плоскость».
1.
2. Изучить графические процедуры для построения геометрических фигур: эллипс.
3. Формировать умения и навыки составления программ, реализующих вывод на экран геометрических фигур с
Цель:
изображением эллипса.
ПРОЦЕДУРЫ ДЛЯ ПОСТРОЕНИЯ ГЕОМЕТРИЧЕСКИХ ОБЪЕКТОВ
х1,у1
Ellipse (x1,y1,x2,y2) рисует эллипс, заданный своим описанным прямоугольником с
координатами противоположных вершин (x1,y1) и (x2,y2), рисунок 1.
Рассмотрим задачу №22 «Цилиндр»
Условие задачи: Написать текст программы, используя графические процедуры
построения геометрических фигур для вывода на экран рисунка 2.
Решение задачи:
1. Постройте рисунок в координатной плоскости.
Алгоритм построения:
1) Постройте в тетради координатную плоскость
2) Выберите масштаб – две клетки 50.
3) Нанесите измерения на координатные оси.
4) Нарисуйте рисунок 2 в координатной плоскости.
2. Напишите текст программы:
Используемые процедуры:
1) Ellipse (x1,y1,x2,y2) для построения эллипса.
2) FloodFill(x,y,color) –для заливки внутренней области.
3) MoveTo (x,y) – для установки пера.
4) LineТО (x1,y1) – для рисования отрезка.
5) SetPenColor (color) цвет пера.
6) SetPenWidth (w) ширина пера.
Программа
Program Z22;
uses GraphABC;
Begin
SetPenColor(clBlue); SetPenWidth (3);
Ellipse (50,125,250,175); FloodFill (150,150,clyellow);
Ellipse (50,200,250,250); FloodFill (150,225,clyellow);
Ellipse (50,275,250,325); FloodFill (150,300,clyellow);
SetPenColor(clBlue); SetPenWidth (3); MoveTo(50,150);
LineTo(50,300); MoveTo(250,150); LineTo(250,300);
End.
Рисунок 1
х2,у2
Рисунок 2
1) Запустить программу Pascal ABC. Ввести программу Z22 .
2) Выполнить программу. Сохраните программу в файле.
3) Дописать программу (дорисовать 2 эллипса в нижней части цилиндра).
4) Выполнить программу. Сохраните программу в файле.
Задания
5) Создать новый файл.
6) Составить программу, выводящую на экран изображения: глаз (рисунок 3), летающая тарелка (рисунок 4).
Дополнительные задания
Миронова С.П., КГУ «ОСШ. №3 им. Ю.А. Гагарина»
Страница 1Сборник практических работ по программированию в Паскале
Рисунок 3
Рисунок 4
Миронова С.П., КГУ «ОСШ. №3 им. Ю.А. Гагарина»
Страница 2