Написать программу для построения графика функции - Pascal ABC
Формулировка задачи:
Написать программу для построения графика функции. y=sqrt(2x+6)
Решение задачи: «Написать программу для построения графика функции»
textual
Листинг программы
uses graphABC; var x,mx,my,dx:real; x0,y0,xn,xk,i:integer; begin xn:=-3;xk:=3; x0:=windowwidth div 2; y0:=windowheight-50; mx:=(x0-30)/xk; my:=(y0-30)/sqrt(2*xk+6); line(0,y0,windowwidth,y0); line(x0,0,x0,windowheight); for i:=1 to 2*xk+1 do begin line(x0+round(i*mx/2),y0-3,x0+round(i*mx/2),y0+3); textout(x0+round(i*mx/2),y0+10,floattostr(i/2)); line(x0-round(i*mx/2),y0-3,x0-round(i*mx/2),y0+3); textout(x0-round(i*mx/2),y0+10,floattostr(-i/2)); line(x0-3,y0-round(i*my/2),x0+3,y0-round(i*my/2)); textout(x0-30,y0-round(i*my/2),floattostr(i/2)); line(x0-3,y0+round(i*my/2),x0+3,y0+round(i*my/2)); textout(x0-30,y0+round(i*my/2),floattostr(-i/2)); end; textout(x0+5,y0+10,'0'); textout(windowwidth-20,y0-20,'X'); textout(x0+5,10,'Y'); x:=xn; dx:=0.01; setpencolor(clRed); moveto(x0+round(x*mx),y0-round(sqrt(2*x+6)*my)); while x<=xk do begin lineto(x0+round(x*mx),y0-round(sqrt(2*x+6)*my)); x:=x+dx; end; setfontcolor(clRed); setfontsize(12); textout(20,20,'График функции y=sqrt(2x+6)'); textout(20,40,'на интервале [-3;3]'); end.
Объяснение кода листинга программы
- Используется библиотека graphABC.
- Переменные x, mx, my, dx определены.
- Заданы начальные значения x0, y0, xn, xk, i.
- Вычисляются значения mx и my.
- Строится график функции y=sqrt(2x+6).
- Строятся вертикальные линии для каждого значения i.
- Строятся горизонтальные линии для каждого значения i.
- Выводится текст с значениями i.
- Выводится текст с значениями x и y.
- Вычисляется новое значение x.
- Устанавливается цвет пера в красный.
- Строится линия между текущим значением x и y.
- Устанавливается цвет пера в красный.
- Выводится текст с заголовком графика.
- Выводится текст с заголовком оси X.
- Выводится текст с заголовком оси Y.
- Вычисляется новое значение x.
- Строится линия между текущим значением x и y.
- Устанавливается цвет пера в красный.
- Выводится текст с нулевым значением.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д