Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Графика на языке программирования Pascal ABC

Модуль GRAPH ABC
Графика  на языке программирования Pascal ABC Модуль GRAPH ABC Uses GraphABC; Подключение модуля В графическом режиме весь экран разбивается на отдельные точки Описание некоторых основных графических процедур и функцийSetPixel(x,y,color) - закрашивает один пиксел с Цвета в PascalABC Пример графической программы, рисующей изображение дома:Program Domik; uses Graphabc; //подключение модуля GraphABC Программа, рисующая фигурку: Program Figurka; uses GraphABC; begin SetWindowSize(500, 500); //задаем размер Практическая работа за компьютеромОпределите координаты и составьте программу, выводящую на экран рисунок  дома и дерева.  Программа будет иметь вид:Program domik_2; uses GraphABC; var i: integer; st:string; begin Домашнее заданиеИспользуя оператор цикла и введя переменную для пересчета координат по оси 
Слайды презентации

Слайд 2 Модуль GRAPH ABC

Модуль GRAPH ABC

Слайд 3 Uses GraphABC;
Подключение модуля

Uses GraphABC; Подключение модуля

Слайд 4 В графическом режиме весь экран

В графическом режиме весь экран разбивается на отдельные точки

разбивается на отдельные точки — "пиксели". Положение пикселя также

задается двумя координатами — X и Y. Координата X увеличивается слева направо, а координата Y — сверху вниз. Графический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали.

(0,0)

(640,0)

(640,400)

(0,400)


Слайд 5 Описание некоторых основных графических процедур и функций
SetPixel(x,y,color) -

Описание некоторых основных графических процедур и функцийSetPixel(x,y,color) - закрашивает один пиксел

закрашивает один пиксел с координатами (x,y) цветом color.
Line(x1,y1,x2,y2)

- рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).
SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.
SetPenStyle(<номер от 1 до 6>); - устанавливает стиль пера, задаваемый номером.
SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям.
Треугольник рисуется процедурами Line(x1,y1,x2,y2);
Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).
FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с точки (x,y).
сircle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r.
Ellipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2).


Слайд 6 Цвета в PascalABC

Цвета в PascalABC

Слайд 7 Пример графической программы, рисующей изображение дома:

Program Domik;
uses

Пример графической программы, рисующей изображение дома:Program Domik; uses Graphabc; //подключение модуля

Graphabc; //подключение модуля GraphABC
begin
SetWindowWidth(800); //ширина окна программы


SetWindowHeight(600); //высота окна программы
SetPenWidth(3); //толщина пера
SetFontSize(18); //размер шрифта
SetFontColor(clRed); //цвет шрифта
SetFontStyle(fsBold); //жирный стиль шрифта
TextOut(100,100,'Домик'); //текст
Rectangle(200, 300, 600,600); //дом
Circle(400,225, 40); //круг
SetBrushColor(clAqua); //цвет заливки окна
FillRect(300, 400,500,500); //процедура заливки окна
rectangle(300,400,500,500); //окно
Line(400,400,400,500); // окно
Line(300,450,500,450); //окно
Line(200,300,400,150); //крыша
Line(400,150,600,300); //крыша
Line(480,210,480,160); //труба
Line(480,160,520,160); //труба
Line(520,160,520,240); //труба
end.

Слайд 9 Программа, рисующая фигурку:

Program Figurka;
uses GraphABC;
begin

Программа, рисующая фигурку: Program Figurka; uses GraphABC; begin SetWindowSize(500, 500); //задаем

SetWindowSize(500, 500); //задаем размер графического

окна
SetPenWidth(3); //устанавливаем стиль пера SetBrushColor(clFuchsia); //устанавливаем цвет кисти Circle(225,160,50); //рисуем окружность Line(225,160,225,180); //рисуем линии
Line( 210,190,240,190);
Line( 225,210,225,250);
Line( 100,100,200,260);
Line( 200,260,400,260);
Line( 210,350,200,480);
Line(240,350,250,480);
Rectangle(200,230,250,350); //рисуем прямоугольник
SetBrushColor(clLime);
FillRect(0, 480,500,500); //рисуем закрашенный прямоугольник SetBrushColor(clWhite);
Circle(205,150,10);
Circle(245,150,10);
end.

Слайд 11 Практическая работа за компьютером
Определите координаты и составьте программу,

Практическая работа за компьютеромОпределите координаты и составьте программу, выводящую на экран рисунок  дома и дерева. 

выводящую на экран рисунок  дома и дерева.
 


Слайд 12 Программа будет иметь вид:
Program domik_2;
uses GraphABC;
var

Программа будет иметь вид:Program domik_2; uses GraphABC; var i: integer; st:string;

i: integer; st:string;
begin
SetWindowSize(500, 500); {Коричневая стена}
SetPenWidth(2);

SetBrushColor(clBrown); FillRect(100,50,150,100); {Крыша желтого цвета} SetPenColor(clBrown); Line(125,25,80,75); Line(125,25,170,75);
FloodFill(125, 30,clYellow); {Крона дерева}
SetPenColor(clGreen); SetBrushColor(clGreen); Ellipse(100,150,150,200); {ствол дерева}
SetBrushColor(clBrown); FillRect(120,200,130,230);
end.

  • Имя файла: prezentatsiya-grafika-na-yazyke-programmirovaniya-pascal-abc.pptx
  • Количество просмотров: 229
  • Количество скачиваний: 0