Презентация, доклад по информатике на тему Графика в PascalABC

Содержание

МОДУЛЬ GraphABCGraph – это сокращение слова «графика».Чтобы рисовать на экране разноцветные точки, отрезки прямых, дуги, закрашенные и не закрашенные окружности, прямоугольники, а также выполнять ряд других действий, необходимо включить модуль GraphABC.Program nazvanie; uses GraphABC; Begin …

Слайд 1Графика
Автор: учитель информатики
Зубкова Екатерина Александровна
ГБОУ СОШ №1378 г. Москва
Язык программирования PascalABC

ГрафикаАвтор: учитель информатикиЗубкова Екатерина АлександровнаГБОУ СОШ №1378 г. МоскваЯзык программирования PascalABC

Слайд 2МОДУЛЬ GraphABC
Graph – это сокращение слова «графика».
Чтобы рисовать на экране разноцветные

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

Program nazvanie; uses GraphABC; Begin … End.

МОДУЛЬ GraphABCGraph – это сокращение слова «графика».Чтобы рисовать на экране разноцветные точки, отрезки прямых, дуги, закрашенные и

Слайд 3СИСТЕМА КООРДИНАТ

СИСТЕМА КООРДИНАТ

Слайд 4Операторы, используемые в
графике:
SetWindowHeight(h); - устанавливает высоту графического окна SetWindowWidth(w); - устанавливает

ширину графического окна

SetWindowWidth(600);
SetWindowHeight(400);

400

600

Операторы, используемые в графике:SetWindowHeight(h); - устанавливает высоту графического окна SetWindowWidth(w); - устанавливает ширину графического окна SetWindowWidth(600); SetWindowHeight(400);400600

Слайд 5ClearWindow; - очищает графическое окно белым цветом. ClearWindow(color); - очищает графическое окно

указанным цветом.

ClearWindow;

ClearWindow(clSkyBlue);

Цвет экрана

ClearWindow; - очищает графическое окно белым цветом. ClearWindow(color); - очищает графическое окно указанным цветом.ClearWindow;ClearWindow(clSkyBlue);Цвет экрана

Слайд 6Графические примитивы
SetPixel(x,y,color); - закрашивает один пиксел с координатами (x,y) цветом color.

LineTo(x,y); - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y). Line(x1,y1,x2,y2); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

x1,y1

x2,y2

x,y

x,y

Графические примитивыSetPixel(x,y,color); - закрашивает один пиксел с координатами (x,y) цветом color.  LineTo(x,y); - рисует отрезок от

Слайд 7Графические примитивы
Rectangle(x1,y1,x2,y2); - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и

(x2,y2).

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

Слайд 8Графические примитивы
Circle(x,y,r); - рисует окружность с центром в точке (x,y) и

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

SetWindowHeight(400);
SetWindowWidth(600);
ClearWindow(clSkyBlue);
circle (160,200,40);
Ellipse(240,160,410,260);

Графические примитивыCircle(x,y,r); - рисует окружность с центром в точке (x,y) и радиусом r.  Ellipse(x1,y1,x2,y2); - рисует

Слайд 9Графические примитивы
MoveTo(x,y: integer); - передвигает невидимое перо к точке с координатами

(x,y);
RoundRect(x1,y1,x2,y2,w,h); - рисует прямоугольник со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

RoundRect(150,100,450,300,40,40);

Графические примитивыMoveTo(x,y: integer); - передвигает невидимое перо к точке с координатами (x,y);RoundRect(x1,y1,x2,y2,w,h); - рисует прямоугольник со скругленными

Слайд 10Графические примитивы
Arc(x,y,r,a1,a2); - рисует дугу окружности с центром в точке (x,y)

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

Arc(300,200,180,30,150);

Графические примитивыArc(x,y,r,a1,a2); - рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя

Слайд 11Графические примитивы
Pie(x,y,r,a1,a2); - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют

тот же смысл, что и в процедуре Arc).

ClearWindow(rgb(254,158,252));
SetBrushColor(rgb(105,1,103));
Pie(300,200,180,30,150);

Графические примитивыPie(x,y,r,a1,a2); - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же смысл, что и в

