Что такое 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
  • Количество просмотров: 124
  • Количество скачиваний: 0
- Предыдущая Презентация Знакомство с буквой А
Следующая - Презентация по физической культуре на тему Выносливость - как развить данное качество самому

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

Информашка Информашка 121
Компьютерные вирусы. Антивирусные программы. Компьютерные вирусы. Антивирусные программы. 108
Бесплатные антивирусные программы Бесплатные антивирусные программы 100
Электронные таблицы Электронные таблицы 80
Презентация по информатике Формула Хартли (11 класс по учебнику Полякова К.Ю. (углубленный уровень) ) Презентация по информатике Формула Хартли (11 класс по учебнику Полякова К.Ю. (углубленный уровень) ) 274
ТЕКСТ КАК ФОРМА ПРЕДСТАВЛЕНИЯ ИНФОРМАЦИИ ТЕКСТ КАК ФОРМА ПРЕДСТАВЛЕНИЯ ИНФОРМАЦИИ 109
Кодирование и обработка звуковой информации (9 класс, базовый уровень) Кодирование и обработка звуковой информации (9 класс, базовый уровень) 101
Технология Вики-Вики и ее использование в сетевом ресурсе Летописи Технология Вики-Вики и ее использование в сетевом ресурсе Летописи 103
СТРУКТУРЫ ДАННЫХ ТАБЛИЦЫ СТРУКТУРЫ ДАННЫХ ТАБЛИЦЫ 121
Свойства информации. Единицы измерения информации Свойства информации. Единицы измерения информации 128
Видеосистема компьютера Видеосистема компьютера 89
Алгоритм и его формальное исполнение Алгоритм и его формальное исполнение 150
Презентация к проекту по информатике и робототехнике на тему Использование датчика цвета Lego Mindstorms EV3 для решения задач компьютерного зрения Презентация к проекту по информатике и робототехнике на тему Использование датчика цвета Lego Mindstorms EV3 для решения задач компьютерного зрения 126
Влияние Интернета и компьютера на здоровье человека Влияние Интернета и компьютера на здоровье человека 113
Компьютерный вирус. Антивирус Компьютерный вирус. Антивирус 81
Программы и данные Программы и данные 101
Знакомство с интерактивной доской Знакомство с интерактивной доской 131
Свойства реляционной модели данных Свойства реляционной модели данных 122
Вставка объектов в презентацию Вставка объектов в презентацию 91
информатика информатика 158
Вирусы Вирусы 120
Путешествие в страну Информатика Путешествие в страну Информатика 108
Учебно методический комплект по информатике : Отрицание. Фантазия. 1 класс (конспект + презентация + наглядность) план-конспект урока по информатике (1 класс) Учебно методический комплект по информатике : Отрицание. Фантазия. 1 класс (конспект + презентация + наглядность) план-конспект урока по информатике (1 класс) 121
Введение в WCF. WCF-службы. Windows Communication Foundation Введение в WCF. WCF-службы. Windows Communication Foundation 119
Основы работы с ГИС Основы работы с ГИС 106
Основы работы в SolidWorks Основы работы в SolidWorks 144
Дисководы и диски Дисководы и диски 132
Захист від клавіатурних шпигунів. (Лекція 1.2) Захист від клавіатурних шпигунів. (Лекція 1.2) 86
Двоичное кодирование текстовой информации Двоичное кодирование текстовой информации 124
Игра по информатике Игра по информатике 107