[Помогите!] Квадратный корень в калькуляторе

[KASTEIL]

procedure TForm1.Button19Click(Sender: TObject);
var a:real;
begin
a:=strtofloat(edit1.text);
Edit1.Text:=(FloatToStr(Sqrt(a)));

Так я описал квадратный корень, а как сделать что бы он выводил сообщение 'невозможно использовать при отрицательных числах' при "a" отрицательном?

[Sinyss]

Цитата: Сообщение от KASTEIL Так я описал квадратный корень, а как сделать что бы он выводил сообщение 'невозможно использовать при отрицательных числах' при "a" отрицательном?

[Ссылки могут видеть только зарегистрированные пользователи. ]

[metraz]

procedure TForm1.Button19Click(Sender: TObject);
var a:real;
begin
a:=strtofloat(edit1.text);
if a<0 then begin
showmessage('невозможно использовать при отрицательных числах');
exit;
end
else
Edit1.Text:=(FloatToStr(Sqrt(a)));
end;

[Sinyss]

Цитата: Сообщение от metraz exit;

разве он необходим?

[Relli]

Цитата: Сообщение от Sinyss разве он необходим?

ну я бы написал уже машинально)
Вдруг у парня дальше код будет,а так - это ему на заметку.

[Skrillex3]

Цитата: a:=abs(a);

как вариант , если условие задачи ограничено тем что ввод отрицательно числа не возможен то лучше выдавать ошибку , а если нет то так