Помогите с программой для расчета площади треугольника(Delphi)

[indext]

площадь треугольника

p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));

[Stilet]

Может стоит показать что не получается?

[indext]

Сообщение от Stilet

Может стоит показать что не получается?

Я вставил три Edit и одну кнопку Button,потом по клику кнопки делаю проверку на

if (Edit1.Text > 0) or (Edit2.Text > 0) or (Edit3.Text > 0) then do
  begin

и происходят ошибки,не всё знаю просто,что-то не так делаю..подскажите,спасибо

[Dvoishnik]

Сообщение от indext

if (Edit1.Text > 0) or (Edit2.Text > 0) or (Edit3.Text > 0) then do
  begin

дело в в том что вы пытаетесь сравнить разные типы данных
проверку на пустоту Edit можно сделать так

if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') then
begin
код выполняемый если Edit-ы не пуслы
end;

проверка на введенные нули

if (StrToInt(Edit1.Text) <= 0) or (StrToInt(Edit2.Text) <= 0) 
        or (StrToInt(Edit3.Text) <= 0) then
begin
код выполняемый если значение хоть одного Edit-а меньше либо равно нулю
end;

а вообще для работы с числами удобней использовать SpinEdit

[Аватар]

Лучше StrToIntDef(Edit1.Text,0) - и преобразует, и ноль вернет, если что не так в строке

[indext]

Сообщение от Dvoishnik

дело в в том что вы пытаетесь сравнить разные типы данных
проверку на пустоту Edit можно сделать так

if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') then
begin
код выполняемый если Edit-ы не пуслы
end;

проверка на введенные нули

if (StrToInt(Edit1.Text) <= 0) or (StrToInt(Edit2.Text) <= 0) 
        or (StrToInt(Edit3.Text) <= 0) then
begin
код выполняемый если значение хоть одного Edit-а меньше либо равно нулю
end;

а вообще для работы с числами удобней использовать SpinEdit

спасибо,а как мне взаимодействовать с InputBox? такую функцию надо применить (пункты В и Г)

[type_Oleg]

Сообщение от indext

... на существование треугольника;..

 if (a>=(b+c))or(b>=(a+c))or(c>=(a+b)) then
   begin
    ShowMessage('Такого треугольника не бывает');
    Exit;
   end;
 // а здесь всякие вычисления

[indext]

Сообщение от Аватар

Лучше StrToIntDef(Edit1.Text,0) - и преобразует, и ноль вернет, если что не так в строке

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

А как мне взять значения из эдитов чтобы проверить их по кнопке?Присвоить както эдиты к переменным?)

[Dvoishnik]

Сообщение от indext

А как мне взять значения из эдитов чтобы проверить их по кнопке?Присвоить както эдиты к переменным?)

не совсем понял вопрос.
на процедуру

кидаете на форму кнопку кликаете на нее два раза пишете код в получившейся процедуре

procedure TForm1.Button1Click(Sender: TObject);
begin

if (StrToInt(Edit1.Text) <= 0) or (StrToInt(Edit2.Text) <= 0) 
     or (StrToInt(Edit3.Text) <= 0) then
      begin
       код выполняемый если значение хоть одного Edit-а меньше либо равно нулю
      end;

end;

или как предложил более опытный товарищ

procedure TForm1.Button1Click(Sender: TObject);
begin

if (StrToIntDef(Edit1.Text) <= 0) or (StrToIntDef(Edit2.Text) <= 0) 
     or (StrToIntDef(Edit3.Text) <= 0) then
      begin
       код выполняемый если значение хоть в одного Edit-а не корректно   
      end;

end;

Сообщение от indext

спасибо,а как мне взаимодействовать с InputBox? такую функцию надо применить (пункты В и Г)

для в

Edit1.text := InputBox( 'заголовок сообщение', 'сообщение');

или

SpinEdit1.Value := StrToInt(InputBox( 'заголовок сообщение', 'сообщение'));

а для Г можно использовать MessageDlg
http://www.delphibasics.ru/MessageDlg.php

[indext]

Сообщение от Dvoishnik

для в

Edit1.text := InputBox( 'заголовок сообщение', 'сообщение');

или

SpinEdit1.Value := StrToInt(InputBox( 'заголовок сообщение', 'сообщение'));

а для Г можно использовать MessageDlg
http://www.delphibasics.ru/MessageDlg.php

InputBox получается применить,а вот как быть со сторонами треугольника?Как мне по формуле высчитывать через эдиты?Переменные создавать?

и как проверку на треугольник сделать?)