Разделы презентаций

Пункт плана Пункт плана Пункт плана Пункт плана Пункт

Содержание

Подключение дополнительных библиотекДля работы в графическом режиме необходимо подключение модуля GraphABC. Первой инструкцией программы должна быть инструкция uses GraphABC;ВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайды и текст этой презентации

Слайд 1Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература
Графика в PascalABC

ВведениеГраф. примитивыЦвет--стильТекстЛитератураГрафика в PascalABC

Слайд 2Подключение дополнительных
библиотек
Для работы в графическом режиме необходимо подключение модуля

GraphABC.
Первой инструкцией программы должна быть инструкция
uses GraphABC;
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

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

Слайд 3Графический режим
Графический экран PasсalABC (по умолчанию) содержит 640 точек по

горизонтали и 400 точек по вертикали.

Начало отсчета – левый верхний

угол экрана

400 точек

640 точек

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Графический режимГрафический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали.Начало отсчета

Слайд 4Управление экраном
SetWindowWidth(w) –
Устанавливает ширину графического окна;
SetWindowHeight(h) -
Устанавливает

высоту графического окна;
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Управление экраномSetWindowWidth(w) – Устанавливает ширину графического окна; SetWindowHeight(h) - Устанавливает высоту графического окна; ВведениеГраф. примитивыЦвет--стильТекстЛитература

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

очищает графическое окно указанным цветом.
program clear;
uses GraphABC;
begin
ClearWindow;
ClearWindow (clMoneyGreen);


end.

Цвет зеленых денег

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Очистка графического окнаClearWindow; - очищает графическое окно белым цветом.ClearWindow(color); - очищает графическое окно указанным цветом.program clear;uses GraphABC;

Слайд 6Графические примитивы
Точка
Линия
Прямоугольник
Окружность
Эллипс
Сектор
Дуга
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Графические примитивыТочкаЛинияПрямоугольник ОкружностьЭллипсСекторДугаВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайд 7Точка
SetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом color
program

tochka;
uses GraphABC;
begin
SetPixel(300,200,clred);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

ТочкаSetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом colorprogram tochka;uses GraphABC;begin SetPixel(300,200,clred);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайд 8Линии
LineTo(x,y) - рисует отрезок от текущего положения пера до точки

(x,y); координаты пера при этом также становятся равными (x,y).
Program

liniay;
uses GraphABC;
begin LineTo(300,200);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

ЛинииLineTo(x,y) - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся

Слайд 9Линии
Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и

концом в точке (x2,y2).
Program liniay;
uses GraphABC;
begin
line(100,50,500,250);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

ЛинииLine(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). Program liniay; uses

Слайд 10Используемые цвета
Random(16777215) – случайный цвет из всей палитры цветов Паскаля
Введение
Граф.

примитивы
Цвет--стиль
Текст
Литература

Используемые цветаRandom(16777215) – случайный цвет из всей палитры цветов ПаскаляВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайд 11Цвет линии
SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.
Program liniay;
uses

GraphABC;
begin
setpencolor(clred);
line(30,30,400,350);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Цвет линииSetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.Program liniay;uses GraphABC;begin setpencolor(clred); line(30,30,400,350);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайд 12Пунктирная линия
SetPenStyle(); -
устанавливает стиль пера, задаваемый

номером.
program prim;
uses GraphABC;
begin
Setpencolor(clred);
SetPenStyle(1); {1 - длинный штрих}

Line(10,100,350,100);
SetPenStyle(2); {2 - короткий штрих}
Line(10,125,350,125);
SetPenStyle(3); {3 - штрих-пунктир}
Line(10,150,350,150);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Пунктирная линияSetPenStyle(); -устанавливает стиль пера, задаваемый номером. program prim;uses GraphABC;begin Setpencolor(clred); SetPenStyle(1); {1 - длинный штрих} Line(10,100,350,100);

Слайд 13Толщина линии
SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям.


Program liniay;
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);
line(30,30,400,350);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Толщина линииSetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям. Program liniay;uses GraphABC;begin setpenwidth(20); setpencolor(clred);

Слайд 14Треугольник
Рисуется процедурами
Line(x1,y1,x2,y2); LineTo(x,y);
Program treugolnik;
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);
line(300,100,500,300);

lineto(100,300);
lineto(300,100);
floodfill(300,200,clgreen);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

