Построить график функции - Pascal (80634)

Узнай цену своей работы

Формулировка задачи:

Найти область определения функции D(f), ее нули, экстремумы и множества значений W(f). Построить график функции, нарисовав и разметив оси координат. (В паскале). y=1/(1+x^2)

Решение задачи: «Построить график функции»

textual
Листинг программы
uses graphABC;
function f(x:real):real;
begin
f:=1/(1+x*x);
end;
const
x1=-5;//начало и конец графика в реальных значениях
x2=5;
var mx,my,x,dx:real;
    x0,y0,i:integer;
begin
x0:=Window.Width div 2;//начало координат в центре экрана
y0:=Window.Height-50;
mx:=(x0-20)/x2;//масштаб по Х
my:=y0-20;//масштаб по Y
line(0,y0,2*x0,y0); //оси
line(x0,0,x0,y0);
for i:=1 to 10 do //максимальное количество засечек в одну сторону
 begin
  line(x0-3,y0-round(i*my/10),x0+3,y0-round(i*my/10));//засечки на оси У
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); //засечки на оси Х
  line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
  //подпись оси У
  textout(x0-25,y0-round(i*my/10),floattostr(i/10));//оответственно засечкам
  //подпись оси Х}
  textout(x0+round(i*mx),y0+10,inttostr(i));
  textout(x0-round(i*mx),y0+10,inttostr(-i));
 end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(2*x0-20,y0-20,'X');
textout(x0+5,10, 'Y');
dx:=0.1;
//график
Pen.Color:=clBlue;
x:=x1;
while x<=x2 do
 begin
  if x=x1 then moveto(x0+round(x*mx),y0-round(f(x)*my))
  else lineto(x0+round(x*mx),y0-round(f(x)*my));
  x:=x+dx; //наращиваем х
 end;
Font.Color:=clBlue;
Font.Size:=12;
textout(20,20,'ОДЗ вся числовая ось');
textout(20,50,'Нулей функции нет');
textout(20,80,'Максимум в точке х=0 y=1');
textout(20,110,'Множество значений (0..1]');
end.

Объяснение кода листинга программы

  1. Объявление функции f(x), которая возвращает значение real, и присваивание ей выражения 1/(1+x*x)
  2. Объявление констант x1 и x2, которые устанавливают начальное и конечное значение графика функции
  3. Объявление переменных mx, my, x, dx и x0, y0, i с типами real и integer соответственно
  4. Вычисление начальных значений x0 и y0 для отображения графика
  5. Рисование осей координат с учетом масштаба по X и Y, а также засечек и подписей к осям
  6. Рисование оси X и Y, подписей к засечкам и координат центра
  7. Выбор цвета ручки для рисования графика (синий)
  8. Начало построения графика, устанавливая начальную точку moveto и последующие точки lineto с шагом dx
  9. Добавление текстовой информации на графике, включая область допустимых значений, наличие нулей функции, максимум и множество значений. Этот код строит график функции f(x) и добавляет информацию о ней на графике.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.286 из 5
Похожие ответы