Урок информатики в 9 классе "Графические возможности языка программирования Pascal ABC"

Лабораторная работа

по теме «Графика в PascalABC»

Процедуры

Uses GraphAbc; подключение модуля GraphAbc

SetWindowSize(m,n); ширина и высота графического окна

ClearWindow(color); устанавливает цвет фона color

Рисование контура

SetPenColor(Color); установить цвет пера

SetPenWidth(n); установить ширину пера

Заливка замкнутых областей кистью

SetBrushColor(color); цвет замкнутой области (круг, прямоугольник)

FloodFill(x,y,color);  (x,y) -любая точка из замкнутой области

Объекты

Line(x1,y1,x2,y2); рисование отрезка (x1,y1)-(x2,y2)

Circle(x,y,r); окружность с центром (х,у) радиуса r

Rectangle(x1,y1,x2,y2); прямоугольник  (x1,y1),(x2,y2) противоположные вершины

clBlack – черный,

 clPurple – фиолетовый,

clWhite – белый,

clRed – красный,

clGreen – зеленый,

clBrown – коричневый,

clBlue – синий,

clSkyBlue – голубой,

clYellow – желтый,

clCream – кремовый,

clFuchsia – сиреневый,

clGray – серый,

 «Графические возможности языка Pascal ABC»

Ответьте на вопросы. Назови правильно:

1.      Графический модуль ______________________

2.      Размеры экрана ___________________________

3.      Цвет пера_________________

4.      Цвет кисти _______________

5.      Толщина пера_____________

6.      Линия_________________

7.      Прямоугольник _________________

8.      Круг ___________________________

9.      Овал ___________________________

 «Графические возможности языка Pascal ABC»

Ответьте на вопросы. Назови правильно:

1.      Графический модуль ______________________

2.      Размеры экрана ___________________________

3.      Цвет пера_________________

4.      Цвет кисти _______________

5.      Толщина пера_____________

6.      Линия_________________

7.      Прямоугольник _________________

8.      Круг ___________________________

9.      Овал ___________________________

 «Графические возможности языка Pascal ABC»

Ответьте на вопросы. Назови правильно:

1.      Графический модуль ______________________

2.      Размеры экрана ___________________________

3.      Цвет пера_________________

4.      Цвет кисти _______________

5.      Толщина пера_____________

6.      Линия_________________

7.      Прямоугольник _________________

8.      Круг ___________________________

9.      Овал ___________________________

«Графические возможности языка Pascal ABC»

Ответьте на вопросы. Назови правильно:

1.      Графический модуль ______________________

2.      Размеры экрана ___________________________

3.      Цвет пера_________________

4.      Цвет кисти _______________

5.      Толщина пера_____________

6.      Линия_________________

7.      Прямоугольник _________________

8.      Круг ___________________________

9.      Овал ___________________________

• 1 слайд

  Графические возможности языка программирования
  Pascal ABC
  Презентацию выполнила:
  учитель информатики
  МБОУ-Гулёвской ООШ
  Клинцовского района Брянской области
  Антоненко Мария Владимировна
  

• 2 слайд

  Язык программирования Паскаль был разработан в 1967 г. профессором
  Никлаусом Виртом.
  
  Язык назван в честь французского учёного Блеза Паскаля, внесшего
  вклад в развитие средств вычислительной техники.
  Язык программирования
  Pascal
  

• 3 слайд

  Любой естественный язык (русский, английский) состоит из символов, слов, словосочетаний и предложений.
  В любом языке программирования имеются аналогичные структурные элементы: символы, слова, выражения и операторы (предложения).
  Символы языка программирования – это элементарные знаки, используемые при составлении любых текстов. Набор таких символов называют АЛФАВИТОМ ЯЗЫКА.
  Основные средства языка
  

• 4 слайд

  Алфавит языка Pascal
  1. Все латинские прописные и строчные
  буквы (A-Z, a-z)
  2. Арабские цифры 0-9
  3. Знаки + - * / \ < > ^, . ; : () _ и др.
  4. Служебные слова
  

• 5 слайд

  program - имя_программы;
  (Название программы пишется слитно либо через «_»)
  
  Uses (подключение модулей)
  Var (Раздел описания переменных)
  
  Begin (Тело программы)
  
  end. (конец программы)
  
  
  Структура программы
  

• 6 слайд

  Любой модуль подключается после заголовка программы
  
  
  Program grafika;
  Uses graphABC;
  Графический модуль
  Uses GraphABC.
  

• 7 слайд

  SetWindowSize
  
  Program grafika;
  Uses graphABC;
  Begin
  SetWindowSize (600,240);
  End.
  
  
  
  Установка размера окна
  

• 8 слайд

  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
  

• 9 слайд

  Прямоугольник
  rectangle (регтэнгл)
  Program grafika;
  Uses graphABC;
  Begin
  SetWindowSize (600,240);
  SetPenColor (clBlack );
  rectangle(40,80,200,160);
  End.
  

