Цитата:
Сообщение от Voilett
А вот и я
Уточни плиз, что из себя представляют ислючительные ситуации; пишу пока что без них (скрин приделать не могу, но и так понятно будет).
На форме 3 Edit (для каждой стороны треугольника), Label над каждой(подпись типа к ним) и ещё Label для показа результа или ошибки... и кнопка "посчитать".
Код кнопки:
1. В разделе Var переменные a,b,c,p,s:integer
2. как бы код:
Код:
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
c:=strtoint(Edit3.Text);
p:=(a+b+c)/2;
if p*(p-a)*(p-b)*(p-c)<0 then
label4.caption:='Ошибка, отрицательное число под корнем' {если, конечно, вывод результата в Label4}
else begin
s:=sqrt(p*(p-a)*(p-b)*(p-c));
label4.caption:='Ответ'+s;
end;
Это к первому. Но я не помню уже теорему про стороны, какими они быть не должны, и какой идиот будет вводить в едит "три", а не "3". но если надо то посмотрим) И ещё: точно диалоговые окна отдельные открывать надо? Или всё же можно в Label4 ошибки выводить?
Со вторым посмотрим после ответа на последний мой вопрос про окна
|
Спасибо. Но тут только обработка 1 ошибки Если дискременант<...Там они еще требуют проверку на существование теругольника...Вот Это хз как сделать...
и еще нужно же обработку не верных выражений (a и b и с) не могут быть буквенными.