Для выполнения третьего задания используйте пример программы, приведенный ниже

При отображении графика функции на экране необходимо выполнить переход от локальной системы координат в систему координат экрана, а так же во избежание помех рассчитать граничные значения Х, при которых Y начинает выходить за пределы экрана.

uses graph;

var dr,mode,errcode:integer; x,y,x1,y1,cx,cy,xg:integer;

Begin

dr:=detect;

initgraph(dr,mode,'c:\bp\bgi');

errcode:=graphresult;

IF errcode=grok THEN {uspeshno}

Begin

cx:=round(getmaxx/2);cy:= round(getmaxy/2);

line(0,cy,getmaxx,cy);

line(cx,0,cx,getmaxy);

 xg:=round(sqrt(20*(getmaxy-cy)));

for x:=-xg to xg do

begin

x1:=x+cx;

y:=sqr(x);

y1:=getmaxy-round(y/20+cy);

circle(x1,y1,2);

end;

settextstyle(0,0,2);

outtextxy(180,350,'grafik function y=sqr(x)'); readln;

closegraph;

End

ELSE WRITELN(' ERROR GRAPH' );

end.

Варианты заданий:

1. Y:=A*LN(X);

2. Y:=A*SIN(X);

3. Y:=A*EXP(X);

4. Y:=A*X*X+B*X+C

5. Y:=A*TG(X);

6. Y:=A*ARCTG(X);

7. Y:=A*X^N+C, N=1

8. Y:=A*X^N+C, N=2

9. Y:=A*X^N+C, N=3

10. Y:=A*X^N+C, N=4

 

Значения a, b,c, - произвольные.

 

---

Дата добавления: 2019-02-12; просмотров: 109; Мы поможем в написании вашей работы!

Поделиться с друзьями:

---

---

Мы поможем в написании ваших работ!