Граф, выполнить графику Опции

[LLIypLLIyH]

Пмогите зделать графику в паскале пожалста

y=|x-30|(в кубе)+40


я не могу понять как там

[volvo]

Показывай программу, которая

полосы рисует левые

... Мне просто интересно, как этого можно добиться...

[LLIypLLIyH]

Показывай программу, которая ... Мне просто интересно, как этого можно добиться...

Код

program g;
Uses Graph,crt;
const
{ OPTIONS }
shag=0.00001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=40;
mtrY=40;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
grMode : Integer;

x,y:real;
i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'E:\bp\bgi');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

x:=lgr;
while x<=pgr do
begin
if x<>0 then begin y:=abs((x-30)*(x-30)*(x-30))+40;
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.

Сообщение отредактировано: LLIypLLIyH - 15.06.2008 12:38