- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Графика на языке паскаль
Содержание
- 1. Графика на языке паскаль
- 2. Слайд 2
- 3. Графический режимГрафический экран PasсalABC (по умолчанию) содержит
- 4. Для работы в графическом режиме необходимо подключение
- 5. Графические примитивыТочкаЛинияПрямоугольник ОкружностьЭллипсСекторДуга
- 6. ТочкаSetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом color program tochka;uses GraphABC;begin SetPixel(300,200,clred);end.
- 7. ЛинииLineTo(x,y) - рисует отрезок от текущего положения
- 8. ЛинииLine(x1,y1,x2,y2) - рисует отрезок с началом в
- 9. Цвет линииSetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.Program liniay;uses GraphABC;begin setpencolor(clred); line(30,30,400,350);end.
- 10. Толщина линииSetPenWidth(n) - устанавливает ширину (толщину) пера,
- 11. Program treugolnik;uses GraphABC;begin setpenwidth(20); setpencolor(clred); line(300,100,500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen);end.ТреугольникРисуется процедурами Line(x1,y1,x2,y2); LineTo(x,y);
- 12. Заливка цветомFloodFill(x,y,color) - заливает область одного цвета
- 13. Заливка кистьюSetBrushColor(color) - устанавливает цвет кисти.Заливка кистью
- 14. Circle(x,y,r) - рисует окружность с центром в
- 15. ЭллипсEllipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным
- 16. Дуга окружностиArc(x,y,r,a1,a2) - Рисует дугу окружности с
- 17. Pie(x,y,r,a1,a2) - рисует сектор окружности, ограниченный дугой
- 18. Вывод текста в графическое окноTextOut(x,y,’строка’); - выводит
- 19. Рисуем в тетради в клеточку геометрическую фигуру и проставляем координаты всех её точек
- 20. Используя среду программирования паскаль АВС создадим программу, в результате выполнения которой получим задуманную фигуру
- 21. Задания для самостоятельной работы
- 22. Слайд 22
- 23. Слайд 23
- 24. Слайд 24
- 25. Слайд 25
Слайд 3Графический режим
Графический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали
640 точек
400 точек
Начало отсчета – левый верхний угол экрана
Слайд 4Для работы в графическом режиме необходимо подключение модуля GraphABC.
Первой инструкцией
uses GraphABC;
Слайд 6Точка
SetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом color
program
uses GraphABC;
begin
SetPixel(300,200,clred);
end.
Слайд 7Линии
LineTo(x,y) - рисует отрезок от текущего положения пера до точки (x,y);
Program liniay;
uses GraphABC;
begin LineTo(300,200);
end.
Слайд 8Линии
Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом
Program liniay;
uses GraphABC;
begin
line(100,50,500,250);
end.
Слайд 9Цвет линии
SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.
Program liniay;
uses GraphABC;
begin
line(30,30,400,350);
end.
Слайд 10Толщина линии
SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям.
Program
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);
line(30,30,400,350);
end.
Слайд 11Program treugolnik;
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);
line(300,100,500,300);
lineto(100,300);
lineto(300,100);
floodfill(300,200,clgreen);
end.
Треугольник
Рисуется процедурами
Line(x1,y1,x2,y2);
Слайд 12Заливка цветом
FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.
Слайд 13Заливка кистью
SetBrushColor(color) - устанавливает цвет кисти.
Заливка кистью распространяется на замкнутый контур,
Program zalivka_kist;
uses GraphABC;
Begin
SetBrushColor(clGreen);
Rectangle(50,50,300,300); end.
Слайд 14Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом
Окружность
Program circle;
uses GraphABC;
begin
Circle(500,200,100);
FloodFill(500,200,clred);
end.
x1,y1
r
Слайд 15Эллипс
Ellipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных
Program oval;
uses GraphABC;
begin
Ellipse(50,50,200,350);
FloodFill(50+100,50+100,clred);
Ellipse(250,150,550,300);
FloodFill(250+100,150+100,clBlue);
end.
x1,y1
x2,y2
x1,y1
x2,y2
Слайд 16Дуга окружности
Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке (x,y)
Program duga;
uses GraphABC;
Begin
SetPenWidth(10);
Arc(300,250,150,45,135);
end.
x,y
r
Слайд 17Pie(x,y,r,a1,a2) - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот
Сектор
Program sector;
uses GraphABC;
begin
Pie(300,200,100,0,90);
FloodFill(300+10,200-10,clAqua);
end.
Слайд 18Вывод текста в графическое окно
TextOut(x,y,’строка’); - выводит строку текста в позицию
Program text;
uses GraphABC;
begin
TextOut(100,30,'Квадрат');
Rectangle(50,50,200,200);
FloodFill(55,55,clBlue);
end.
Слайд 20Используя среду программирования паскаль АВС
создадим программу, в результате выполнения
которой
