- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему Графические возможности языка программирования Паскаль
Содержание
- 2. Область рисования (графическое окно)Графическое окно – Uses graphABC Система координат графического окна
- 3. Рисование линии (отрезка)Отрезок АВ Line (x1, y1,x2,
- 4. Рисование прямоугольникаПрямоугольникRectangle (x1, y1,x2, y2); Rectangle (100, 50, 200, 150);
- 5. Координатная сетка графического окна3004006002004000100200500100300
- 6. Толщина и цвет линий Закрашивание замкнутых областейSetPenWidth(3);
- 7. Рисование ломанной линииЛоманнаяMoveTo (100, 50); LineTo(200, 50); LineTo(150, 150); LineTo(100, 50);
- 8. Пример программыUses graphABC;BeginSetPenWidth(3);SetPenColor(clblue);Line(100, 50, 200, 150);Rectangle(300, 50, 400, 150);FloodFill(350,100,clgreen);end.
- 9. Рисование эллипсаЭллипсEllipse (x1, y1, x2, y2) Ellipse (100, 50, 200, 150)
- 10. Координатная сетка графического окна2004006002004000
- 11. Подпрограммы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.
- 12. Пример использования подпрограмм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.
- 13. Пример использования подпрограммbeginsetpenwidth(3);x:=50; y:=50;pr;x:=200; y:=50;rb;x:=100; y:=150;rb;x:=150; y:=150;pr;end.
- 14. Масштабируемое изображение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;begina:=30; x:=50; y:=50;
- 16. Скачать презентацию
- 17. Похожие презентации
Область рисования (графическое окно)Графическое окно – Uses graphABC Система координат графического окна
Слайд 4
Рисование прямоугольника
Прямоугольник
Rectangle (x1, y1,x2, y2);
Rectangle (100, 50,
200, 150);
Слайд 6
Толщина и цвет линий
Закрашивание замкнутых областей
SetPenWidth(3); - толщина
линий
SetPenColor(clblue); - цвет линий
FloodFill(x,y,clцвет); - закрашивание,
x,y – координаты
точки внутри областиFloodFill(150,200,clgreen);
Слайд 7
Рисование ломанной линии
Ломанная
MoveTo (100, 50);
LineTo(200, 50); LineTo(150,
150); LineTo(100, 50);
Слайд 8
Пример программы
Uses graphABC;
Begin
SetPenWidth(3);
SetPenColor(clblue);
Line(100, 50, 200, 150);
Rectangle(300, 50, 400,
150);
FloodFill(350,100,clgreen);
end.
Слайд 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;
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;
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.
Слайд 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;
