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

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

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

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

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

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

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

Содержание

Область рисования (графическое окно)Графическое окно – Uses graphABC Система координат графического окна
Графические возможностиЯзык программирования Паскаль Область рисования (графическое окно)Графическое окно – Uses graphABC Система координат графического окна Рисование линии (отрезка)Отрезок АВ Line (x1, y1,x2, y2); Line Рисование прямоугольникаПрямоугольникRectangle (x1, y1,x2, y2); Rectangle (100, 50, 200, 150); Координатная сетка графического окна3004006002004000100200500100300 Толщина и цвет линий Закрашивание замкнутых областейSetPenWidth(3); - толщина линийSetPenColor(clblue); - цвет Рисование ломанной линииЛоманнаяMoveTo (100, 50); LineTo(200, 50); LineTo(150, 150); LineTo(100, 50); Пример программыUses graphABC;BeginSetPenWidth(3);SetPenColor(clblue);Line(100, 50, 200, 150);Rectangle(300, 50, 400, 150);FloodFill(350,100,clgreen);end. Рисование эллипсаЭллипсEllipse (x1, y1, x2, y2) Ellipse (100, 50, 200, 150) Координатная сетка графического окна2004006002004000 ПодпрограммыUses graphABC;var x,y:integer;procedure имя-1;begin…end;procedure имя-2;begin…End;Beginx:=a1; y:=b1;имя-1;x:=a2; y:=b2;имя-2;x:=a3; y:=b3;имя-2;x:=a4; y:=b4;имя-1;end. Пример использования подпрограммUses graphABC;var x,y:integer;procedure pr;beginrectangle(x,y,x+100,y+50);end;procedure rb;beginmoveto(x,y);lineto(x+25,y+25);lineto(x,y+50);lineto(x-25,y+25);lineto(x,y);End;beginsetpenwidth(3);x:=50; y:=50;pr;x:=200; y:=50;rb;x:=100; y:=150;rb;x:=150; y:=150;pr;end. Пример использования подпрограммbeginsetpenwidth(3);x:=50; y:=50;pr;x:=200; y:=50;rb;x:=100; y:=150;rb;x:=150; y:=150;pr;end. Масштабируемое изображениеaA (x, y)B(x+3*a, y+7*a) Масштабируемое изображениеsetpenwidth(3);moveto(x,y);lineto(x+5*a,y);lineto(x+3*a,y+7*a);lineto(x+a,y+7*a);lineto(x+3*a,y+a);lineto(x,y+a);lineto(x,y);uses graphabc;var x,y,a:integer;begina:=30; x:=50; y:=50; Масштабируемое изображениеlineto(x+10*a,y+3*a);lineto(x+10*a,y);lineto(x+11*a,y);lineto(x+11*a,y+7*a);lineto(x+10*a,y+7*a);lineto(x+10*a,y+4*a);lineto(x+7*a,y+4*a);lineto(x+7*a,y);end.moveto(x+7*a,y);lineto(x+8*a,y);lineto(x+8*a,y+3*a
Слайды презентации

Слайд 2 Область рисования (графическое окно)
Графическое окно – Uses graphABC

Область рисования (графическое окно)Графическое окно – Uses graphABC Система координат графического окна



Система координат графического окна

Слайд 3 Рисование линии (отрезка)
Отрезок АВ
Line (x1, y1,x2, y2);

Рисование линии (отрезка)Отрезок АВ Line (x1, y1,x2, y2); Line (100, 50, 200, 150);

Line (100, 50, 200, 150);

Слайд 4 Рисование прямоугольника
Прямоугольник
Rectangle (x1, y1,x2, y2);
Rectangle (100, 50,

Рисование прямоугольникаПрямоугольникRectangle (x1, y1,x2, y2); Rectangle (100, 50, 200, 150);

200, 150);

Слайд 5 Координатная сетка графического окна
300
400
600
200
400
0
100
200
500
100
300

Координатная сетка графического окна3004006002004000100200500100300

Слайд 6 Толщина и цвет линий Закрашивание замкнутых областей
SetPenWidth(3); - толщина

Толщина и цвет линий Закрашивание замкнутых областейSetPenWidth(3); - толщина линийSetPenColor(clblue); -

линий

SetPenColor(clblue); - цвет линий

FloodFill(x,y,clцвет); - закрашивание, x,y – координаты

точки внутри области
FloodFill(150,200,clgreen);

Слайд 7 Рисование ломанной линии
Ломанная
MoveTo (100, 50);
LineTo(200, 50); LineTo(150,

Рисование ломанной линииЛоманнаяMoveTo (100, 50); LineTo(200, 50); LineTo(150, 150); LineTo(100, 50);

150); LineTo(100, 50);

Слайд 8 Пример программы
Uses graphABC;
Begin
SetPenWidth(3);
SetPenColor(clblue);
Line(100, 50, 200, 150);
Rectangle(300, 50, 400,

Пример программыUses graphABC;BeginSetPenWidth(3);SetPenColor(clblue);Line(100, 50, 200, 150);Rectangle(300, 50, 400, 150);FloodFill(350,100,clgreen);end.

150);
FloodFill(350,100,clgreen);
end.

Слайд 9 Рисование эллипса
Эллипс
Ellipse (x1, y1, x2, y2)
Ellipse (100,

Рисование эллипсаЭллипсEllipse (x1, y1, x2, y2) Ellipse (100, 50, 200, 150)

50, 200, 150)

Слайд 10 Координатная сетка графического окна
200
400
600
200
400
0

Координатная сетка графического окна2004006002004000

Слайд 11 Подпрограммы
Uses graphABC;
var x,y:integer;
procedure имя-1;
begin
…
end;
procedure имя-2;
begin
…
End;
Begin
x:=a1; y:=b1;
имя-1;
x:=a2; y:=b2;
имя-2;
x:=a3; y:=b3;
имя-2;
x:=a4;

ПодпрограммыUses graphABC;var x,y:integer;procedure имя-1;begin…end;procedure имя-2;begin…End;Beginx:=a1; y:=b1;имя-1;x:=a2; y:=b2;имя-2;x:=a3; y:=b3;имя-2;x:=a4; y:=b4;имя-1;end.

y:=b4;
имя-1;
end.

Слайд 12 Пример использования подпрограмм
Uses graphABC;
var x,y:integer;
procedure pr;
begin
rectangle(x,y,x+100,y+50);
end;
procedure rb;
begin
moveto(x,y);
lineto(x+25,y+25);
lineto(x,y+50);
lineto(x-25,y+25);
lineto(x,y);
End;
begin
setpenwidth(3);
x:=50; y:=50;
pr;
x:=200;

Пример использования подпрограммUses graphABC;var x,y:integer;procedure pr;beginrectangle(x,y,x+100,y+50);end;procedure rb;beginmoveto(x,y);lineto(x+25,y+25);lineto(x,y+50);lineto(x-25,y+25);lineto(x,y);End;beginsetpenwidth(3);x:=50; y:=50;pr;x:=200; y:=50;rb;x:=100; y:=150;rb;x:=150; y:=150;pr;end.

y:=50;
rb;
x:=100; y:=150;
rb;
x:=150; y:=150;
pr;
end.

Слайд 13 Пример использования подпрограмм
begin
setpenwidth(3);
x:=50; y:=50;
pr;
x:=200; y:=50;
rb;
x:=100; y:=150;
rb;
x:=150; y:=150;
pr;
end.

Пример использования подпрограммbeginsetpenwidth(3);x:=50; y:=50;pr;x:=200; y:=50;rb;x:=100; y:=150;rb;x:=150; y:=150;pr;end.

Слайд 14 Масштабируемое изображение
a
A (x, y)
B(x+3*a, y+7*a)

Масштабируемое изображениеaA (x, y)B(x+3*a, y+7*a)

Слайд 15 Масштабируемое изображение
setpenwidth(3);
moveto(x,y);
lineto(x+5*a,y);
lineto(x+3*a,y+7*a);
lineto(x+a,y+7*a);
lineto(x+3*a,y+a);
lineto(x,y+a);
lineto(x,y);
uses graphabc;
var x,y,a:integer;
begin
a:=30; x:=50; y:=50;

Масштабируемое изображениеsetpenwidth(3);moveto(x,y);lineto(x+5*a,y);lineto(x+3*a,y+7*a);lineto(x+a,y+7*a);lineto(x+3*a,y+a);lineto(x,y+a);lineto(x,y);uses graphabc;var x,y,a:integer;begina:=30; x:=50; y:=50;
  • Имя файла: graficheskie-vozmozhnosti-yazyka-programmirovaniya-paskal.pptx
  • Количество просмотров: 131
  • Количество скачиваний: 0
- Предыдущая Учебные материалы нового поколения
Следующая - Культура Древней Руси

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

Введение в язык программирования Паскаль Введение в язык программирования Паскаль 158
Метод молекулярної динаміки для (NVE) ансамблю Метод молекулярної динаміки для (NVE) ансамблю 142
Количественные параметры информационных объектов Количественные параметры информационных объектов 130
История клавиатуры История клавиатуры 147
Основы построения программ Основы построения программ 136
Защита информации Защита информации 164
Правила техники безопасности Правила техники безопасности 116
Компьютерные вирусы и антивирусные программы. Компьютерные вирусы и антивирусные программы. 106
Инфографика. Обзор возможностей применения инфографики и средств ИКТ в образовательном процессе Инфографика. Обзор возможностей применения инфографики и средств ИКТ в образовательном процессе 153
Этапы развития вычислительной техники Этапы развития вычислительной техники 173
Безопасность сетей - снифферы (sniffer) Безопасность сетей - снифферы (sniffer) 160
Построение точечной, линейной и полигонной тем Построение точечной, линейной и полигонной тем 146
Компьютер Компьютер 89
Презентация по информатике на тему программирование как формальный способ записи алгоритмов (7 класс) Презентация по информатике на тему программирование как формальный способ записи алгоритмов (7 класс) 157
Характерные черты информационного общества Характерные черты информационного общества 143
Презентация по информатике Информационный диктант Презентация по информатике Информационный диктант 127
Урок 28. Управляющее воздействие Урок 28. Управляющее воздействие 159
Информация вокруг нас Информация вокруг нас 124
Магистрально-модульное построение компьютера. Процессор и оперативная память Магистрально-модульное построение компьютера. Процессор и оперативная память 127
Разработка WEB-сайтов с использованием языка разметки гипертекста Разработка WEB-сайтов с использованием языка разметки гипертекста 142
Занятие по информатике на тему :Как правильно выбрать компьютер Занятие по информатике на тему :Как правильно выбрать компьютер 156
Лекция 2. Языки программирования. Эволюция архитектуры программного обеспечения Лекция 2. Языки программирования. Эволюция архитектуры программного обеспечения 141
ТБ и организация рабочего места в кабинете информатики ТБ и организация рабочего места в кабинете информатики 144
Современные чудеса компьютерной техники Современные чудеса компьютерной техники 124
Презентация по информатике на тему Алгоритмы и исполнители (6 класс) Презентация по информатике на тему Алгоритмы и исполнители (6 класс) 165
Практический поиск в Интернете Практический поиск в Интернете 126
Цветовая гамма презентации Цветовая гамма презентации 145
Презентация по теме Хранение информации презентация к уроку по информатике (2 класс) по теме Презентация по теме Хранение информации презентация к уроку по информатике (2 класс) по теме 134
Информационная культура в непрерывном образовании личности. Комфортная информационная среда. (Тема 1) Информационная культура в непрерывном образовании личности. Комфортная информационная среда. (Тема 1) 130
Сервис Интернет. Сервис Интернет. 113