Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.

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

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

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

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

Презентация на тему Графические возможности PascalABC

Содержание

PAINT
Учитель МБОУ СОШ №48 Тучина Е.ВГрафические возможности PASCAL ABC PAINT Подключение дополнительных библиотекДля работы в графическом режиме необходимо подключение модуля GraphABC.Program Графический режим 640 точек480 точек(0,0) Управление экраномSetWindowWidth(w) - устанавливает ширину графического окнаSetWindowHeight(h) - устанавливает высоту графического окнаSetWindowSize(w,h) Очистка графического окнаClearWindow - очистка графического окна белым цветомClearWindow(color) - очистка графического Графические примитивыточкалинияпрямоугольникокружностьэллипссектордуга Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (х1,у1) и концом ЛинииSetPenColor(color) - устанавливает цвет пераSetPenWidth(n) - устанавливает ширину пера, равную n Используемые цвета ПрямоугольникRectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами вершинFloodFill(x,y,color) - заливает область от точки Program prim;uses crt, graphABC;begin SetWindowWidth(800); SetWindowHeight(600); clearWindow(clSkyBlue); Rectangle(0,400,1000,600); FloodFill(10,450,clgreen);end.Нарисуем землю Нарисуем домик {домик} SetPenWidth(3); Rectangle(50,300,300,500); FloodFill(60,450,clLtGray);{крыша} Line(40,300,175,200); LineTo(310,300); LineTo(40,300); FloodFill(175,250,clBrown);{окно} Rectangle(70,350,170,450); FloodFill(75,400,clYellow); ОкружностьCircle(x,y,r) - рисует окружность с центром в точке (х,у) и радиусом r ЭллипсEllipse(x1,y1,x2,y2) - рисует эллипс, вокруг которого описан прямоугольник с заданными координатами Нарисуем аллею деревьев x:=400; Rectangle(x,300,x+10,500); FloodFill(x+3,350,clBrown); Ellipse(x-30,150,x+40,350); FloodFill(x,200,clgreen); Нарисуем аллею деревьев x:=400; for j:=1 to 4 do begin Нарисуем солнышко{солнышко} SetPenColor(clYellow); Line(30,100,170,100); Line(100,30,100,170); Line(50,50,150,150); Line(50,150,150,50); Circle(100,100,40); FloodFill(100,100,clYellow); Спасибо за внимание! Program prim;uses crt, graphABC;var x,j:integer;begin SetWindowWidth(800); SetWindowHeight(600); clearWindow(clSkyBlue); Rectangle(0,400,1000,600); FloodFill(10,450,clgreen); {домик}
Слайды презентации

Слайд 2 PAINT

PAINT

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

Подключение дополнительных библиотекДля работы в графическом режиме необходимо подключение модуля GraphABC.Program prim;Uses crt, GraphABC;Var …;Begin …End.

подключение модуля GraphABC.
Program prim;
Uses crt, GraphABC;
Var …;
Begin
…
End.

Слайд 4 Графический режим
640 точек
480 точек
(0,0)

Графический режим 640 точек480 точек(0,0)

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

Управление экраномSetWindowWidth(w) - устанавливает ширину графического окнаSetWindowHeight(h) - устанавливает высоту графического

устанавливает высоту
графического окна
SetWindowSize(w,h) – устанавливает ширину и

высоту графического окна

Program prim;
uses crt, graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
end.

Слайд 6 Очистка графического окна
ClearWindow - очистка графического окна белым

Очистка графического окнаClearWindow - очистка графического окна белым цветомClearWindow(color) - очистка

цветом
ClearWindow(color) - очистка графического окна указанным цветом
Program prim;
uses crt,

graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
clearWindow(clSkyBlue);
end.

Слайд 7 Графические примитивы
точка
линия
прямоугольник
окружность
эллипс
сектор
дуга

Графические примитивыточкалинияпрямоугольникокружностьэллипссектордуга

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

Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (х1,у1) и концом

(х1,у1) и концом в точке (х2,у2)
Линии
LineTo(x,y) - рисует

отрезок от текущего положения пера до точки с координатами х,у

Слайд 9 Линии
SetPenColor(color) - устанавливает цвет пера
SetPenWidth(n) - устанавливает ширину

ЛинииSetPenColor(color) - устанавливает цвет пераSetPenWidth(n) - устанавливает ширину пера, равную n

пера, равную n пикселям
Program prim;
uses crt, graphABC;
var x,j,i:integer;
begin
SetPenWidth(3);

SetPenColor(clred);
Line(30,100,600,500)
end.

Слайд 10 Используемые цвета

Используемые цвета

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

ПрямоугольникRectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами вершинFloodFill(x,y,color) - заливает область от

- заливает область от точки с координатами х,у

до границы цветом color

Слайд 12 Program prim;
uses crt, graphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
clearWindow(clSkyBlue);
Rectangle(0,400,1000,600);

Program prim;uses crt, graphABC;begin SetWindowWidth(800); SetWindowHeight(600); clearWindow(clSkyBlue); Rectangle(0,400,1000,600); FloodFill(10,450,clgreen);end.Нарисуем землю

FloodFill(10,450,clgreen);
end.
Нарисуем землю

Слайд 13 Нарисуем домик
{домик}
SetPenWidth(3);
Rectangle(50,300,300,500);
FloodFill(60,450,clLtGray);
{крыша}
Line(40,300,175,200);
LineTo(310,300);

