Язык программирования Pascal - графика

САХА (ЯКУТИЯ)
ГОСУДАРСТВЕННОЕ АВТОНОМНОЕ ПРОФЕССИОНАЛЬНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ РЕСПУБЛИКИ САХА (ЯКУТИЯ)
«РЕГИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ

КОЛЛЕДЖ В Г.МИРНОМ»

Uses GraphABC;
Для работы с текстом - модуль Crt. Uses

Crt;
program …;
uses crt,
GraphABC;
var …;
begin …
End.
Управление экраном SetWindowWidth(w) -Устанавливает ширину графического окна;
SetWindowHeight(h) - Устанавливает высоту графического окна;

цветом color
program tochka;
uses GraphABC;
begin
SetPixel(300,200,clred);
end.
Линии

Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). x1,y1
Program liniay;
uses GraphABC;
begin line(100,50,500,250);
x2,y2 end.

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

(x1,y1) и (x2,y2).x1,y1
Program pryamougolnik;
uses GraphABC;
begin
x2,y2 Rectangle(50,50,200,200);

End.

color, начиная с точки (x,y).x1,y1 Program pryamougolnik;
uses GraphABC;
x2,y2

begin Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
End.
Треугольник Рисуется процедурами Line(x1,y1,x2,y2); LineTo(x,y);
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.

(x,y) и радиусом r.
Program circle;
uses GraphABC;
r
begin

x1,y1 Circle(500,200,100);
FloodFill(500,200,clred);
End.

в точке (x,y) и радиусом r, заключенной между двумя лучами,

образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).
Program duga;
uses GraphABC;
x,y
Begin SetPenWidth(10);
Arc(300,250,150,45,135);
End.

окна
ClearWindow; - очищает графическое окно белым цветом.
ClearWindow(color); - очищает

графическое окно указанным цветом.
SetPixel(x,y,color); - Закрашивает один пиксел с координатами (x,y) цветом color
LineTo(x,y); - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y).
Line(x1,y1,x2,y2); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).
SetPenColor(color); - устанавливает цвет пера, задаваемый параметром color.

- рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).

 
FloodFill(x,y,color); - заливает область одного цвета цветом color, начиная с точки (x,y).
SetBrushColor(color); - устанавливает цвет кисти, заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки цвета кисти.
Circle(x,y,r); - рисует окружность с центром в точке (x,y) и радиусом r.
Ellipse(x1,y1,x2,y2); - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2).

размер шрифта в пунктах.
SetFontStyle(fs); - устанавливает  стиль шрифта.

fsBoldItalic – жирный наклонный;
fsUnderline – подчеркнутый;
fsBoldUnderline – жирный

подчеркнутый;
fsItalicUnderline – наклонный подчеркнутый;
fsBoldItalicUnderline – жирный наклонный подчеркнутый

(200,200,400,200); LineTo (300,260); LineTo (200,200); FloodFill (300,230,cllime); circle (160,200,40); FloodFill (160,200,clred); circle (440,200,40); FloodFill (440,200,clyellow); End.

X:=20; Y:=30; D:=100;
ClearWindow;
SetBrushColor(clGreen);
Ellipse(X+I,Y,X+I+D,Y+D);
end.

X:=20; Y:=30; D:=100;
for i:=1 to 500 do

begin
ClearWindow;
SetBrushColor(clGreen);
Ellipse(X+I,Y,X+I+D,Y+D);
Sleep(1);
end;
end.

begin X:=20; Y:=30; D:=100;
LockDrawing;
for

i:=1 to 500 do
begin
ClearWindow;
SetBrushColor(clGreen);
Ellipse(X+I,Y,X+I+D,Y+D);
Redraw;
Sleep(1);
end;
end.

X1:=350; X2:=500; LockDrawing; for I:=1 to X1-D do // зеленый

шар движется, красный стоит на месте
begin
ClearWindow;
SetBrushColor(clGreen);
Ellipse(X+I,Y,X+I+D,Y+D);
SetBrushColor(clRed);
Ellipse(X+X1,Y,X+X1+D,Y+D);
Redraw;
Sleep(5);
end;
for I:=X1 to X2 do // зеленый шар стоит на месте, красный шар движется
begin
ClearWindow;
SetBrushColor(clGreen);
Ellipse(X+X1-D,Y,X+X1,Y+D);
SetBrushColor(clRed);
Ellipse(X+I,Y,X+I+D,Y+D);
Redraw;
Sleep(5);
end;
end.

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

шара: красный шар стоит на месте, а зеленый движется по горизонтали к нему навстречу. После столкновения зеленый шар останавливается на месте, а красный шар начинает падать вниз (движение по вертикали).
3. Написать программу, которая выводит на экран два шара: красный шар стоит на месте, а зеленый движется по горизонтали к нему навстречу. После столкновения зеленый шар двигается в обратном направлении, а красный шар начинает падать вниз (движение по вертикали).
4. Написать программу, в которой окружность «пробегает» по периметру прямоугольника.
5. Написать программу «Круги на воде»: на экране в произвольном месте появляется окружность, которая сначала увеличивается, а потом уменьшается, затем так же появляются другие окружности. Начальные радиусы у окружности всегда разные