Что такое 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
  • Количество просмотров: 90
  • Количество скачиваний: 0
- Предыдущая Орфограммы в корнях слов
Следующая - Основные классы неорганических соединений

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

Оформление заголовков и подзаголовков Оформление заголовков и подзаголовков 133
Наглядный материал для урока информатики Наглядный материал для урока информатики 133
Презентация Составной оператор 8 класс Презентация Составной оператор 8 класс 207
Табличное решение логических задач Табличное решение логических задач 104
Одномерные массивы. Введение Одномерные массивы. Введение 102
Презентация Массивы в C# Презентация Массивы в C# 123
Презентация к уроку Решение задач № 2 (3 класс) Презентация к уроку Решение задач № 2 (3 класс) 186
Компьютер как формальный исполнитель алгоритмов Компьютер как формальный исполнитель алгоритмов 133
Алгебра логики Алгебра логики 92
Файлы и папки Файлы и папки 131
Презентация по информатике Числовой калейдоскоп Презентация по информатике Числовой калейдоскоп 109
Правила сетевого этикета Правила сетевого этикета 92
Архитектура ЭВМ по фон Нейману Архитектура ЭВМ по фон Нейману 121
Информационно-коммуникационные технологии Информационно-коммуникационные технологии 103
Решение логических задач Решение логических задач 108
Инструментальные средства создания гипертекстовых систем Инструментальные средства создания гипертекстовых систем 132
Системы управления базами данных. PL/SQL. (Часть 2) Системы управления базами данных. PL/SQL. (Часть 2) 155
Использование текста в языке VRML Использование текста в языке VRML 115
Загадки про компьютер Загадки про компьютер 123
Работа с папками и файлами с помощью меню и панели инструментов проводника Работа с папками и файлами с помощью меню и панели инструментов проводника 110
Тренажер Свойства информации Тренажер Свойства информации 107
ЧЕЛОВЕК И ИНФОРМАЦИЯ ЧЕЛОВЕК И ИНФОРМАЦИЯ 117
Кодирование информации с помощью знаковых систем Кодирование информации с помощью знаковых систем 84
Электронная-цифровая подпись в информационных системах Электронная-цифровая подпись в информационных системах 105
Фон слайдов презентации Фон слайдов презентации 94
Творческая работа на тему: Работа в интернете и с мобильной связью Творческая работа на тему: Работа в интернете и с мобильной связью 116
Семинар NAS101. MSC.Nastran Append A Семинар NAS101. MSC.Nastran Append A 124
Электронные библиотеки Электронные библиотеки 133
Роботы Роботы 139
Троянская программа. История названия вируса Троянская программа. История названия вируса 110