графика

uses graph;
{чистые квадраты - белый и черный}
procedure Kvad1(x,y,w,c:integer);
begin
setcolor(c);
rectangle(x,y,x+w,y+w);
setfillstyle(1,c);
floodfill(x+2,y+2,c);
end;
{квадрат с перевернутым треугольником внутри}
procedure Kvad2(x,y,w,c1,c2:integer);
var x1,y1,x2,y2,d:integer;
begin
d:=w div 2;
setcolor(c1);
rectangle(x,y,x+w,y+w);
setfillstyle(1,c1);
floodfill(x+2,y+2,c1);
x1:=x+w;y1:=y;
x2:=x+d;y2:=y+w;
setcolor(c2);
line(x,y,x1,y1);
line(x1,y1,x2,y2);
line(x,y,x2,y2);
setfillstyle(1,c2);
floodfill(x+d,y+2,c2);
end;
var x,y,w:integer;
begin
x:=0;
initgraph(x,y,'');
w:=50;
for y:=0 to getmaxY div w do
for x:=0 to getmaxX div w do
 begin
  if y mod 2=1 then
   begin
    if(x mod 2=0) then Kvad1(x*w,y*w,w,15)
    else Kvad1(x*w,y*w,w,0);
   end
  else Kvad2(x*w,y*w,w,10,13);
 end;
readln
end.

Program GraphShabl;
Uses Graph;
Const
z: array [1..10] of integer = (5,10,15,20,15,10,5,5,10,15);
Var
GraphDriver,
GraphMode,x,y,r,i,a,b,s: integer;
Begin
GraphDriver:=detect;
InitGraph(GraphDriver, GraphMode,'..\BGI');
s:=0;
for i:=1 to 10 do
s:=s+z[i];
x:=getmaxX div 2;
y:=getmaxY div 2;
r:=150;
b:=round(360*z[1]/s);
Setfillstyle(1,1);
PieSlice(x,y,0,b,r);
for i:=2 to 9 do
 begin
   a:=round(360*z[i]/s)+b;
   Setfillstyle(1,i);
   PieSlice(x,y,a,b,r);
   b:=a;
 end;
Setfillstyle(1,10);
PieSlice(x,y,b,360,r);
readln;
CloseGraph;
End.

uses graph,crt;
var x,y,x0,y0,d,r,dx,dy,i:integer;
begin
x:=0;
initgraph(x,y,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
outtextXY(x0-80,20,'Vyhod - press any key...');
d:=200;
r:=10;
rectangle(x0-d,y0-d,x0+d,y0+d);
x:=x0;
y:=y0-d+r+1;
dx:=-1;
dy:=1;
i:=10;
repeat
setcolor(i);
circle(x,y,r);
setfillstyle(1,i);
fillellipse(x,y,r,r);
delay(10);
setcolor(0);
circle(x,y,r);
setfillstyle(1,0);
fillellipse(x,y,r,r);
x:=x+dx;
y:=y+dy;
if x=x0-d+r+2 then
 begin
  dx:=1;
  i:=i+1;
  if i=16 then i:=1;
 end
else if y=y0+d-r-2 then
 begin
  dy:=-1;
  i:=i+1;
  if i=16 then i:=1;
 end
else if x=x0+d-r-2 then
 begin
  dx:=-1;
  i:=i+1;
  if i=16 then i:=1;
 end
else if y=y0-d+r+2 then
 begin
  dy:=1;
  i:=i+1;
  if i=16 then i:=1;
 end
until keypressed;
end.

uses graph;
var mx,my,x,dx,y:real;
    grD,grM,x0,y0,i,px,py:integer;
    s:string;
begin
grD:=detect;{инициализация графического режима}
initgraph(grD,grM,'');
X0:=getmaxX div 2;{начало координат в центре экрана}
Y0:=getmaxY div 2;
{коэффициенты по осям для перевода реальных координат в экранные}
mx:=30;
my:=100;
line(0,y0,getmaxX,y0); {ось Х}
line(x0,getmaxy,x0,0); {ось У}
{подписи оси Y}
line(x0-3,y0-round(sin(pi/2)*my),x0+3,y0-round(sin(pi/2)*my));
outtextXY(x0-10,y0-round(sin(pi/2)*my),'1');
line(x0-3,y0+round(sin(pi/2)*my),x0+3,y0+round(sin(pi/2)*my));
outtextXY(x0-15,y0+round(sin(pi/2)*my),'-1');
{подриси оси Х}
for i:=1 to 6 do   {максимальное количество засечек в одну сторону}
 begin
  line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); {засечки на оси Х}
  line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3);
  if i mod 2=0 then {подписи через 1}
   begin
    str(i div 2,s);
    if s='1' then s:='';{1pi 1 не пишем}
    outtextXY(x0+round(i*pi*mx/2),y0+10,s+'pi');
    outtextXY(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi');
   end;
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
dx:=0.001;
{график}
x:=-3*pi;
while x<=3*pi do
 begin
  px:=x0+round(x*mx); {изменение по оси Х}
  y:=sin(x); {график в реальных координатах}
  py:=y0-round(y*my);{в экранных}
  putpixel(px,py,12);{график красным}
  x:=x+dx; {наращиваем х}
 end;
readln
end.