ТреугольникРисуется процедурами Line(x1,y1,x2,y2); LineTo(x,y); Program treugolnik;uses GraphABC;begin setpenwidth(20); setpencolor(clred); line(300,100,500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

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

(x2,y2).
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

ПрямоугольникRectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).Program pryamougolnik;uses GraphABC;begin Rectangle(50,50,200,200);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайд 16Заливка цветом
FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная

с точки (x,y).
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Заливка цветомFloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с точки (x,y).Program pryamougolnik;uses GraphABC;begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue);end.ВведениеГраф.

Слайд 17Заливка кистью
SetBrushColor(color) –
устанавливает цвет кисти.
Заливка кистью распространяется на замкнутый

контур, описание которого следует за процедурой установки цвета кисти.
Program zalivka_kist;
uses

GraphABC;
Begin
SetBrushColor(clGreen);
Rectangle(50,50,300,300); end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Заливка кистьюSetBrushColor(color) – устанавливает цвет кисти.Заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки

Слайд 18Заливка кистью
SetBrushStyle(номер от 0 до 7 или название) - устанавливает

стиль кисти, задаваемый номером или символической константой.
Program p12_zalivka;
uses GraphABC;
Begin

SetBrushColor(clAqua);
SetBrushStyle(1);
Rectangle(10,10,100,100);
SetBrushColor(clRed);
SetBrushStyle(2);
Rectangle(110,10,200,100);
SetBrushColor(clBlue);
SetBrushStyle(3);
Rectangle(210,10,300,100);
SetBrushColor(clGreen);
SetBrushStyle(4);
Rectangle(10,110,100,210);
SetBrushColor(clYellow);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Заливка кистьюSetBrushStyle(номер от 0 до 7 или название) - устанавливает стиль кисти, задаваемый номером или символической константой.

Слайд 19Заливка кистью
SetBrushPicture(‘fname’) -
устанавливает в качестве образца для закраски кистью образец,

хранящийся в файле fname, при этом текущий цвет кисти при

закраске игнорируется.

uses GraphABC;
begin SetBrushPicture('brush4.bmp');Ellipse(0,0,640,400);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Заливка кистьюSetBrushPicture(‘fname’) -устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname, при этом текущий

Слайд 20Цвет и толщина контура
Задаются процедурами
SetPenWidth(w);
SetPenColor(color);
Program pryamougolnik;
uses GraphABC;
begin
SetPenColor(clred);

SetPenWidth(20);
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

Цвет и толщина контураЗадаются процедурами SetPenWidth(w); SetPenColor(color);Program pryamougolnik;uses GraphABC;begin SetPenColor(clred); SetPenWidth(20); Rectangle(50,50,200,200); FloodFill(100,100,clBlue);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайд 21Окружность
Circle(x,y,r) - рисует окружность с центром в точке (x,y) и

радиусом r.
Program circle;
uses GraphABC;
begin
Circle(500,200,100);
FloodFill(500,200,clred);
end.
x1,y1
r
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

ОкружностьCircle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r. Program circle;uses GraphABC;begin Circle(500,200,100);

Слайд 22Эллипс
Ellipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником с координатами

противоположных вершин.
Program oval;
uses GraphABC;
begin
Ellipse(50,50,200,350);
FloodFill(50+100,50+100,clred);
Ellipse(250,150,550,300);
FloodFill(250+100,150+100,clBlue);
end.
Введение
Граф.
примитивы
Цвет--стиль
Текст
Литература

ЭллипсEllipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин.Program oval;uses GraphABC;begin Ellipse(50,50,200,350); FloodFill(50+100,50+100,clred); Ellipse(250,150,550,300);

Слайд 23Дуга окружности
Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке

(x,y) и радиусом r, заключенной между двумя лучами, образующими углы

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

Program duga;
uses GraphABC;
Begin
SetPenWidth(10);
Arc(300,250,150,45,135);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

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

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

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

GraphABC;
begin
Pie(300,200,100,0,90);
FloodFill(300+10,200-10,clAqua);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

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

Слайд 25Вывод текста в графическое окно
TextOut(x,y,’строка’); - выводит строку текста в

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

будет содержать текст).