• 10 слайд

  Цвет пера и кисти
  Program grafika;
  Uses graphABC;
  Begin
  SetWindowSize (600,240);
  SetPenColor (clBlack );
  SetBrushColor (clBlue);
  rectangle(40,80,200,160);
  End.
  

• 11 слайд

  Круг
  circle
  Program grafika;
  Uses graphABC;
  Begin
  SetWindowSize (600,240);
  SetPenColor (clRed );
  Circle (300,120,40);
  End.
  

• 12 слайд

  Круг
  circle (сэкл)
  Program grafika;
  Uses graphABC;
  Begin
  SetWindowSize (600,240);
  SetPenColor (clRed );
  SetBrushColor (clYellow );
  Circle (300,120,40);
  End.
  

• 13 слайд

  Program 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.
  

• 14 слайд

  Светофор
  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.
  

• 15 слайд

  Эллипс
  eLLipse
  Program grafika;
  Uses graphABC;
  Begin
  SetWindowSize (600,240);
  SetPenColor (clRed );
  SetBrushColor (clYellow );
  eLLipse (100, 80,540,160);
  End.
  

• 16 слайд

  Толщина линии
  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.
  

• 17 слайд

  Пирамидка
  

• 18 слайд

  Стили пера и кисти
  Графические возможности языка программирования
  Pascal ABC
  

• 19 слайд

  Стиль цвета кисти
  SetBrushStyle
  Устанавливает стиль кисти, задаваемый параметром bs: integer;
  

• 20 слайд

  SetBrushStyle (bsDiagCross )
  
  Program shrihovka;
  Uses GraphABC;
  
  var
  bs: integer;
  
  Begin
  SetWindowSize(320,340);
  SetPenColor(clBlue);
  setBrushColor (clRed);
  SetBrushStyle(bsDiagCross);
  SetPenWidth(4);
  Circle(140,80,60);
  
  end.
  

• 21 слайд

  SetBrushStyle (bsBDiagonal )
  Program shrihovka;
  Uses GraphABC;
  
  var
  bs: integer;
  
  Begin
  SetWindowSize(320,340);
  SetPenColor(clBlue);
  setBrushColor (clBlue);
  SetBrushStyle (bsCross);
  SetPenWidth(4);
  Circle(140,80,60);
  
  end.
  

• 22 слайд

  Ракетка
  Program raketka;
  Uses GraphABC;
  
  var
  bs: integer;
  
  Begin
  SetWindowSize(320,340);
  SetPenColor(clBlue);
  setBrushColor (clBlue);
  SetBrushStyle (bsCross);
  SetPenWidth(4);
  Circle(140,80,60);
  line (140,140,140,300);
  
  end.
  

• 23 слайд

  SetPenStyle
  Устанавливает стиль пера, задаваемый параметром (ps: integer);
  Program punktir;
  Uses GraphABC;
  
  var
  ps: integer;
  Begin
  SetWindowSize(320,340);
  SetPenColor(clBlue);
  SetPenStyle (psDash);
  rectangle(40,80,200,160);
  
  end.
  

• 24 слайд

  SetPenStyle (psDashDot); 
  Program punktir;
  Uses GraphABC;
  var
  ps: integer;
  
  Begin
  SetWindowSize(320,340);
  SetPenColor(clBlue);
  SetPenStyle (psDashDot);
  rectangle(40,80,200,160);
  
  
  end.
  

• 25 слайд

  Написать программу
  Эмблема олимпиады
  

• 26 слайд

  Program Olimpiada;
  Uses GraphABC;
  Begin
  SetWindowSize(520,340);
  SetPenColor(clBlue);
  SetPenWidth(4);
  Circle(140,200,60);
  SetPenColor(clBlack);
  Circle(280,200,60);
  SetPenColor(clRed);
  Circle(420,200,60);
  SetPenColor(clYellow);
  Circle(220,240,60);
  SetPenColor(clGreen);
  Circle(340,240,60);
  end.
  

• 27 слайд

  Program Olimpiada;
  Uses GraphABC;
  var
  bs: integer;
  Begin
  SetWindowSize(520,340);
  SetPenColor(clBlue);
  SetBrushStyle (bsClear);
  SetPenWidth(4);
  Circle(140,200,60);
  SetPenColor(clBlack);
  Circle(280,200,60);
  SetPenColor(clRed);
  Circle(420,200,60);
  SetPenColor(clYellow);
  Circle(220,240,60);
  SetPenColor(clGreen);
  Circle(340,240,60);
  end.
  

• 28 слайд

  Цвет фона окна
  СlearWindow
  Program zakrash;
  Uses GraphAbc;
  
  Begin
  SetWindowSize (500,300);
  clearWindow (clSkyBlue);
  
  End.
  

• 29 слайд

  Замкнутые области
  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.
  

• 30 слайд

  Заливка замкнутых областей кистью
  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.
  

• 31 слайд

  Написать программу изображения паровозика, используя графические возможности языка программирования Pascal
  
  Домашнее задание: