Developing.ru

Код: Выделить всё

program graffunc;
uses Graph,dos,crt;
var
 x1,x2,y1,y2,x,y:real;
 dx,mx,my:real;
 l,b,w,h,x0,y0:integer;
 st:string;
 grdriver:integer;
 grmode:integer;
 errcode:integer;
function f(x:real):real;
begin
 f:=(ln(x))/x;
end;

begin
 writeln('grafik fynction1');
 grdriver:=vga;
 grmode:=vgahi;
 initgraph(grdriver,grmode,'e:\tp\bgi');
 errcode:=graphresult;
 if errcode<>grok then halt(1);
 l:=40;
 b:=400;
 h:=200;
 w:=200;
 x1:=0;
 x2:=25;
 dx:=0.01;
 y1:=f(x1);
 y2:=f(x2);
 x:=x1;
 repeat
  y:=f(x);
  if y<y1 then y1:=y;
  if y>y2 then y2:=y;
  x:=x+dx;
 until (x>=x2);
 my:=h/abs(y2-y1);
 mx:=w/abs(x2-x1);
 x0:=l;
 y0:=b-abs(round(y1*my));
 line(l,b,l,b-h);
 line(x0,y0,x0+w,y0);
 str(y2:5:1,st);
 outtextXY(l+5,b-h,st);
 str(y1:5:1,st);
 outtextXY(l+5,b,st);

 x:=x1;
 repeat
  y:=f(x);
  putpixel(x0+round(x*mx),y0-round(y*my),15);
  x:=x+dx;
 until (x>=x2);
 readln;
 closegraph;
 
end.