Паскаль График

[Igomax]

Построить график функции, указав на графике координаты всех экстремумов. Построить график первой производной функции

y=cos(x)/(1+sin(x))

Метод касательных (Ньютона)

Как строить?

[Desha]

Могу только предложить для примера такой график

uses graph;

var
x,y: integer;
gd,gm:integer;
gp:string;
errcode:integer;
i,n,k:integer;
a:string;
sn:real;

Begin
gd:=vga;
gm:=vgahi;
gp:='c:\bp\bgi';
initgraph(gd,gm,gp);
errcode:=graphresult;
if errcode <>grok then
   begin
   writeln('Error!!');
   readln;
   halt(1);
   end;

setcolor(8);
moveto(1,0);
x:=1;
y:=480;
while x<638 do
      begin
      lineto(x,y);
      x:=x+20;
      moveto(x,0);
      lineto(x,y);
      end;

moveto(1,1);
y:=1;
x:=638;
while y<478 do
      begin
      lineto(x,y);
      y:=y+20;
      moveto(1,y);
      lineto(x,y);
      end;






setcolor(10);
setlinestyle(0,0,2);
{y}
moveto(321,239);
lineto(321,41) ;
moveto(321,239);
lineto(321,441);
{x}
moveto(321,121);
lineto(21,121) ;
moveto(321,121);
lineto(621,121);

k:=14*(-1);
x:=28;
while x<620 do
      begin
           str(k,a);
           outtextxy(x,128,a);
           k:=k+2;
           x:=x+40;
      end;

k:=4;
y:=48;
while y<430 do
      begin
           str(k,a);
           outtextxy(308,y,a);
           k:=k-2;
           y:=y+40;
      end;

outtextxy(10,10,'2*sin(X)-5');
      {grafik}
moveto(35,190);
setlinestyle(0,0,2);
setcolor(15);
for  i:=0 to 550 do
     begin
     sn:=sin(i*4*pi/420);
     k:=round((getmaxy div 4-55)*sn);
     lineto(i+58,getmaxy div 2+k+5);
     end;
readln;
closegraph;
End.