Презентация "Графические возможности языка Pascal" 8 класс

Графические возможности языка Pascal

Структура программы program - имя_программы; (Название программы пишется слитно либо через «_») Uses (подключение модулей) Var (Раздел описания переменных) Begin (Тело программы) end. (конец программы) Графические возможности языка программирования

Графический режим работы

При работе в графическом режиме изображение на экране строится из точек — пикселей. Каждый пиксель (точка) характеризуется координатами и цветом.

(0,0)

(X,Y)

Положение и размеры геометрического объекта задаются координатами его точек. Поскольку минимальным элементом изображения является пиксель, в качестве координат используют порядковые номера пикселей по горизонтали и вертикали. Началом отсчета является левый верхний угол экрана. Значения координаты х отсчитываются слева направо, а значения координаты у - сверху вниз.

Например, координаты точки (20, 50) означают, что от левого верхнего угла экрана надо отсчитать 20 пикселей по горизонтали вправо и 50 пикселей по вертикали ВНИЗ

Координаты пикселя принимают только целочисленные значения.

Координаты пикселя принимают значения, ограниченные нулем и размерами графического окна.

Возможности стандартной графической библиотеки

Изображение можно сформировать из простых геометрических фигур: точек, отрезков, прямоугольников, окружностей и т. д.

Рисование различных геометрических фигур осуществляется с помощью специальных стандартных команд (процедур), которые хранятся в библиотечном модуле GraphAbc.

Эту библиотеку подключают в разделе описаний с помощью зарезервированного слова Uses (подключить).

UsesGraphAbc

Подключение графического модуля

Рисование осуществляется в графическом окне. Возможность рисовать одновременно в нескольких окнах отсутствует. Рисовать можно с помощью пера и кисти.

Размеры графического окна можно задавать в модуле GraphAbc с помощью команды SetWindowSize (X,Y). По умолчанию окно занимает весь экран монитора.

Изучать графические возможности системы программирования Pascal ABC мы будем на конкретных примерах.

Работа с графическим окном

Установка размера окна SetWindowSize Program grafika; Uses graphABC; Begin SetWindowSize (600,240); End. Работа с графическим окном ClearWindow - очищает графическое окно белым цветом ClearWindow (color) - очищает графическое окно цветом color ClearWindow (clYellow) Рисование линий Line (x1,y1,x2,y2) линия, где (x1,y1) и (x2,y2) – координаты начала и конца отрезка Пример

(x1,y1)

(x2,y2)

Работа с пером SetPenColor(color) – устанавливает цвет текущего пера SetPenWidth(width) – устанавливает ширину текущего пера Цвет пера SetPenColor clBlack – черный clPurple – фиолетовый clWhite – белый clRed – красный clGreen – зеленый clLime – ярко-зеленый clBrown – коричневый clBlue – синий clYellow – желтый    clOlive – оливковый clFuchsia – сиреневый clGray – серый

Program grafika;

Uses graphABC;

Begin

SetWindowSize (600,240);

SetPenColor (clBlack );

SetBrushColor (clBlue);

End.

Цвет кисти SetBrushColor

Прямоугольник rectangle (регтэнгл)

Program grafika;

Uses graphABC;

Begin

SetWindowSize (600,240);

SetPenColor (clBlack );

rectangle(40,80,200,160);

End.

Цвет пера и кисти

Program grafika;

Uses graphABC;

Begin

SetWindowSize (600,240);

SetPenColor (clBlack );

SetBrushColor (clBlue);

rectangle(40,80,200,160);

End.

Круг circle (сэкл)

Program grafika;

Uses graphABC;

Begin

SetWindowSize (600,240);

SetPenColor (clRed );

Circle (300,120,40);

End.

Круг circle (сэкл)

Program grafika;

Uses graphABC;

Begin

SetWindowSize (600,240);

SetPenColor (clRed );

SetBrushColor (clYellow );

Circle (300,120,40);

End.

Program grafika;

uses graphABC;

begin

setWindowSize (600,200);

SetPenColor (clBlack );

SetBrushColor (clBlue);

rectangle(40,80,200,160);

SetPenColor (clRed );

SetBrushColor (clYellow );

Circle (300,120,40);

end.

Светофор

Program Svetofor;

uses GraphABC;

begin

setWindowSize(200,240);

SetPenColor(clBlack);

setBrushColor(clGray);

Rectangle(60,20,140,220);

setBrushColor(clRed);

Circle(100,60,28);

setBrushColor(clYellow);

Circle(100,120,28);

setBrushColor(clLime);

Circle(100,180,28);

end.

Эллипс eLLipse

Program grafika;

Uses graphABC;

Begin

SetWindowSize (600,240);

SetPenColor (clRed );

SetBrushColor (clYellow );

eLLipse (100, 80,540,160);

End.

Линия Line Толщина линии setPenWidth

Program grafika;

Uses graphABC;

Begin

SetWindowSize (600,240);

SetPenColor (clRed );

Line (80, 40,500,40);

End.

Program grafika;

Uses graphABC;

Begin

SetWindowSize (600,240);

SetPenColor (clRed );

setPenWidth (5);

Line (80, 40,500,40);

End.

Замкнутые области

Program treugolnik;

Uses GraphAbc;

Begin

SetWindowSize (500,500);

SetPenWidth(5); //Установка толщины пера

SetPenColor (clRed) ; //Установка красного цвета пера

Line(150,400,300,100); //Рисование отрезка красным цветом

SetPenColor (clGreen); //Установка зеленого цвета пера

Line(300,100,450,400); //Рисование отрезка зеленым цветом

SetPenColor (clBlue); //Установка синего цвета пера

Line(450,400,150,400); //Рисование отрезка синим цветом

End.

Заливка замкнутых областей кистью FLoodFiLL

Program treugolnik;

Uses GraphAbc;

Begin

SetWindowSize (500,500);

SetPenWidth(5);

SetPenColor (clRed);

Line(150,400,300,100);

SetPenColor (clGreen);

Line(300,100,450,400);

SetPenColor (clBlue);

Line(450,400,150,400);

FloodFill(350,300, clYellow);

End.

Домашнее задание:

• Написать программу изображения паровозика, используя графические возможности языка программирования Pascal

Желаю

Успехов

В дальнейшем

Изучении

Языка программирования

Pascal!