@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. при нажатии на предусловие зависает. =(

Вернуться к обсуждению:
Задача на Предусловие,постусловие Delphi

0