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

UptoLike

ВУЗ: 

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

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

Рубрика: 

11
Для определения графических координат x
g
и y
g
можно воспользоваться
следующими формулами преобразования:
x
g
= round (x
0
+(x–a)*Mx),
где x∈[a, b], Mx=(x
W
– x
0
)/(b – a),
x
0,
x
W
– графические координаты границы рисунка графика;
y
g
= round(y
0
+(y
max
–y)*My),
где y∈[y
min
, y
max
], My=(y
H
– y
0
)/(y
max
– y
min
),
y
0
, y
H
– графические координаты границы рисунка графика;
round (X)
– функция округления вещественного X до ближайшего целого.
Координаты x
0
, x
W
, y
0
, y
H
могут быть установлены равными соответственно
0, W, 0, H – в этом случае график займет все графическое окно. Можно устано-
вить значения x
0
, x
W
, y
0
, y
H
такими, чтобы вокруг графика были отступы опреде-
ленного размера.
program Graf_2;
uses GraphABC;
var a, b: real;
n: integer;
function F(x:real):real;
begin
F:= x*x-4*abs(x)+3
end;
procedure MaxMin(a, b, h: real; var ymin, ymax: real);
var x,y:real;
begin
ymin:=F(a); ymax:=ymin;
x:=a;

Страницы