|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.04.2013, 16:09 | #1 |
Пользователь
Регистрация: 10.04.2013
Сообщений: 22
|
Треугольник. Задача по делфи
Здравствуйте.
Задача такова : даны 3 числа. если эти числа могут быть длинами сторон треугольника, то вычислить его полупериметр. в противном случае найти максимальное из них. Код HTML:
procedure TForm1.Button1Click(Sender: TObject);
Var A,B,C:real;
max:double;
begin
A:=Strtofloat (Edit1.Text);
B:=Strtofloat (Edit2.Text);
C:=Strtofloat (Edit3.Text);
if (a < b+c) and (b < a+c) and (c < a+b)
then label2.caption:='треуг сущ. Полупериметр = ' + FloatToStr((a+b+c)/2)
else
begin
if (a>b) and (a>c) then max:= a;
if (c>b) and (c>a) then max:= c;
if (b>a) and (b>c) then max:= b;
label2.caption:='треуг не сущ. Макс число = ' + FloatToStr(max) ;
end;
end;
end.
В чем проблема? Помогите, пожалуйста. пс. треуг существет, если сумма двух его сторон больше третьей Последний раз редактировалось Bracho1994; 13.04.2013 в 16:17. |
13.04.2013, 16:28 | #2 |
Старожил
Регистрация: 08.04.2012
Сообщений: 3,229
|
Нет здесь проблемы, так и должно быть.
Последний раз редактировалось s-andriano; 13.04.2013 в 16:32. |
13.04.2013, 16:45 | #3 |
Пользователь
Регистрация: 10.04.2013
Сообщений: 22
|
Ой глупый я... Начал на рисунке проверять и действительно.. Не с той ноги сегодня встал. Спасибо, что направили на нужный путь^^
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
про треугольник делфи | selestenka | Общие вопросы Delphi | 2 | 31.10.2009 20:30 |
Найти площадь треугольник (задача в делфи) | YO$YA | Помощь студентам | 5 | 19.11.2008 21:29 |
Задача про треугольник | YO$YA | Помощь студентам | 10 | 15.11.2008 20:29 |