Слайд 12SetPenColor(color); - устанавливает цвет пера, задаваемый параметром color.
SetPenWidth(n); - устанавливает ширину

(толщину) пера, равную n пикселям.
FloodFill(x,y,color); - заливает область одного цвета цветом color, начиная с точки (x,y). SetBrushColor(color); - устанавливает цвет кисти, заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки цвета кисти.

Работа с кистью и областью

SetPenColor(color); - устанавливает цвет пера, задаваемый параметром color.SetPenWidth(n); - устанавливает ширину (толщину) пера, равную n пикселям.FloodFill(x,y,color); -

Слайд 13Работа с кистью и областью
SetPenColor(clblue);
Line (200,200,400,200);
Line (400,200,300,140);
line

(300,140,200,200);
FloodFill (300,170,clblue);
SetPenColor(cllime);
Line (200,200,400,200);
Line (400,200,300,260);
Line (300,260,200,200);
FloodFill (300,230,cllime);
SetPenColor(clred);
circle (160,200,40);
FloodFill (160,200,clred);
SetPenColor(clyellow);
circle (440,200,40);
FloodFill (440,200,clyellow);
Работа с кистью и областьюSetPenColor(clblue);  Line (200,200,400,200); Line (400,200,300,140); line (300,140,200,200);FloodFill (300,170,clblue);SetPenColor(cllime); Line (200,200,400,200); Line (400,200,300,260);

Слайд 14Таблица цветов

Таблица цветов

Слайд 15Таблица цветов
Цвет также можно задать с помощью палитры RGB для это

за место color пишется rgb(r,g,b), где r,b,g - числа от 0 до 255

FloodFill (300,170,rgb(138,248,68));

Таблица цветовЦвет также можно задать с помощью палитры RGB для это за место color пишется rgb(r,g,b), где

Слайд 16Задача: нарисовать представленный ниже рисунок
Выполни на компьютере

Задача: нарисовать представленный ниже рисунок Выполни на компьютере

Слайд 17Program Seventh;
uses GraphABC;
Begin
SetWindowHeight(400);
SetWindowWidth(600);
Line (200,200,400,200);
Line (400,200,300,140);
line (300,140,200,200);
FloodFill (300,170,clblue);
Line (200,200,400,200);


Line (400,200,300,260);
Line (300,260,200,200);
FloodFill (300,230,cllime);
circle (160,200,40);
FloodFill (160,200,clred);
circle (440,200,40);
FloodFill (440,200,clyellow);
End.

Текст программы

Program Seventh;uses GraphABC;BeginSetWindowHeight(400);SetWindowWidth(600); Line (200,200,400,200); Line (400,200,300,140); line (300,140,200,200);FloodFill (300,170,clblue);Line (200,200,400,200); Line (400,200,300,260); Line (300,260,200,200);FloodFill (300,230,cllime);circle (160,200,40);FloodFill

Слайд 18TextOut(x,y,s); - выводит строку s в позицию (x,y) (точка (x,y) задает

верхний левый угол прямоугольника, который будет содержать текст из строки s).
SetFontName(‘name’); - устанавливает наименование шрифта. SetFontColor(color); - устанавливает цвет шрифта. SetFontSize(sz); - устанавливает размер шрифта в пунктах.

Работа с текстом

TextOut(x,y,s); - выводит строку s в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет

Слайд 19SetFontStyle(fs); - устанавливает стиль шрифта. Стиль шрифта:
fsNormal – обычный; fsBold – жирный;

fsItalic – наклонный; fsBoldItalic – жирный наклонный; fsUnderline – подчеркнутый; fsBoldUnderline – жирный подчеркнутый; fsItalicUnderline – наклонный подчеркнутый; fsBoldItalicUnderline – жирный наклонный подчеркнутый.

Работа с текстом

SetFontStyle(fs); - устанавливает стиль шрифта. Стиль шрифта:fsNormal – обычный;  fsBold – жирный;  fsItalic – наклонный;

Слайд 20Работа с текстом

Работа с текстом

Слайд 21Задача: нарисовать рисунок, используя рассмотренные выше команды
Самостоятельная работа

Задача: нарисовать рисунок, используя рассмотренные выше команды Самостоятельная работа

Что такое shareslide.ru?

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


Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть