График Опции

[Aurora]

Как составить блок-схему для графика y=ctg(x);
uses graph,crt;
Const
Step=0.0001; {shag izmeneniya x}
x1=-30; {nach. znachenie x}
x2=30; {konechnoe znachenie x}
ZcrtX=320; {koord. x centra ekrana}
ZcrtY=240; {koord. y centra ekrana}
mX=20; {koord. masshtabirovaniya po osi x}
mY=20; {koord. masshtabirovaniya po osi y}
ColorG=14; {cvet grafika}

var
driver,mode,error:integer;
x,y:real;
i:integer;
Begin
Driver:=Detect;
Initgraph(Driver,Mode,'c:\TP6\BGI');
Error:=GraphResult;
if error<>grok then Writeln(GraphErrorMsg(Error))
else
Begin
SetBkColor(blue);
SetLineStyle(SolidLn,0,ThickWidth);
SetColor(5);
OutTextXY(322,243,'0');
OutTextXY(GetMaxX-10,ZcrtY+10,'X');
OutTextXY(ZcrtX+10,3,'Y');
SetColor(Green);
Line(0,ZcrtY,GetMaxX,ZcrtY);
Line(GetMaxX-4,ZcrtY+5,GetMaxX,ZcrtY);
Line(GetMaxX-4,ZcrtY-5,GetMaxX,ZcrtY);
Line(ZcrtX-1,0,ZcrtX-1,GetMaxY);
Line(ZcrtX-6,5,ZcrtX-1,0);
Line(ZcrtX+3,5,ZcrtX-1,0);
x:=x1;
while x<=x2 do
Begin
{Readln(x)}
if x<>0 then
Begin
y:= cos(x)/sin(x);
PutPixel(ZcrtX+trunc(x*mX),ZcrtY-trunc(y*mY),colorG);
end;
x:=x+Step;
end;
end;

CloseGraph;

end.