Нарисуем домик {домик} SetPenWidth(3); Rectangle(50,300,300,500); FloodFill(60,450,clLtGray);{крыша} Line(40,300,175,200); LineTo(310,300); LineTo(40,300); FloodFill(175,250,clBrown);{окно} Rectangle(70,350,170,450);

LineTo(40,300);
FloodFill(175,250,clBrown);
{окно}
Rectangle(70,350,170,450);
FloodFill(75,400,clYellow);
Line(70,380,170,380);
Line(120,380,120,450);
{дверь}
Rectangle(200,350,270,500);
FloodFill(250,450,clBrown);

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

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

(х,у)
и радиусом r

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

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

с заданными координатами

Слайд 16 Нарисуем аллею деревьев
x:=400;
Rectangle(x,300,x+10,500);
FloodFill(x+3,350,clBrown);
Ellipse(x-30,150,x+40,350);
FloodFill(x,200,clgreen);

Нарисуем аллею деревьев x:=400; Rectangle(x,300,x+10,500); FloodFill(x+3,350,clBrown); Ellipse(x-30,150,x+40,350); FloodFill(x,200,clgreen);

Слайд 17 Нарисуем аллею деревьев
x:=400;
for j:=1 to

Нарисуем аллею деревьев x:=400; for j:=1 to 4 do begin

4 do
begin
Rectangle(x,300,x+10,500);

FloodFill(x+3,350,clBrown);
Ellipse(x-30,150,x+40,350);
FloodFill(x,200,clgreen);
x:=x+100;
end;

Слайд 18 Нарисуем солнышко
{солнышко}
SetPenColor(clYellow);
Line(30,100,170,100);
Line(100,30,100,170);

Нарисуем солнышко{солнышко} SetPenColor(clYellow); Line(30,100,170,100); Line(100,30,100,170); Line(50,50,150,150); Line(50,150,150,50); Circle(100,100,40); FloodFill(100,100,clYellow);

Line(50,50,150,150);
Line(50,150,150,50);
Circle(100,100,40);
FloodFill(100,100,clYellow);

Слайд 19 Спасибо за внимание!

Спасибо за внимание!
  • Имя файла: prezentatsiya-graficheskie-vozmozhnosti-pascalabc.pptx
  • Количество просмотров: 143
  • Количество скачиваний: 0
- Предыдущая Презентация Знакомство с буквой А
Следующая - Презентация по физической культуре на тему Выносливость - как развить данное качество самому

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

Безопасная работа в социальных сетях: общение, публикация материалов Безопасная работа в социальных сетях: общение, публикация материалов 142
ОРГАНИЗАЦИЯ ЛОКАЛЬНЫХ СЕТЕЙ ОРГАНИЗАЦИЯ ЛОКАЛЬНЫХ СЕТЕЙ 157
Аттестационная работа. Документооборот. Организация работы с документами Аттестационная работа. Документооборот. Организация работы с документами 151
Тест по теме Компьютерные сети 19 Тест по теме Компьютерные сети 19 108
Построение графиков с помощью программы Excel Построение графиков с помощью программы Excel 146
Процессоры Процессоры 151
Организация и структура телекоммуникационных компьютерных сетей Организация и структура телекоммуникационных компьютерных сетей 107
Лекция 3. Проектирование структуры БД Лекция 3. Проектирование структуры БД 220
Аникина Аникина 179
Джон фон Нейман Джон фон Нейман 153
Буклет Что такое триггеры? компьютерная программа по информатике Буклет Что такое триггеры? компьютерная программа по информатике 200
Устройства ПК Устройства ПК 152
Безопасная работа в социальных сетях Безопасная работа в социальных сетях 94
Этикет общения в сети Интернет Этикет общения в сети Интернет 146
Трёхмерное моделирование Трёхмерное моделирование 93
Информатика Система счисления Информатика Система счисления 147
Исследовательская работа По следам развития ЭВМ Исследовательская работа По следам развития ЭВМ 154
Краткая история компьютера Краткая история компьютера 111
Открытие офиса майкрософт в украине Открытие офиса майкрософт в украине 129
От индустриального общества к информационному От индустриального общества к информационному 111
Typografické zásady Typografické zásady 141
Персональный компьютер Персональный компьютер 143
Дипломдық жоба. Ақпаратты сымсыз тарату мүмкіндігі бар цифрлық барометрді LabVIEW негізінде жобалау және құру Дипломдық жоба. Ақпаратты сымсыз тарату мүмкіндігі бар цифрлық барометрді LabVIEW негізінде жобалау және құру 119
Презентация алгоритмы и исполнители Презентация алгоритмы и исполнители 179
К уроку информатики и ИКТ Процессор К уроку информатики и ИКТ Процессор 148
Информационная система ОКН-Подмосковье Информационная система ОКН-Подмосковье 142
Флеш память Флеш память 114
Создание сайта в Google презентация по информатике по теме Создание сайта в Google презентация по информатике по теме 67
Программирование на языке Паскаль. Часть II Программирование на языке Паскаль. Часть II 124
Урок 17 . Алгоритм с заданным условием окончания работы. Алгоритм с заданным числом повторений. Урок 17 . Алгоритм с заданным условием окончания работы. Алгоритм с заданным числом повторений. 191