Построение графика

setviewport

program lb10;
uses graph, crt;
const a=0; b=2*pi; h=0.1; h1=20; x0=60; y0=240; m=50;
var driver, d2, mode, x1, y1: integer;
    x,y:real;
 function f(x:real):real;
 begin
 f:=exp(-x)*sin(8*x)+1;
 end;
begin clrscr;
driver:=detect;
initgraph(driver,mode,'C:\TP7\TP\BGI');
setviewport(600,600,800,800,clipoff);
setcolor(5);
line(20,y0,600,y0);
line(x0,440,x0,20);
x:=a; x1:=x0+trunc(m*x);
y:=f(x); y1:=y0-trunc(m*y);
moveto(x1,y1);
while x<=6 do begin
y:=f(x); y1:=y0-trunc(m*y);
lineto(x1,y1);
x1:=x1+h1; x:=x+h;
end;
outtextxy(200,320,'GRAFIK ');
end.

  mm=2;

for i:=1 to vwx do begin

uses graph;
function f(x: Real): Real;
begin
  f:=exp(-x)*Sin(8*x)+1;
end;
const
  vx1=40; vy1=100; vx2=200; vy2=200;
  vwx=vx2-vx1; vwy=vy2-vy1+1;
  xmn=0.1; xmx=2.1; mx=(xmx-xmn)/vwx;
var
  my,x,y,ymn,ymx,xn,xm,mm:Real;
  i,gd,gm,gr,x0,y0:Integer;
  s:string;
begin
  gd:=Detect; InitGraph(gd,gm,''); gr:=GraphResult;
  if gr<>0 then begin
    WriteLn('*** Error: ',GraphErrorMsg(gr)); Halt(1);
  end;
 
  SetFillStyle(SolidFill,White); Bar(vx1,vy1,vx2,vy2);
  SetViewPort(vx1,vy1,vx2,vy2,ClipOn);
  ymn:=Ln(f(xmn)); ymx:=ymn;
  setcolor(8);
  x0:=20;
  y0:=80;
  xm:=130/xmx;
  mm:=60/f(0.2);
  line(20,80,200,80);
  line(20,0,20,200);
  for i:=1 to 2 do{максимальное количество засечек в одну сторону}
  begin
   line(x0-3,y0-round(i*mm),x0+3,y0-round(i*mm));{засечки на оси У}
   {подпись оси У}
   str(i,s);
   outtextXY(x0-15,y0-round(i*my),s);{соответственно засечкам}
   line(x0+round(i*xm),y0-3,x0+round(i*xm),y0+3); {засечки на оси Х}
   {подпись оси Х}
   outtextXY(x0+round(i*mx),y0+10,s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(150,y0-10,'X');
outtextXY(x0+5,0,'Y');
setcolor(12);
  for i:=1 to vwx do begin
    y:=Ln(f(xmn+i*mx));
    if ymx<y then ymx:=y;
    if ymn>y then ymn:=y;
  end;
  my:=vwy/(ymx-ymn);
  MoveTo(0,Round(vwy-(Ln(f(xmn))-ymn)*my));
  for i:=1 to vwx do begin
    x:=i; y:=Ln(f(xmn+x*mx))-ymn;
    LineTo(i,Round(vwy-y*my));
  end;
  setcolor(12);
  Write('Press Eneter...'); ReadLn;
  CloseGraph;
end.

i:=Round(vwy+ymn*my); Line(0,i,vwx,i); {0=Ln(1)}

  i:=Round(vwy+ymn*my); Line(0,i,vwx,i); {0=Ln(1)}
  for j:=1 to 2 do Line(Trunc(j*mx-xmn),i-2,Trunc(j*mx-xmn),i+2);