Презентация на тему Графика в Pascal 7 класс

подключить графический модуль.
uses GraphABC функция подключения графического модуля записывается

перед объявлением переменных

uses GraphABC;

var v,k: integer;

begin

прямой можно построить, если известно положение его двух крайних

точек. Они-то и задаются в обращении к процедуре. Первая пара параметров - координаты одной точки (любой из двух), вторая пара - другой.

Line(100,50,250,150);

Окружность можно построить, если известно положение центра и радиус. Окружность рисуется процедурой Circle, первые два параметра которой - координаты центра, третий - радиус.

Circle(200,100,50);

правый верхний и левый нижний углы
SetWindowPos(x,y); //

Устанавливает позицию графического окна.

SetWindowWidth (500); //Устанавливает ширину графического окна

SetWindowHeight(100); //Устанавливает высоту графического окна.

константы
const h= clRed; d = clGreen;
В программе используют процедуру

SetBrushColor(h ); ее записывают перед фигурой которую надо закрасить

//Устанавливает высоту графического окна

SetWindowHeight(500); //Устанавливает ширину

графического окна.

SetWindowPos(0,0); // Устанавливает позицию графического окна.

SetBrushColor(h );
Rectangle(150,150,50,200); //правый верхний и левый нижний углы}

SetBrushColor(d );
Circle(200,100,50); {окружность}

Line(100,50,250,150); {отрезок прямой}
ReadLn;

END.

и две горизонтальные прямые, внутри квадрата зеленая окружность.

очищает графическое окно указанным цветом.
Очистка графического окна
uses GraphABC;
begin
ClearWindow;

ClearWindow(clMoneyGreen);
end.

Цвет зеленых денег

color.
Program liniay;
uses GraphABC;
begin
setpencolor(clred);
line(30,30,400,350);
end.

n пикселям.
Program liniay;
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);

line(30,30,400,350);
end.