@Kitsune

Нарисовала график, а он получился точками. А надо сплошной линией, как мне сказали.
Сама задача:
На отрезке [0;2] с шагом 0,2 построить таблицу значений для функции F(x)=sqrt(x)/(x+1) и построить её график.

Насчёт "построить таблицу значений" вообще не знаю куда это пихать и где это должно выводится. Но мне хотя бы график нормальный сделать, что для этого изменить вот тут V надо?

Program zz4;
Uses graph;
Var x1,x2,y1,y2,x,y,dx,mx,my:real;
l,b,w,h,x0,y0:integer;
st:string;
grDr,grMode:integer;
function f(x:real):real;
begin

f:=sqrt(x)/(x+1);
end;
begin
grDr:=VGA;grMode:=VGAHi;
InitGraph(grDr,grMode,' ');
l:=40;b:=400;h:=200;w:=200;
x1:=0;x2:=2;dx:=0.2;
y1:=0;
y2:=0;
x:=x1;
Repeat
y:=f(x);
if y<y1 then y1:=y;
if y>y2 then y2:=y;
x:=x+dx;
until (x>=x2);
my:=h/abs(y2-y1);
mx:=w/abs(x2-x1);
x0:=100;y0:=b-abs(Round(y1*my));
line(l,b,l,b-h);
line(x0,y0,x0+w,y0);
line (40,400, 100, 400);
str(y2:5:1,st);
outtextXY(l+5,b-h,st);
str(y1:5:1,st);
OuttextXY(l+5,b,st);
x:=x1;
repeat
y:=f(x);

PutPixel(x0+Round(x*mx),y0-Round(y*my),15);
x:=x+dx;
until(x>=x2);

Readln;
closeGraph;
end.

0

@Archivampire

эм...я в программе не разбирался, но если ты хочешь график сплошной линией, то при построении нужно уменьшить шаг. Скажем до 0,01...тогда программа будет чаще рисовать пиксели, а в таблице значений можешь оставить шаг 0,2

0