program Graphique2;
uses
crt, Graph;
CONST
ox=639;
oy=400;
unitx=100;
unity=100;
h=0.001;
VAR
GraphPilote, GraphMode : INTEGER;
y : real;
stop,x, Xmin, Xmax : real;
i,k : integer;

procedure Point(x,y:real);
VAR
a, b : integer;
begin;
  a:= round(ox+unity*x);
  b:= round(oy-unity*y);
  moveto(a,b);
  lineto(a,b);
end;

procedure Axes;
var
px,py:real;
begin;
  px:=-50;
  py:=-50;
  repeat
    px:= px+h;
    py:= py+h;
    point(px,0);
    point(0,py);
  until px>50;
end;



procedure Tics;
var
j : integer;
tx , ty : real;
begin;
for j:= -100 to 100 do
begin;
tx:= 0;
ty:= 0;
repeat
tx := tx+h;
point(0.1*j,tx);
ty := ty+h;
point(ty,0.1*j);
until tx > 0.05;
end;
end;

procedure GrosTics;
var
j : integer;
tx , ty : real;
begin;
for j:= -3 to 3 do
begin;
tx:=0;
ty:=0;
repeat
tx := tx+h;
point(j,tx);
ty := ty+h;
point(ty,j);
until tx > 0.1;
end;
end;


Procedure Fond;
var
i : integer;
begin;
setcolor(7);
for i:=1 to 2000 do
begin;
moveto(i,0);
lineto(i,2000);
end;
end;

function f(x : real):real;
begin;
f:= cos(x);
end;

procedure graff(Xmin, Xmax: real);
var
xx : real;
begin
xx:= Xmin;
repeat
  xx:= xx+h;
  point(xx, f(xx));
until xx > Xmax;
end;

Begin

  GraphPilote := Detect;
  InitGraph(GraphPilote, GraphMode, '');
  Fond;
  repeat
    write('Choisissez une couleur sauf gris (7) = ');
    readln(i);
    setcolor(i);
    write('La valeur de Xmin= ');
    readln(Xmin);
    write('La valeur de Xmax= ');
    readln(Xmax);
    Graff(Xmin , Xmax );
    Tics;
    GrosTics;
    Axes;
    write('Voulez vous continuer ? Si Oui tapez 1, si Non tapez 2');
    readln(k);
    writeln('');
  until k=2;



end.







      readln;

end.