Умова задачі: Дослідити область визначення і побудувати графік функції Y=3+2/X+3/X2
Алгоритм
1. Ініціалізація графічного режиму
2. Відображення координатних осей, асимптот, надписів.
3. Відображення графіка.
3.1. Перебір точок з абсцисами від лівого до правого кінця екрана
3.2. Визначення масштабу відображення точки на екрані
3.3. Визначення ординати точки
4. Кінець
uses crt,graph; { Підключення модуля GRAPH }
var grDriver,grMode:integer; {Змінні застосовуються процедурою
InitGraph}
x,y:real; { Змінні умови }
i:integer; { Змінна циклу }
function f(x:real):real; {функція , що досліджується}
begin
f:=3+2/x+3/sqr(x);
end;
procedure koordinate; {зображення координатних осей}
begin
setcolor(5); {колір осей червоний}
setbkcolor(15); {колір фону білий}
Line(320,0,320,350); {координатна вісь Х }
Line(0,300,640.300); {координатна вісь Y}
Line(318,10,320.0); {стрілка на осі Y }
Line(322,10,320.0): {стрілка на осі Y }
Line(630,298,640,300); {стрілка на осі Х }
Line(630,302,б40,300); {стрілка на осі Х }
SetLineStyle(DashedLn,0,1); { штрихова лінія }
Line(0.240,640,240); {асимптота графіка}
OutTextXY(310,305,'0'); {надписи на осях}
OutTextXY(310,5,'Y');OutTextXY(630.305.'X');
end;
begin {---------------------головна програма---------------------}
grDriver:=Detect; {визначення номера драйвера }
lnrtGraph(grDriver.grMode,'c:\tp7\bgi');{ініціалізація графічного
режиму}
koordinate; {зображення координатних осей}
for i:=-320 to 320 do begin {зображення графіка}
x:=0.05 *i; { визначити значення абсциси }
{масштаб представлення графіка в системі координат хОу дорівнює
20}
if x<>0 then { область визначення }
begin
y:=f(x); {визначити значення ординати}
PutPixel(round(320+20*x),round(300-20*y),1);
{зобразити піксель в заданих }
end; {координатах синім кольором}
end;
readin; closegraph; { закриття режиму графіки }
end.