- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад к уроку Pascal Модуль GraphABC
Содержание
- 1. Презентация к уроку Pascal Модуль GraphABC
- 2. Подключение дополнительных библиотекДля работы в графическом режиме
- 3. Графический режимГрафический экран PasсalABC (по умолчанию) содержит
- 4. Управление экраномSetWindowWidth(w) - Устанавливает ширину графического окна; SetWindowHeight(h) - Устанавливает высоту графического окна;
- 5. Графические примитивыТочкаЛинияПрямоугольник ОкружностьЭллипсСекторДуга
- 6. ТочкаSetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом color program tochka;uses GraphABC;begin SetPixel(300,200,clred);end.
- 7. ЛинииLine(x1,y1,x2,y2) - рисует отрезок с началом в
- 8. Используемые цветаRandom(16777215) – случайный цвет из всей палитры цветов Паскаля
- 9. Цвет линииSetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.Program liniay;uses GraphABC;begin setpencolor(clred); line(30,30,400,350);end.
- 10. ПрямоугольникRectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2). Program pryamougolnik;uses GraphABC;beginRectangle(50,50,200,200);end.
- 11. Заливка цветомFloodFill(x,y,color) - заливает область одного цвета
- 12. 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);
- 13. Circle(x,y,r) - рисует окружность с центром в
- 14. Дуга окружностиArc(x,y,r,a1,a2) - Рисует дугу окружности с
- 15. Программа
- 16. Упражнения
Подключение дополнительных библиотекДля работы в графическом режиме необходимо подключение модуля GraphABC.Uses GraphABC;Для работы с текстом - модуль Crt.Uses Crt; program …; uses crt, GraphABC; var …; begin … end.
Слайд 2Подключение дополнительных библиотек
Для работы в графическом режиме необходимо подключение модуля GraphABC.
Uses
GraphABC;
Для работы с текстом - модуль Crt.
Uses Crt;
program …;
uses crt, GraphABC;
var …;
begin
…
end.
Для работы с текстом - модуль Crt.
Uses Crt;
program …;
uses crt, GraphABC;
var …;
begin
…
end.
Слайд 3Графический режим
Графический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали
и 400 точек по вертикали.
640 точек
400 точек
Начало отсчета – левый верхний угол экрана
Слайд 4Управление экраном
SetWindowWidth(w) - Устанавливает ширину графического окна;
SetWindowHeight(h) - Устанавливает высоту
графического окна;
Слайд 6Точка
SetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом color
program
tochka;
uses GraphABC;
begin
SetPixel(300,200,clred);
end.
uses GraphABC;
begin
SetPixel(300,200,clred);
end.
Слайд 7Линии
Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом
в точке (x2,y2).
Program liniay;
uses GraphABC;
begin
line(100,50,500,250);
end.
Слайд 9Цвет линии
SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.
Program liniay;
uses GraphABC;
begin
setpencolor(clred);
line(30,30,400,350);
end.
line(30,30,400,350);
end.
Слайд 10Прямоугольник
Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
end.
Слайд 11Заливка цветом
FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с
точки (x,y).
Program pryamougolnik;
uses GraphABC;
begin
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.
Слайд 12Program 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);
Слайд 13Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом
r.
Окружность
Program circle;
uses GraphABC;
begin
Circle(500,200,100);
FloodFill(500,200,clred);
end.
x1,y1
r
Слайд 14Дуга окружности
Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке (x,y)
и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).
Program duga;
uses GraphABC;
Begin
SetPenWidth(10);
Arc(300,250,150,45,135);
end.
x,y
r
