Ошибка exitcode=201

[asu777]

Нады сделать график функции на free паскале y=a*tan(x)+b,где а и b задает пользователь)))

вот код программы
uses graph,crt;
const
x1=-7;
x2=7;
var
mx,my,a,x,dx,y1:real;
x0,y0,grD,px,py,grM,i,k:integer;
s,s1:string;
A1,B1: Integer;


begin
clrscr;
WriteLn('vvedite a & b: ');
Readln(a1,b1);


grD:=detect;
initgraph(grM,grd,'');
X0:=getmaxX div 2;
Y0:=getmaxY div 2;

mx:=640/(x2-x1);
my:=480/(2*1.5*sin(1)/cos(1));
SetBkColor(7);
setlinestyle(0,0,1);
SetColor(1);
line(0,y0,getmaxX,y0);
line(x0,getmaxy,x0,0);
setlinestyle(1,0,0);
Setcolor(9);
for i:=1 to 7 do
begin
line(10,y0-round(i*my),630,y0-round(i*my));
line(10,y0+round(i*my),630,y0+round(i*my));
line(x0+round(i*mx),0,x0+round(i*mx),getmaxY);
line(x0-round(i*mx),0,x0-round(i*mx),getmaxY);
str(i,s);

outtextXY(x0-10,y0-round(i*my),s);
outtextXY(x0-15,y0+round(i*my),'-'+s);

str(i,s);
outtextXY(x0+round(i*mx),y0+10,s);
outtextXY(x0-round(i*mx),y0+10,'-'+s);
end;

outtextXY(x0+5,y0+10,'0');

outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
dx:=0.001;


x:=x1;

while x<=x2 do begin
px:=x0+round(x*mx);
if abs(cos(x))>0.001 then begin
y1:= A1 * (sin(x)/cos(x)) + b1;
py:=y0-round(y1*my);
putpixel(px,py,4);
end;
x:=x+dx;
end;
Readkey;
end.


Программа запускается, вожу а и б,график появляется и через сикунду выдает ошибку 201)))
Кто знает в чём дело))?

[Vadim]

Ошибка 201 - это значит, что Вы пытаетесь засунуть число туда, куда оно уже не влазиет. Например есть массив из 10 ячеек, а Вы пытаетесь засунуть число в 11-ую ячейку. Либо у Вас объявлена переменная типа BYTE и в неё Вы пытаетесь засунуть число 256.
Ищите...

[asu777]

Вроде как всё правильно немогу найти ошибку

[vada]

putpixel(px,py,4);
Вычисление my какое-то стремное.
Запростяк мимо экрана можно попасть.

[Maxizar]

Повтор, даже задача одинаковая построить график функции.. у вас даже темы совпадают.... Надо свою тему создать с таким же содержанием
Но если по делу:
1 - пользуйтесь Тэгами [сode][/code], для помещения исходников (кода).
2 Ответ можно найти тут:ExitCode = 201, там же можно найти рабочую программу, в которую нужно будет засунуть вашу функцию и считать....