Графика в системе PascalABC - 11 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

13
{ Выводятся оси }
if ymin*ymax < 0 then
begin
oy:=pry(0);
Line(x0,oy,xW,oy);
TextOut( xW-15,oy+10,'Ox')
end;
if a*b < 0 then
begin
ox:=prx(0);
Line(ox,y0,ox,yH);
TextOut( ox+10,y0+15,'Oy')
end;
x:=a;y:=f(a);
xgp:=prx(x); ygp:=pry(y);
for i:=1 to n do
begin
x:=x+h; y:=f(x);
xg:=prx(x); yg:=pry(y);
Line(xgp,ygp,xg,yg);
xgp:=xg; ygp:=yg
end;
end;
begin
n:=50;
write ('Введите концы отрезка a..b ');
readln(a,b);
GrFunc(a,b,n)
end.

Страницы