Графика в языках программирования

uses graphABC;
//рисование маятника
procedure M(xc,yc,x1,y1:integer);
begin
setbrushstyle(bsSolid);
setbrushcolor(clBlack);
line(xc,yc,x1,y1);
circle(xc,yc,2);
circle(x1,y1,4);
end;
var xc,yc,d,x1,y1:integer;
    u,du,a:real;
begin
xc:=windowwidth div 2;
yc:=50;
d:=150;
x1:=xc;
y1:=yc+d;
u:=-pi/2;//начальное положение вертикально
du:=0.1;
a:=pi/4;//амплитуда
lockdrawing;
repeat
while u>=-pi/2-a do//ход влево
 begin
  clearwindow;
  u:=u-du;
  x1:=xc+round(d*cos(u));
  y1:=yc-round(d*sin(u));
  M(xc,yc,x1,y1);
  sleep(200);
  redraw;
 end;
while u<=-pi/2+a do //ход вправо
 begin
  clearwindow;
  u:=u+du;
  x1:=xc+round(d*cos(u));
  y1:=yc-round(d*sin(u));
  M(xc,yc,x1,y1);
  sleep(200);
  redraw;
 end;
a:=a-pi/20;//уменьшим амплитуду
until a<0;
clearwindow;//установим в начальное положение
UnlockDrawing;
M(xc,yc,xc,yc+d);
end.

uses graphABC;
var x1,y1,x2,y2:integer;
begin
x1:=windowwidth div 2;
y1:=windowheight div 2;
setpencolor(clRed);
line(0,0,x1,y1);
line(x1,0,x1,y1);
line(0,0,x1,y1);
floodfill(10,5,clRed);
setpencolor(clBlue);
line(0,0,x1,y1);
line(0,y1,x1,y1);
line(0,0,0,y1);
floodfill(5,10,clBlue);
setpencolor(clGreen);
line(0,y1,x1,y1);
line(0,2*y1,x1,y1);
line(0,y1,0,2*y1);
floodfill(5,y1+10,clGreen);
setpencolor(clYellow);
line(0,2*y1,x1,y1);
line(0,2*y1,x1,2*y1);
line(x1,y1,x1,2*y1);
floodfill(10,2*y1-5,clYellow);
setpencolor(clPurple);
line(x1,0,2*x1,0);
line(x1,y1,2*x1,0);
line(2*x1,0,2*x1,y1);
floodfill(x1+10,5,clPurple);
setpencolor(clBrown);
line(x1,y1,2*x1,0);
line(x1,y1,2*x1,y1);
line(2*x1,0,2*x1,y1);
floodfill(x1+10,y1-5,clBrown);
setpencolor(clCream);
line(x1,y1,2*x1,y1);
line(x1,y1,2*x1,2*y1);
line(2*x1,y1,2*x1,2*y1);
floodfill(x1+10,y1+5,clCream);
setpencolor(clAqua);
line(x1,y1,2*x1,2*y1);
line(x1,y1,x1,2*y1);
line(2*x1,y1,2*x1,2*y1);
floodfill(x1+10,2*y1-5,clAqua);
end.

uses graphABC;
procedure Fig(x,y,r,c:integer);
begin
setpencolor(c);
line(x-r,y,x,y-r);
line(x,y-r,x+r,y);
line(x+r,y,x,y+r);
line(x,y+r,x-r,y);
end;
var x,y,r,i:integer;
begin
x:=100;
y:=windowheight div 2;
r:=50;
for i:=1 to 3 do
 begin
  Fig(x,y,r,clRed);
  x:=x+r;
 end;
end.

uses graphABC;
procedure Fig(x,y,r,c:integer;a:real);
var x1,y1,x2,y2,x3,y3,x4,y4,i:integer;
    u:real;
begin
u:=a;
x1:=x+round(r*cos(u));
y1:=y-round(r*sin(u));
u:=u+pi/2;
x2:=x+round(r*cos(u));
y2:=y-round(r*sin(u));
u:=u+pi/2;
x3:=x+round(r*cos(u));
y3:=y-round(r*sin(u));
u:=u+pi/2;
x4:=x+round(r*cos(u));
y4:=y-round(r*sin(u));
setpencolor(c);
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x4,y4);
line(x4,y4,x1,y1);
end;
var x,y,r,i:integer;
begin
x:=windowwidth div 2;;
y:=windowheight div 2;
r:=100;
Fig(x,y,r,clRed,0);
Fig(x,y,r,clRed,pi/4);
end.

