Построить график функции

Помогите построить график функции:

sin (x2 + 1), x>1
у =
|cos x - 1|, x<1

0

uses graph,crt;
var
x,dx,y,ot,x1,x2:real;
x0,y0,px,py,Mode,DriveD,i,k:integer;
s:string;

procedure grafic;
BEGIN
setcolor(6);
line(0,y0,GetMaxX,y0);
line(x0,0,x0,GetMaxY);
for i:=x0 to getMaxX do
begin
if ((i-x0)mod 60=0)and(i-x0>59) then begin k:=k+1;
line(i,y0-5,i,y0+5); str(k,s); outtextxy(i-3,y0+7,s); end;
if ((i-x0)mod 30=0)and(i-x0>29) then
line(i,y0-3,i,y0+3);
end;
K:=0;
for i:=x0 downto 0 do
begin
if ((x0-i)mod 60=0)and(x0-i>59) then begin k:=k+1;
line(i,y0-5,i,y0+5); str(k,s); outtextxy(i-7,y0+7,'-'+s); end;
if ((x0-i)mod 30=0)and(x0-i>29) then
line(i,y0-3,i,y0+3);
end;
END;
var
f:text;

begin
writeln('Vvedite "X1" and "X2" posledovatelno MAX=[0,1]');
readln(x1);
readln(x2);
clrscr;
DriveD:=detect;
InitGraph(Mode,DriveD,'');
x0:=GetMaxX div 2;
y0:=GetMaxY div 2;
writeln(x0,'-----',y0);
grafic;
readkey;
x:=x1;
dx:=0.0001;
px:=x0+round(x*60);
setcolor(15);
setlinestyle(3,0,2);
line(px,0,px,GetMaxY);
while x<x2 do
begin
delay(10);
px:=x0+(round(x*60));
y:=cos(x)-(sqrt(1*3*x*x*x));{---------------------------------------------------------}
py:=y0-(round(y*10));
if py=y0 then begin ot:=x; putpixel(px,py,Green); end else
putpixel(px,py,4);
x:=x+dx;
end;
setcolor(15);
setlinestyle(3,0,1);
line(px,0,px,GetMaxY);
str(ot:0:4,s);
setcolor(Green);
outtextxy(2,2,'OTBET = '+s);

readln;
closeGraph;
end.
переделай

1

А что имменно переделать,сделай пожалуйста как надо а то я не понимаю в Pascal.

0

вставь свою функцию

1

Ну сделай как надо пожалуйста я не понимаю в PAscal вообще(((

0