Program text;
uses GraphABC;
begin
TextOut(100,30,'Квадрат');
Rectangle(50,50,200,200);
FloodFill(55,55,clBlue);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Вывод текста в графическое окноTextOut(x,y,’строка’); - выводит строку текста в позицию (x,y) (точка (x,y) задает верхний левый

Слайд 26Действия со шрифтом
SetFontName(‘name’) – устанавливает наименование шрифта.
SetFontColor(color) - устанавливает цвет

шрифта.
SetFontSize(sz) - устанавливает  размер шрифта в пунктах.
SetFontStyle(fs)

- устанавливает  стиль шрифта.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Действия со шрифтомSetFontName(‘name’) – устанавливает наименование шрифта.SetFontColor(color) - устанавливает цвет шрифта.SetFontSize(sz) - устанавливает  размер

Слайд 27Название шрифта
По умолчанию установлен шрифт, имеющий наименование MS Sans Serif.


Наиболее распространенные шрифты – это Times, Arial и Courier New.
Наименование

шрифта можно набирать без учета регистра.

Пример:
SetFontName(‘Times’);

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Название шрифтаПо умолчанию установлен шрифт, имеющий наименование MS Sans Serif. Наиболее распространенные шрифты – это Times, Arial

Слайд 28Стиль шрифта
Задается именованными константами:
fsNormal – обычный;
fsBold – жирный;
fsItalic

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

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

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Стиль шрифтаЗадается именованными константами:fsNormal – обычный; fsBold – жирный; fsItalic – наклонный; fsBoldItalic – жирный наклонный; fsUnderline

Слайд 29Стиль шрифта
Program text;
uses GraphABC;
Begin
SetFontName(‘Arial’);
SetFontSize(20);
SetFontColor(clRed);

TextOut(10,10,‘обычный');
SetFontStyle(fsItalic);
SetFontColor(clBlue);
TextOut(10,50,‘наклонный');
SetFontStyle(fsBold);

SetFontColor(Random(16777215));
TextOut(10,90,‘жирный');
SetFontStyle(fsUnderline);
SetFontColor(Random(16777215));
TextOut(10,130,‘подчеркнутый');
SetFontStyle(fsBoldItalicUnderline);
SetFontColor(Random(16777215));
TextOut(10,170,’жирный, наклонный, подчеркнутый');
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Стиль шрифтаProgram text;uses GraphABC;Begin SetFontName(‘Arial’); SetFontSize(20); SetFontColor(clRed); TextOut(10,10,‘обычный'); SetFontStyle(fsItalic); SetFontColor(clBlue); TextOut(10,50,‘наклонный');

Слайд 30Используемые цвета
Цвет можно задавать и с помощью функции RGB(r,g,b) где

r, g и b – целые числа в диапазоне от

0 до 255.
Функция возвращает целое значение, являющееся кодом цвета, который содержит красную, зеленую и синюю составляющие с интенсивностями r, g и b соответственно (0 соответствует минимальной интенсивности, 255 – максимальной).
RGB(255,255,255) – соответствует белому цвету.
RGB(0,0,0) – соответствует черному цвету.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Используемые цветаЦвет можно задавать и с помощью функции RGB(r,g,b) где r, g и b – целые числа

Слайд 31Используемые цвета
Program color;
uses GraphABC;
begin
Clearwindow(rgb(200,150,250));
TextOut(93,30,' Квадрат ');
Rectangle(50,50,200,200);
FloodFill(55,55,clRed);
TextOut(275,30,' Эллипс');
Ellipse(250,50,350,200); FloodFill(250+50,50+50,clYellow);
end.
Введение
Граф.

примитивы
Цвет--стиль
Текст
Литература

Используемые цветаProgram color;uses GraphABC;beginClearwindow(rgb(200,150,250));TextOut(93,30,' Квадрат ');Rectangle(50,50,200,200);FloodFill(55,55,clRed);TextOut(275,30,' Эллипс');Ellipse(250,50,350,200); FloodFill(250+50,50+50,clYellow);end.ВведениеГраф. примитивыЦвет--стильТекстЛитература

Слайд 32Вывод текста в графическое окно
Текст можно вывести с помощью операторов

Gotoxy(x,y) и Write(‘текст’), подключив дополнительно модуль Crt.
Program text2;
uses Crt,GraphABC;
begin
clrscr;

hidecursor;
{скрывает текстовый курсор}
gotoXY(12,3);
write(‘Квадрат');
Rectangle(50,50,200,200);
FloodFill(55,55,clYellow);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Вывод текста в графическое окноТекст можно вывести с помощью операторов Gotoxy(x,y) и Write(‘текст’), подключив дополнительно модуль Crt.Program

Слайд 33Загрузка готового рисунка
LoadPicture(fname)
n:=LoadPicture(fname) –
загружает рисунок из файла с именем

fname в оперативную память и возвращает описатель рисунка в целую

переменную n; если файл не найден, то возникает ошибка времени выполнения.
Загружать можно рисунки в формате .bmp, .jpg или .gif.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Загрузка готового рисункаLoadPicture(fname)n:=LoadPicture(fname) – загружает рисунок из файла с именем fname в оперативную память и возвращает описатель

Слайд 34Вывод рисунка в графическое окно
DrawPicture(n,x,y);
Выводит рисунок с описателем n в

позицию (x,y) графического окна.
uses GraphABC;
var pic: integer;
begin
pic:=LoadPicture('demo.bmp');
DrawPicture(pic,10,10);

DestroyPicture(pic);
end.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Вывод рисунка в графическое окноDrawPicture(n,x,y);Выводит рисунок с описателем n в позицию (x,y) графического окна. uses GraphABC;var pic:

Слайд 35Сохранение созданного рисунка
SavePicture(n, ‘fname’) -
Сохраняет рисунок с описателем n в

файл с именем fname. Рисунки можно сохранять в формате .bmp,

.jpg или .gif.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Сохранение созданного рисункаSavePicture(n, ‘fname’) -Сохраняет рисунок с описателем n в файл с именем fname. Рисунки можно сохранять

Слайд 36Окулов, С.М. Основы программирования / С.М.Окулов. – 3-е изд. –

М.: БИНОМ. Лаборатория знаний, 2006. – 440 с.
Окулов, С.М. Задачи

по программированию / С.М.Окулов, Т.В.Ашихмина, Н.А.Бушмелева и др; Под ред. С.М.Окулова. – М.: БИНОМ. Лаборатория знаний, 2006. – 820 с.
Семакин, И.Г. Основы программирования: Учебник / И.Г.Семакин, А.П.Шестаков. – М.: Матерство; НМЦ СПО; Высшая школа, 2002. – 432 с.
Семакин, И.Г. Основы алгоритмизации и программирования: учебник для студ. учреждений сред. проф.образования / И.Г.Семакин, А.П.Шестаков. — 3-е изд., стер. — М.: Издательский центр «Академия», 2012. — 400 с.
Фаронов, В.В. Turbo Pascal: Учебное пособие / В.В.Фаронов. – СПб.: Питер, 2007. – 367 с.

Введение

Граф.
примитивы

Цвет--стиль

Текст

Литература

Окулов, С.М. Основы программирования / С.М.Окулов. – 3-е изд. – М.: БИНОМ. Лаборатория знаний, 2006. – 440

Похожие презентации

История изобретения парововых машин История изобретения парововых машин 352
Сәрсен Аманжолұлы Аманжолов Сәрсен Аманжолұлы Аманжолов 372
Организационная культура Организационная культура 177
Жилой дом Ле Гранд Жилой дом Ле Гранд 193
Краткий рассказ об инструментах и сервисах, которые помогают Look At Media Краткий рассказ об инструментах и сервисах, которые помогают Look At Media 220
(1872-1947 гг.) Британский физиолог, более всего известный за свои исследования (1872-1947 гг.) Британский физиолог, более всего известный за свои исследования 372
Итоговое сочинение по литературе Итоговое сочинение по литературе 226
Виды знаний Виды знаний 484
Эпоха Возрождения. Общая характеристика. Биология в эпоху Возрождения Эпоха Возрождения. Общая характеристика. Биология в эпоху Возрождения 311
Определить товарный код выбранных товаров по Единому таможенному Определить товарный код выбранных товаров по Единому таможенному 190
Экономические ресурсы предприятия Основные фонды предприятия Экономические ресурсы предприятия Основные фонды предприятия 690
Культурой славится моя Россия Культурой славится моя Россия 159
Ядовитые растения Презентация для учащихся Азбука здоровья к.п. Академия Ядовитые растения Презентация для учащихся Азбука здоровья к.п. Академия 184
Захворювання прищитоподібних залоз Захворювання прищитоподібних залоз 539
Цветок - его строение и значение Цветок - его строение и значение 594
More facts about the use of articles More facts about the use of articles 256
Ленинградский зоопарк во время войны Ленинградский зоопарк во время войны 513
Преобразования Лапласа Преобразования Лапласа 304
Личность Личность 298

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

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

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

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

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.

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

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