модулей)
Var (Раздел описания переменных)
Begin (Тело программы)
end. (конец
программы)Структура программы
Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Графические возможности языка Pascal 8 класс
Содержание
- 1. Графические возможности языка Pascal 8 класс
- 2. program - имя_программы;(Название программы пишется слитно либо
- 3. Графические возможности языка программирования Графический
- 4. Положение и размеры геометрического объекта задаются координатами
- 5. Рисование различных геометрических фигур осуществляется с помощью
- 6. Рисование осуществляется в графическом окне. Возможность рисовать
- 7. SetWindowSizeProgram grafika;Uses graphABC;BeginSetWindowSize (600,240);End.Установка размера окна
- 8. Работа с графическим окномClearWindow - очищает
- 9. Рисование линийLine (x1,y1,x2,y2) линия, где (x1,y1) и (x2,y2) – координаты начала и конца отрезкаПример(x1,y1)(x2,y2)
- 10. Работа с перомSetPenColor(color) – устанавливает цвет текущего пераSetPenWidth(width) – устанавливает ширину текущего пера
- 11. clBlack – черный clPurple – фиолетовый
- 12. Прямоугольник rectangle (регтэнгл)Program grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clBlack );rectangle(40,80,200,160);End.
- 13. Цвет пера и кистиProgram grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clBlack );SetBrushColor (clBlue);rectangle(40,80,200,160);End.
- 14. Круг circle (сэкл)Program grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clRed );Circle (300,120,40);End.
- 15. Круг circle (сэкл)Program grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clRed );SetBrushColor (clYellow );Circle (300,120,40);End.
- 16. Program grafika; uses graphABC; begin setWindowSize (600,200);
- 17. СветофорProgram Svetofor;uses GraphABC;begin
- 18. Эллипс eLLipseProgram grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clRed );SetBrushColor (clYellow ); eLLipse (100, 80,540,160);End.
- 19. Толщина линииsetPenWidthЛиния LineProgram grafika;Uses graphABC;BeginSetWindowSize (600,240);SetPenColor (clRed
- 20. Замкнутые областиProgram treugolnik;Uses GraphAbc;BeginSetWindowSize (500,500);SetPenWidth(5);
- 21. Заливка замкнутых областей кистью FLoodFiLLProgram
- 22. Написать программу изображения паровозика, используя графические возможности языка программирования PascalДомашнее задание:
- 23. ЖелаюУспеховВ дальнейшем ИзученииЯзыка программированияPascal!
- 24. Скачать презентанцию
program - имя_программы;(Название программы пишется слитно либо через «_»)Uses (подключение модулей)Var (Раздел описания переменных)Begin (Тело программы)end. (конец программы)Структура программы
Слайды и текст этой презентации
Слайд 2program - имя_программы;
(Название программы пишется слитно либо через «_»)
Uses (подключение
модулей)
программы)
Слайд 3
Графические возможности
языка программирования
Графический режим работы
При работе в графическом режиме
изображение на экране строится из точек — пикселей. Каждый пиксель
(точка) характеризуется координатами и цветом.(0,0)
(X,Y)
Слайд 4Положение и размеры геометрического объекта задаются координатами его точек. Поскольку
минимальным элементом изображения является пиксель, в качестве координат используют порядковые
номера пикселей по горизонтали и вертикали. Началом отсчета является левый верхний угол экрана. Значения координаты х отсчитываются слева направо, а значения координаты у - сверху вниз.Например, координаты точки (20, 50) означают, что от левого верхнего угла экрана надо отсчитать 20 пикселей по горизонтали вправо и 50 пикселей по вертикали ВНИЗ
Координаты пикселя принимают только целочисленные значения.
Координаты пикселя принимают значения, ограниченные нулем и размерами графического окна.
Возможности стандартной графической библиотеки
Изображение можно сформировать из простых геометрических фигур: точек, отрезков, прямоугольников, окружностей и т. д.
Слайд 5
Рисование различных геометрических фигур осуществляется с помощью специальных стандартных команд
(процедур), которые хранятся в библиотечном модуле GraphAbc.
Эту библиотеку подключают
в разделе описаний с помощью зарезервированного слова Uses (подключить).UsesGraphAbc
Подключение графического модуля
Слайд 6Рисование осуществляется в графическом окне. Возможность рисовать одновременно в нескольких
окнах отсутствует. Рисовать можно с помощью пера и кисти.
Размеры графического
окна можно задавать в модуле GraphAbc с помощью команды SetWindowSize (X,Y). По умолчанию окно занимает весь экран монитора.Изучать графические возможности системы программирования Pascal ABC мы будем на конкретных примерах.
Работа
с графическим окном
Слайд 7SetWindowSize
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
End.
Установка размера окна
Слайд 8Работа
с графическим окном
ClearWindow - очищает графическое окно белым цветом
ClearWindow
(color) - очищает графическое окно цветом color
ClearWindow (clYellow)
Слайд 9Рисование линий
Line (x1,y1,x2,y2)
линия, где (x1,y1) и (x2,y2) – координаты
начала и конца отрезка
Пример
(x1,y1)
(x2,y2)
Слайд 10Работа с пером
SetPenColor(color) – устанавливает цвет текущего пера
SetPenWidth(width) – устанавливает
ширину текущего пера
Слайд 11 clBlack – черный clPurple – фиолетовый clWhite – белый clRed
– красный
clGreen – зеленый
clLime – ярко-зеленый
clBrown – коричневый
clBlue – синий
clYellow – желтый
clOlive – оливковый
clFuchsia – сиреневый
clGray – серый
Цвет пера
SetPenColor
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clBlack );
SetBrushColor (clBlue);
End.
Цвет кисти
SetBrushColor
Слайд 12Прямоугольник
rectangle (регтэнгл)
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clBlack );
rectangle(40,80,200,160);
End.
Слайд 13Цвет пера и кисти
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clBlack );
SetBrushColor (clBlue);
rectangle(40,80,200,160);
End.
Слайд 14Круг
circle (сэкл)
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clRed );
Circle (300,120,40);
End.
Слайд 15Круг
circle (сэкл)
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clRed );
SetBrushColor (clYellow );
Circle (300,120,40);
End.
Слайд 16Program grafika;
uses graphABC;
begin
setWindowSize (600,200);
SetPenColor (clBlack );
SetBrushColor (clBlue);
rectangle(40,80,200,160);
SetPenColor (clRed );
SetBrushColor (clYellow );
Circle
(300,120,40);end.
Слайд 17Светофор
Program Svetofor;
uses GraphABC;
begin
setWindowSize(200,240);
SetPenColor(clBlack);
setBrushColor(clGray);
Rectangle(60,20,140,220);
setBrushColor(clRed);
Circle(100,60,28);
setBrushColor(clYellow);
Circle(100,120,28);
setBrushColor(clLime);
Circle(100,180,28);
end.
Слайд 18Эллипс
eLLipse
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clRed );
SetBrushColor (clYellow );
eLLipse (100,
80,540,160);
End.
Слайд 19Толщина линии
setPenWidth
Линия
Line
Program grafika;
Uses graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clRed );
Line (80, 40,500,40);
End.
Program grafika;
Uses
graphABC;
Begin
SetWindowSize (600,240);
SetPenColor (clRed );
setPenWidth (5);
Line (80, 40,500,40);
End.
Слайд 20Замкнутые области
Program treugolnik;
Uses GraphAbc;
Begin
SetWindowSize (500,500);
SetPenWidth(5); //Установка толщины
пера
SetPenColor (clRed) ; //Установка красного цвета пера
Line(150,400,300,100); //Рисование отрезка
красным цветомSetPenColor (clGreen); //Установка зеленого цвета пера
Line(300,100,450,400); //Рисование отрезка зеленым цветом
SetPenColor (clBlue); //Установка синего цвета пера
Line(450,400,150,400); //Рисование отрезка синим цветом
End.
Слайд 21Заливка замкнутых областей кистью
FLoodFiLL
Program treugolnik;
Uses GraphAbc;
Begin
SetWindowSize (500,500);
SetPenWidth(5);
SetPenColor (clRed);
Line(150,400,300,100);
SetPenColor (clGreen);
Line(300,100,450,400);
SetPenColor (clBlue);
Line(450,400,150,400);
FloodFill(350,300, clYellow);
End.
Слайд 22Написать программу изображения паровозика, используя графические возможности языка программирования Pascal
Домашнее
задание:
