график функции...

Program grafik;
Uses Graph;
 
Var GrD,GrM,x0,y0,xl,yl,xr,yr,xgr,xgr1,ygr,ygr1,dygr,i,j,k,l,p,q,s:integer;
y,x,dx1,dx,xmx,xmn,ymx,ymn,mx,my,cx,cy:real;
stl,stlu,strd,stxl,styl,stxr,styr,stF,stxmn,stxmx,stymn,stymx:string;
 
Function F(x:real):real;
Begin
F:=cos(x);
End;
 
Begin
stF:='y=f(x)=cos(x)';
xl:=50;
yl:=50;
xr:=589;
yr:=429;
GrD:=Detect;
InitGraph(GrD,GrM,'c:\BP\BGI');
x0:=GetMaxX;
y0:=GetMaxY;
RestoreCRTMode;
Writeln('MaxX: ',x0,' MaxY: ',y0);
Writeln('Vvedite interval issledovania: ');
 
Repeat
Begin
Readln(xmn);
Readln(xmx);
if xmn>=xmx then
Writeln('Neverno vveden interval!')
end;
Until xmn<xmx;
 
SetGraphMode(GetGraphMode);
dx:=(xmx-xmn)/(xr-xl+1);
x:=xmn;
ymx:=F(x);
ymn:=F(x);
 
{Oblast izmenenia F(x)---}
Repeat
Begin
x:=x+dx;
y:=F(x);
If y>ymx then ymx:=y;
If y<ymn then ymn:=y;
end;
Until x>xmx;
 
{koeff perehoda----------}
x:=xmn;
mx:=(xr-xl)/(xmx-xmn);
cx:=xl-mx*xmn;
my:=(yl-yr)/(ymx-ymn);
cy:=yl-my*ymx;
 
{XoY,--------------------}
k:=0;
j:=0;
y0:=trunc(cy);
x0:=trunc(cx);
if (xmn*xmx)<=0 then
if (x0>xl+5) and (x0<xr-10) then
begin
line(x0,yr+2,x0,yl);
line(x0,yl,x0-4,yl+8);
line(x0,yl,x0+4,yl+8);
OutTextXY(x0+6,yl+2,'Y');
Inc(k);
end;
if (ymn*ymx)<=0 then
if y0<(yr-15) then
begin
inc(j);
line(xr,y0,xl-2,y0);
line(xr,y0,xr-8,y0-4);
line(xr,y0,xr-8,y0+4);
OutTextXY(xr-8,y0+6,'X');
end;
if (k=1) and (j=1) then OutTextXY(x0+3,y0+3,'0');
 
{Chertezh grafika--------}
Repeat
Begin
xgr:=trunc(mx*x+cx);
ygr:=trunc(my*F(x)+cy);
xgr1:=trunc(mx*(x+dx)+cx);
ygr1:=trunc(my*F(x+dx)+cy);
dygr:=ygr1-ygr;
if (dygr>1) or (dygr<-1) then line(xgr,ygr,xgr1,ygr1);
PutPixel(xgr,ygr,white);
x:=x+dx;
end;
until x>xmx;
{obrabotka---------------}
Rectangle(xl-2,yl-2,xr+2,yr+2);
str(xmn:5:2,stxmn);
str(xmx:5:2,stxmx);
str(ymn:6:3,stymn);
str(ymx:6:3,stymx);
str(xl,stxl);
str(yl,styl);
str(xr,stxr);
str(yr,styr);
{---delete probel & lishnie nuli---}
i:=0;
Repeat
Begin
i:=pos(' ',stxmn);
if i>0 then delete(stxmn,i,1);
end;
Until i=0;
Repeat
Begin
i:=pos(' ',stxmx);
if i>0 then delete(stxmx,i,1);
end;
Until i=0;
Repeat
Begin
i:=pos(' ',stymn);
if i>0 then delete(stymn,i,1);
end;
Until i=0;
Repeat
Begin
i:=pos(' ',stymx);
if i>0 then delete(stymx,i,1);
end;
Until i=0;
 
j:=0;
i:=length(stxmn);
q:=Pos('.',stxmn);
if q<>0 then
for j:=q to i do
begin
stl:=stxmn[j];
if stl<>'0' then s:=j+1;
end;
delete(stxmn,s,i-s+1);
i:=length(stxmn);
if stxmn[i]='.' then delete(stxmn,i,1);
 
j:=0;
i:=length(stxmx);
q:=Pos('.',stxmx);
if q<>0 then
for j:=q to i do
begin
stl:=stxmx[j];
if stl<>'0' then s:=j+1;
end;
delete(stxmx,s,i-s+1);
i:=length(stxmx);
if stxmx[i]='.' then delete(stxmx,i,1);
 
j:=0;
i:=length(stymn);
q:=Pos('.',stymn);
if q<>0 then
for j:=q to i do
begin
stl:=stymn[j];
if stl<>'0' then s:=j+1;
end;
delete(stymn,s,i-s+1);
i:=length(stymn);
if stymn[i]='.' then delete(stymn,i,1);
 
j:=0;
i:=length(stymx);
q:=Pos('.',stymx);
if q<>0 then
for j:=q to i do
begin
stl:=stymx[j];
if stl<>'0' then s:=j+1;
end;
delete(stymx,s,i-s+1);
i:=length(stymx);
if stymx[i]='.' then delete(stymx,i,1);
{----------------------}
 
stlu:='('+stxl+';'+styl+')'+' '+stF+' '+stxmn+'<x<'+stxmx+' ; '+stymn+'<y<'+stymx;
strd:='('+stxr+';'+styr+')';
 
OutTextXY(xl-29,yl-15,stlu);
OutTextXY(xr-32,yr+9,strd);
Readln;
CloseGraph;
 
End.

uses graph;
var gd,gm:integer;
    x0,y0:integer;
    y,x,dx:real;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
line(10,y0,630,y0);
outtextXY(625,y0+10,'X');
line(x0,0,x0,460);
outtextXY(x0+5,0,'Y');
outtextXY(x0+5,y0+10,'0');
line(x0-3,y0-100,x0+3,y0-100);
outtextXY(x0+5,y0-100,'5');
line(x0-50,y0-3,x0-50,y0+3);
outtextXY(x0-50,y0+10,'-2.5');
x:=-20;
dx:=0.001;
while x<=20 do
 begin
  y:=ln(x);
  putpixel(x0+round(x*20),round(y0-round(y*20)),12);
  x:=x+dx;
 end;
readln;
closegraph;
end.