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

UptoLike

ВУЗ: 

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

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

Рубрика: 

12
while x<b+h/2 do
begin
y:=F(x);
if y < ymin then
ymin:=y;
if y > ymax then
ymax:=y;
x:=x+h
end
end;
procedure GrFunc(a,b:real;n:integer);
var ymin,ymax x,y,h,Mx,My: real;
xg,yg,xgp,ygp,ox,oy,
x0,y0,xW,yH,i: integer;
function prx(x:real):integer;
begin
prx:=round(x0+(x-a)*Mx)
end;
function pry(y:real):integer;
begin
pry:=round(y0+(ymax-y)*My)
end;
begin
h:=(b-a)/n; MaxMin(a,b,h,ymin,ymax);
x0:=0; xW:=WindowWidth;
y0:=0; yH:=WindowHeight;
Mx:=(xW-x0)/(b-a);
My:=(yH-y0)/(ymax-ymin);

Страницы