Привет мыслителям!

Прошлую домашку я сделал через lineto,moveto и в общем-то получилось и сдал нормально...

Теперь задали написать график функции:

корень из х, если х>0.0
F(x)=sin(x), если -pi<=x<=0.0

1/(x-1/x), если x<-1

Я тут попробовал написать, можете проверить? Когда я запускаю проект, то ничё не происходит, т.е. окно, где должен быть график, просто закрывается и всё... Вот текст:

var
x,y:real;
i:integer;
st:string;
begin
x:=-5;
repeat
for i:=0 to Chart1.Width do
begin
if (x>0) then y:=Sqrt(x)
else
if x<-pi then y:=1/(x-1/x)
else
y:=sin(x);
x:=x+0.1;
series1.AddXY(x,y);
end;
until x=5;
end;

Спасибо большое, что помогаете студентам! =)

измени условие выхода на x>=5 т.к.если используешь вещественные числа, то равенства может и не наступить
не совсем понял смысл цикла for i:=0 to Chart1.Width do

Все верно
Тоже самое, но через while будет поприятнее, да и until бы лучше написал x>5
Var
x,y: real;
i: word;
begin
x:=-5;
while x<=5 do
begin
if x<-pi then y:=1/(x-1/x) else
if x>0 then y:=Sqrt(x) else
y:=sin(x);
x:=x+0.1;
series1.AddXY(x,y);
end;
end;