Что такое 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
  • Количество просмотров: 133
  • Количество скачиваний: 0
- Предыдущая Учебные материалы нового поколения
Следующая - Культура Древней Руси

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

Программа GIMP Программа GIMP 121
Алгоритмизация и требования к алгоритму Алгоритмизация и требования к алгоритму 139
Технология съемки и передачи цифровой информации Технология съемки и передачи цифровой информации 191
Тема 2. Пакеты прикладных программ Тема 2. Пакеты прикладных программ 171
Алгоритм не роскошь, а средство достижения цели Алгоритм не роскошь, а средство достижения цели 127
Кодирование информации (специальность ЛД) Кодирование информации (специальность ЛД) 151
Назначение каталогов Linux Назначение каталогов Linux 141
Носители информации Носители информации 153
Алгоритм. Жизненные задачи. Последовательность действий Алгоритм. Жизненные задачи. Последовательность действий 139
Программное обеспечение компьютера Программное обеспечение компьютера 128
История развития языков программирования История развития языков программирования 150
Конспект урока по информатике: Истинность высказывания. Истинность высказывания со словами И, Или. 3 класс. план-конспект урока по информатике (3 класс) по теме Конспект урока по информатике: Истинность высказывания. Истинность высказывания со словами И, Или. 3 класс. план-конспект урока по информатике (3 класс) по теме 165
Кодирование текстовой информации Кодирование текстовой информации 142
Урок 7. Внешние устройства(измененная). Урок 7. Внешние устройства(измененная). 151
Моделирование, как метод познания Моделирование, как метод познания 92
Базы данных 16 Базы данных 16 117
Презентация по информатике на тему Основные устройства ЭВМ (1 курс) Презентация по информатике на тему Основные устройства ЭВМ (1 курс) 155
Загадки в рисунках учащихся. Перволого презентация к уроку по информатике (2 класс) Загадки в рисунках учащихся. Перволого презентация к уроку по информатике (2 класс) 150
Сервисы веб 2.0 для занятий материал по информатике (старшая группа) по теме Сервисы веб 2.0 для занятий материал по информатике (старшая группа) по теме 132
Программирование на языке Q BASIC Программирование на языке Q BASIC 141
Право и этика в Интернете Право и этика в Интернете 192
Защита информации Защита информации 101
Файл и файловые структуры Файл и файловые структуры 200
Презентация по информатике на тему Знаковые системы Угринович 8 класс Презентация по информатике на тему Знаковые системы Угринович 8 класс 178
Модуль 1. Практическое занятие 3. Метод. Передача параметров. Переключатель Модуль 1. Практическое занятие 3. Метод. Передача параметров. Переключатель 120
Вероятностный подход к определению количества информации Вероятностный подход к определению количества информации 100
Презентация по информатике на тему: Примеры внедрения информатизации в деловую среду (11 класс) Презентация по информатике на тему: Примеры внедрения информатизации в деловую среду (11 класс) 194
Встроенные функции в Excel Встроенные функции в Excel 149
Окно Окно 163
Примеры оформления списка использованных источников в соответствии с ГОСТ Примеры оформления списка использованных источников в соответствии с ГОСТ 140