uses graphABC;
var x1,y1,x2,y2:integer;
begin
x1:=windowwidth div 2;
y1:=windowheight div 2;
rectangle(0,0,2*x1,2*y1);
line(0,0,2*x1,2*y1);
line(2*x1,0,0,2*y1);
line(x1,0,x1,2*y1);
line(0,y1,2*x1,y1);
floodfill(10,5,clRed);
floodfill(5,10,clBlue);
floodfill(5,y1+10,clGreen);
floodfill(10,2*y1-5,clYellow);
floodfill(x1+10,5,clPurple);
floodfill(x1+10,y1-5,clBrown);
floodfill(x1+10,y1+5,clCream);
floodfill(x1+10,2*y1-5,clAqua);
end.

uses graphABC;
function F(x:real):real;
begin
F:=5*x*x+3*x-7;
end;
var x,mx,my,dx:real;
    x0,y0,xn,xk,i:integer;
    s:string;
begin
xn:=-4;xk:=16;{интервал по Х}
x0:=round(abs(xn)*windowwidth/(xk-xn));
mx:=(windowwidth-50)/(xk-xn);{масштаб по Х}
y0:=windowheight-80;
my:=(y0-30)/F(xk);
line(0,y0,windowwidth,y0);{оси}
line(x0,0,X0,windowheight);
for i:=1 to xk do{максимальное количество засечек в одну сторону}
  begin
    line(x0-3,y0-round(i*my*100),x0+3,y0-round(i*my*100));{засечки на оси У}
    line(x0-3,y0+round(i*my*100),x0+3,y0+round(i*my*100));
    {подпись оси У}
    str(i*100,s);
    textout(x0-35,y0-round(i*my*100),s);{соответственно засечкам}
    textout(x0-35,y0+round(i*my*100),'-'+s);
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    {подпись оси Х}
    str(i,s);
    textout(x0+round(i*mx),y0+10,s);
    textout(x0-round(i*mx),y0+10,'-'+s);
  end;
{центр}
textout(x0+5,y0+10,'0');
{подписи концов осей}
textout(windowwidth-10,y0-10,'X');
textout(x0+5,10, 'Y');
{график}
x:=xn;
dx:=0.01;
setpencolor(clRed);
moveto(x0+round(x*mx),y0-round(F(x)*my));
while x<=xk do
 begin
 lineto(x0+round(x*mx),y0-round(F(x)*my));
  x:=x+dx;
 end;
{название}
setfontcolor(clRed);
setfontsize(12);
textout(x0+100,20,'Grafik functii y=5x^2+3x-7');
textout(x0+120,40,'na intervale [-4;16]');
end.

uses graphABC;
var xc,y1,x1,d,h,i:integer;
begin
xc:=windowwidth div 2;
y1:=windowheight-80;
h:=80;
d:=60;
ClearWindow(clSkyBlue);
//корпус
line(xc-3*d,y1-h,xc+3*d,y1-h);
line(xc-3*d,y1-h,xc-2*d,y1);
line(xc-2*d,y1,xc+3*d,y1);
line(xc+3*d,y1-h,xc+3*d,y1);
floodfill(xc+3*d-5,y1-5,clGray);
//якорное окно
setbrushstyle(bsClear);
setpenwidth(3);
circle(xc-2*d,y1-h div 2,5);
circle(xc-2*d,y1-h div 2,10);
line(xc-2*d,y1-h div 2+5,xc-2*d,y1-23);
line(xc-2*d-3,y1-25,xc-2*d+3,y1-25);
//первая палуба
y1:=y1-h;
setpenwidth(1);
rectangle(xc-2*d,y1-d,xc+2*d,y1);
floodfill(xc-2*d+5,y1-d+5,clWhite);
x1:=xc-2*d;
for i:=1 to 3 do
 begin
  circle(x1+i*d,y1-d div 2,8);
  floodfill(x1+i*d,y1-d div 2,clYellow);
 end;
//надстройка
y1:=y1-d;
rectangle(xc-d,y1-d,xc+d,y1);
floodfill(xc,y1-5,clLtGray);
y1:=y1-d;
h:=40;
//труба
line(xc-h,y1,xc,y1-h);
line(xc,y1-h,xc+h,y1-h);
line(xc+h,y1-h,xc+h,y1);
floodfill(xc+h-5,y1-5,clAqua);
line(xc-2*(h div 3),y1-h div 3,xc+h,y1-h div 3);
line(xc-h div 3,y1-2*(h div 3),xc+h,y1-2*(h div 3));
floodfill(xc+h-5,y1-h div 3-2,clWhite);
end.