графік функції

[Sonne_asja]

написати програму побудови графіка функції у=х*sqrt(2-sqr(x))
xє[-sqrt(2); sqrt(2)]

[Sonne_asja]

Program Grafik;
uses crt, graph;
Var dr, mode : integer;
scale : real;
cx, cy : integer; {center}
{-----------------------------------------------------------}
function f(x : real) : real;
begin
f := x*sqrt(2-sqr(x));
end;

{-------------------------------------------------------------}
procedure axes;
begin
SetColor(1);
Line(cx, 0, cx, GetMaxY); {OY}
Line(0, cy, GetMaxX, cy); {OX}
{arrow X,Y}
Line(GetMaxX-10, (cy)-5, GetMaxX, cy);
Line(GetMaxX-10, (cy)+5, GetMaxX, cy);

Line(cx, 0, (cx)-5, 10);
Line(cx, 0, (cx)+5, 10);
{title}
OutTextXY(GetMaxX-10, cy+20, 'X');
OutTextXY(cx+10, 10, 'Y');
end;
{--------------------------------------------------------------------------}
procedure graduir;
var i, j : real;
s : string[7];
begin
SetColor(1);
j := 0; {0}
{--------------------------graduir OX-------------------------}
repeat
i := cx+(-j)*scale;
Line(round(i), cy-5, round(i), cy+5);
if j<>0 then {not 0}
begin
str(-j:6:2, s);
OutTextXY(round(i)-10, cy+10, s);
end;
i := cx+j*scale;
Line(round(i), cy-5, round(i), cy+5);
if j<>0 then
begin
str(j:6:2, s);
OutTextXY(round(i)-10, cy+10, s);
end;
j := j+2;
until j = 10;
{--------------------------graduir OY------------------------}
j:= 0;
repeat
i:= cy - j*scale;
Line(cx+3, round(i), cx-3, round(i));
if j<>0 then
begin
str(j:4:1, s);
OutTextXY(cx+15, round(i)-2, s);
end;
i:= cy+j*scale;
Line(cx+3, round(i), cx-3, round(i));
if j<>0 then
begin
str(-j:4:1, s);
OutTextXY(cx+15, round(i)-2, s);
end;
j := j+1;
until j = 8;
end;
{--------------------------------------------build_graph-----------------------------------------------}
procedure build_graph;
var x0, y0, x1, y1 : integer; {}
x : real;
begin
for x0 := 0 to GetMaxX do {}
begin
x := (x0-cx)/scale; {}
y0 := round(cy-scale*f(x));
if x0>0 then
Line(x0, y0, x1, y1); {}
x1 := x0; {}
y1 := y0;
end;
end;
{--------------------------------------------main prog----------------------------------------------}
begin
dr:= Detect; {визначити драйвер автоматично}
InitGraph(dr, mode, '..\bgi'); {ініціалізація графічного режиму}
cx := GetMaxX div 2; {визначити координати центру екрану}
cy := GetMaxY div 2;
SetBkColor(15); {вибір кольору фону}
SetColor(1); {вибір кольору}
OutText('input scale (20..100): ');
gotoxy(27, 1);
read(scale); {ввести масштаб}
ClearDevice; {очистити екран}
axes; {зобразити осі координат}
graduir; {розмітити осі}
OutTextXY(10, 30, ' x*sqrt(2-sqr(x)); {вивести напис}
build_graph; {зобразити графік}
{closegraph;}
readkey
end.

[Sonne_asja]

вот я код написала но только с межами проблема(( если с ними то не работает,
а если без них то "-" в функции не может быть((( зато с "+" в функции работает

[Sonne_asja]

Сообщение от Sonne_asja

вот я код написала но только с межами проблема(( если с ними то не работает,
а если без них то "-" в функции не может быть((( зато с "+" в функции работает

подскажите как правильно єти границы организовать?

[Sonne_asja]

нужен свежийвзгляд!!!!

[Alex11223]

Кто такие "межи"? Можно хоть на русский перевести?)

[Sonne_asja]

написать график функции у=х*sqrt(2-sqr(x))
xє[-sqrt(2); sqrt(2)]
межі - область значения х(xє[-sqrt(2); sqrt(2)])

[Sonne_asja]

Сообщение от Sonne_asja

написать график функции у=х*sqrt(2-sqr(x))
xє[-sqrt(2); sqrt(2)]
межі - область значения х(xє[-sqrt(2); sqrt(2)])

если еще что то не понятно пишите