Published using Google Docs
Урок 35 АП 11
Updated automatically every 5 minutes

Урок 35                                                                                 Інформатика (АП)

Креслення графічних примітивів

Мета.

Навчальна. Навчитися створювати з графічних примітивів малюнки: переходити в графічний режим ро­боти; використовувати колір фону та тек­сту для оформлення виведення інформації; створювати графічні примітиви; користуватися процедурами заливки, використовувати графічні процедури для побудови діаграм, графіків функцій.

Розвиваюча. Розвивати логічне мислення, самостійність, вміння застосовувати набуті знання до практичних завдань.

Виховна. Виховувати наполегливість, естетичність у оформленні, грамотно висловлювати свої думки, вміння раціонально використовувати час.

Тип уроку. Засвоєння нових знань і навичок.

Матеріали для роботи з учнями:

Графіка в АВСPascal

Графіка в АВСPaskal

План

  1. Перевірка домашнього завдання.
  2. Актуалізація опорних знань.
  3. Мотивація навчальної діяльності.
  4. Мітки. Безумовний оператор.
  5. Розв’язування задач.
  6. Типові запитання до уроку.
  7. Домашнє завдання.

Пам’ятка для учня!

  1. Пригадайте правила техніки безпеки при роботі з ПК.
  2. Через кожні 15 хв. виконуйте вправи для очей та для зняття м’язової втоми.

Хід уроку

1. Перевірка домашнього завдання.

        1. Наявність.

2. Питання.

3. Задача.

Дано три цілих додатних числа x, y, z. Визначити, чи можна з відрізків з цими довжинами утворити трикутник. Визначити, який це трикутник: гострокутний, тупокутний чи прямокутний.

2. Актуалізація опорних знань.

Графічний модуль

Графічні примітиви

Кольорові константи

Підпрограми для роботи з пером

После запуска PascalABC, по умолчанию, запускается текстовый режим. Для работы с графикой служит отдельное графическое окно. Чтобы его открыть, необходимо подключить модуль GraphABC. В этом модуле содержится  обширный набор процедур и функций, предназначенных для работы с графическим экраном, а также некоторые встроенные константы и переменные, которые могут быть использованы в программах с графикой. С их помощью можно создавать разнообразные графические изображения и сопровождать их текстовыми надписями. Подключение осуществляется в разделе описаний.

Формат подключения модуля  GraphABC:

                 uses GraphABC;

Начало координат графического окна модуля находится в верхнем левом углу. Ось x направлена вправо, а ось y - вниз. Координаты исчисляются в пикселях.

Все команды библиотеки GraphABC являются подпрограммами и описаны в виде процедур и функций. Для того, что бы команда выполнилась необходимо указать команду и задать значения параметрам.

Некоторые команды библиотеки GraphABC

Имя и параметры команды

Действие команды

Line(x1,y1,x2,y2)

Рисует отрезок из точки с координатами (x1,y1) в точку с координатами (x2,y2)

LineTo(x, y)

Рисует отрезок из текущей точки в точку с координатами (x, y) (соответствует команде сместиться_в с опущенным пером для исполнителя Чертежник)

Rectangle(x1,y1,x2,y2)

Рисует контур прямоугольника со сторонами параллельными сторонам экрана. Точки с координатами (x1, y1) и (x2, y2) определяют диагональные вершины прямоугольника.

FillRect(x1,y1,x2,y2);

Заливает прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2), цветом текущей кисти.

Circle(x,y, radius);

Рисует окружность с центром в точке с координатами (x,y) и радиусом radius.

Ellipse(x1,y1,x2,y2);

Рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2).

TextOut (x, y, text)

Выводит Text на экран. Начало текста в точке с координатами (x, y)

SetPixel(x,y,color)

Закрашивает цветом color точку с координатами (x, y)

SetPenColor(color)

Задает цвет рисования линий. Параметр color – число в промежутке от 0 до 2563-1.

SetPenWidth(n)

Задает толщину рисования линий. Параметр n – число в промежутке от 1 до 50

SetPenStyle(ps)

Устанавливает стиль пера, задаваемый параметром ps.

Стили пера задаются следующими именованными константами:

Значение

Описание

psSolid

Сплошная линия

psDash

Штриховая линия

psDot

Пунктирная линия

psDashDot

Штрихпунктирная линия

psDashDotDot

Линия - штрих и два пунктира

psClear

Отсутствие линии

Arc(x,y,r,a1,a2)

Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).

FloodFill(x,y,color);

Заливает область одного цвета цветом color, начиная с точки (x,y).

SetBrushColor(color)

Устанавливает цвет кисти, задаваемый параметром color

SetBrushStyle(bs);

Устанавливает стиль кисти, задаваемый параметром bs.

Стили кисти задаются следующими именованными константами:

Константа

Константа

bsSolid

bsClear

bsCross

dsDiagCross

bsHorizontal

bsVertical

bsBDiagonal

bsFDiagonal

SetFontColor(color);

Устанавливает цвет шрифта

SetFontSize(sz);

Устанавливает  размер шрифта в пунктах.

ClearWindow;

Очищает графическое окно белым цветом

ClearWindow(c);

Очищает графическое окно цветом (c).

SetWindowSize(w,h)

Устанавливает ширину и высоту графического окна.

 

3. Мотивація навчальної діяьності.

4. Креслення графічних примітивів.

Пример программы, рисующей окружность в квадрате

program graf_1;

uses graphABC;

begin

  SetWindowSize(300,300);         //установка размера окна

  SetPenColor(clred);                  // установка цвета линий

  SetPenStyle(psdash);               // установка стиля линий

  SetPenWidth(10);                    // установка толщины линий

  Rectangle(50,50,250,250);   // рисование прямоугольника

  Circle(150,150,50);                  // рисование окружности

end.

Результат выполнения программы

5. Приклади програм.

6. Самостійне виконання вправ.

  1. Скласти програму, яка малює голову робота (див. рис.). На малюнку числами вказані координати точок.

Малюнок містить два прямокутники, дві окружності, дві дуги, еліпс, три прямі лінії і дві червоні точки. Заздалегідь визначаються всі координати і розміри елементів малюнка.

  1. Намалювати будиночок за зразком (див. рис). Координати встановити самостійно.

  1. Намалювати малюнки за зразком (див. рис). Координати встановити самостійно.

  1. Намалювати малюнки за зразком (див. рис). Координати встановити самостійно.

  1. Вивести на екран монітора такі малюнки, створивши для цього необхідні процедури або функції:

7. Підсумки уроку.

  1. У чому полягає особливість програмування з використанням графіки?
  2. Що таке ініціалізація графічного режиму? Яким чином відбу­вається налагодження програми на роботу з необхідним типом монітора в певному режимі?
  3. Які процедури модуля Graph дають змогу виводити на екран монітора прості геометричні фігури?
  4. Які процедури модуля Graph дають змогу працювати з кольо­рами? Які їх особливості?
  5. Які процедури і функції модуля Graph реалізують роботу з текс­тами?

9. Домашнє завдання.

  1. Опрацювати теоретичний матеріал.
  2. Виконати вправу.
  1. Самостоятельно придумать и нарисовать средствами PascalABC фигуру, состоящую из различных элементов: прямоугольника, эллипса, точки, дуги окружности и т.д. Применить различные цветовые решения. Использовать различные стили и толщину лини. 
  2. На ПР самостій розробити малюнок на новорічну тему(пейзаж, …)  і реалізувати його засобами PascalABC.