Uses Graph,Crt;

var Xmax,Ymax,Xmin,Ymin,hx,hy,x,y,xx1,xx2,yy1,yy2 : real;

Gd,Gm,xx,yy,mx,my,i,Color,x1,x2,y1,y2 : integer;

s : string[40];

function F(x : real) : real;

begin

F:=sin(10*x*x) {Функция, график которой строим}

end;

begin {Тело программы}

{ Начальные установки =======================================}

Color:=15;

writeln('Введите реальные координаты графика Xmax,Xmin,Ymax,Ymin');

readln(Xmax,Xmin,Ymax,Ymin);

writeln('Введите относительные координаты экрана x1,x2,y1,y2');

readln(xx1,xx2,yy1,yy2);

{Установка графического режима=============================}

Gd:=Detect;

InitGraph(Gd,Gm,'d:\bp\BGI\');