@strtohelp

Здравствуйте! Сделал задачу,но не работает предусловие,помогите пожалуйста....





procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToFloat(Edit4.text);
b:=StrTofloat(Edit5.text);Xn:=StrToFloat(Edit1.text);
Xk:=StrtoFloat(Edit2.text);
dx:=StrtoFloat(Edit3.text);
x:=Xn;
while x<=Xk do
begin
if x <=-2 then y:=Sqrt(x)
else y:=Exp(3*ln(X));
end;

Memo1.lines.add(' ' + floattostr(x)+'' +
floattostr(y));
x:=x+dx;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
a:=StrToFloat(Edit4.text);
b:=StrTofloat(Edit5.text);
Xn:=StrToFloat(Edit1.text);
Xk:=StrtoFloat(Edit2.text);
dx:=StrtoFloat(Edit3.text);
x:=Xn;
Repeat
if x <=0.25 then
y:=Xn*Xk*dx
else y:=exp(3*ln(x));
Memo2.lines.add(' ' + floattostr(x)+'' +
floattostr(y));
x:=x+dx
Until x>Xk;
end;
end.



P.S. при нажатии на предусловие зависает. =(

0

@i8085

Ни x, ни Xk в цикле не меняются. Это "вечный цикл".

P.S.
Проявляйте уважение к читающим ваши "творения". Ставьте теги кода и пишите коментарии!

0