HECZZ
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ЛЮДИ ПЛЗ ПРОВЕРТИ И ЧУТОК ПЕРЕДЕЛАЙТЕ ГРАФИК ПОД ЕТУ ФУНКЦИЮ f(x)=(2x^3-6x^2+5x-1)\(2x^3+6x^2+5+1) ПСК..-Т.П.-НЕОТКРИВАЄТ ГРАФ РЕДАКТОР НА КОМПЕ((( проверите немогу((
Program lab3;
Uses Graph;
const
pi=3.14;
x1=-2*pi;
x2=2*pi;
F=3;
Var x,dx,u,y:real;
mx,my,grD,grM,py,px,i,c,x0,y0:integer;
arctn:real;
s,s1:string;
function arccos(x:real):real;
begin
end;
Begin
grD:=detect;
Initgraph(grD,GrM,'');
X0:=320; y0:=240;
mx:=30; my:=40;
Setlinestyle(0,0,9);
Line(0,y0,630,y0);
Line(x0,10,x0,470);
Setlinestyle(1,0,0);
For i:=1 to 9 do
{Koordunatna reshitka}
begin
Line(10,y0-i*40,630,y0-i*40);
Line(10,y0+i*40,630,y0+i*40);
Line(x0+i*40,10,x0+i*40,470);
Line(x0-i*40,10,x0-i*40,470);
Str(i*f,s);
Str(-i*f,s1);
OuttextXY(320+i*40,230,s);
OuttextXY(320-i*40,230,s1);
OuttextXY(324,240+i*40,s1);
OuttextXY(324,240-i*40,s);
end;
{Grafik}
dx:=0.001;
x:=x1;
while (x<x2) do
begin
y:=;
px:=x0+round(x*mx);
py:=240-((y0+Round(y*my/f))-240);
Putpixel(px,py,13);
x:=x+dx
end;
readln;
end. |
