Построить график функции y = x^2 на отрезке [a, b]. (программа Паскаль)
Вопрос посетителя
Построить график функции y = x^2 на отрезке [a, b].
Ответ эксперта
Uses crt, graf;
Var gD, gM, n: integer;
a, b: real;
function f (x: real) : real;
Begin
f:= x*x
End;
Procedure graf (x0, x1, y0, y1, n: word; a, b: real);
Var h, m, x, t1, t2 :real;
i, u, v, xv, yv: word;
begin
h:= (b-a)/n; {Нахождение шага разбиения}
m:= abs(f(a)); {Поиск значения функции в левом конце отрезка}
t1:= (x1-x0) / (b-a); t2:= (y1-y0) / (2*m);
{Построение координатных осей}
setfillstyle (1,15); bar( x0-5, y0-5, x1+5, y1+5);
xv:= round(x0-a*t1); yv:= round((t0+y1) / 2);
line (x0, yv, x1, yv);
{Установка текущего курсора в начало графика}
Moveto (x0, yv-round (f (a)*t2);
{Построение графика}
Setcolor (3);
For i:= 1 to n do
Begin
x:= a+i*h; u:= x0+round ( (x-a)*t1);
v:= yv:= round (f (x)*t2); lineto (u, v);
end;
end; {Конец процедуры}
begin
clrscr; readln (a, b, n); gD:= Detect;
Initgraph (gD, gM, ‘’);
graf (100, 500, 50, 300, n, a, b);
Readln; Closegraph
end.
