Практическая работа №24
Тема: Построение окружности. Задача №21 «Колесо обозрения»
Цель:
1. Закрепить понятия: «координатная плоскость», графические процедуры для построения геометрических фигур: круг, окружность.
2. Совершенствовать умения и навыки работы с графическими процедурами;
3. Выработать навыки составления программ, реализующих вывод геометрических фигур на экран.
Работа содержит новый материал для объяснения и тренировочные задания.
Сборник практических работ по программированию в Паскале
Тема: Построение окружности. Задача №21 «Колесо обозрения»
Практическая работа №24
Цель:
1.
Закрепить понятия: «координатная плоскость», графические процедуры для построения геометрических фигур:
круг, окружность.
2. Совершенствовать умения и навыки работы с графическими процедурами;
3. Выработать навыки составления программ, реализующих вывод геометрических фигур на экран.
Рассмотрим задачу №21 «Колесо обозрения»
Условие задачи: Написать текст программы, используя графические
процедуры построения геометрических фигур для вывода на экран рисунка 1.
Решение задачи:
1. Постройте рисунок в координатной плоскости.
Алгоритм построения:
1) Постройте в тетради координатную плоскость
2) Выберите масштаб – две клетки 50.
3) Нанесите измерения на координатные оси.
4) Нарисуйте рисунок 1 в координатной плоскости.
2. Напишите текст программы:
Используемые процедуры:
1) Circle (x,y,r) для построения окружности.
2) FloodFill (x,y,color) –для заливки внутренней области.
3) MoveTo (x,y) – для установки пера.
4) LineТО (x1,y1) – для рисования отрезка.
5) SetPenColor (color) цвет пера.
6) SetPenWidth (w) ширина пера.
Программа:
Program Z21;
uses GraphABC;
Begin
circle (300,250,200); FloodFill (150,250,clred);
circle (300,250,100); FloodFill (250,250,clyellow);
SetPenColor(clblue); SetPenWidth (3); MoveTo(300,250);
LineTO (450,525); LineTO (375,525); lineTO (300,250); FloodFill (375,475,clblue);
MoveTo(300,250); LineTo(150,525); LineTo (225,525);
LineTo (300,250); FloodFill (200,475,clblue);
circle (150,250,25); FloodFill (150,250,clLime); circle (450,250,25); FloodFill (450,250,clLime);
circle (300,100,25); FloodFill (300,100,clLime); circle (200,150,25); FloodFill (200,150,clLime);
circle (400,150,25); FloodFill (400,150,clLime);
End.
Задания
Рисунок 1
1) Запустить программу Pascal ABC. Ввести программу Z21 .
2) Выполнить программу. Сохраните программу в файле.
3) Дописать программу (дорисовать 3 круга в нижней части колеса обозрения).
4) Выполнить программу. Сохраните программу в файле.
Дополнительные задания
5) Создать новый файл.
6) Составить программу, выводящую на экран изображения: мишень (рисунок 2), орбита (рисунок 3), глаз (рисунок
4).
Миронова С.П., КГУ «ОСШ. №3 им. Ю.А. Гагарина»
Страница 1Сборник практических работ по программированию в Паскале
Рисунок 2
Рисунок 3
Рисунок 4
Миронова С.П., КГУ «ОСШ. №3 им. Ю.А. Гагарина»
Страница 2