[Лунтик-Некрофил]

Доброго вечера, Форумчане!=)
Сейчас получил ТЗ - составить программу для школьников по начертательной геометрии и столкнулся с небольшой проблемкой - надо создать кнопку проверки на определение существования треугольника. В принципе задача лёгкая, но

Код:

if IntToStr(StrToInt(edit1.text))<IntToStr(StrToInt(edit2.Text)+
StrToInt(edit3.Text)) then
begin
if IntToStr(StrToInt(edit2.text))<IntToStr(StrToInt(edit1.Text)+
StrToInt(edit3.Text)) then
begin
if IntToStr(StrToInt(edit3.text))<IntToStr(StrToInt(edit2.Text)+
StrToInt(edit1.Text)) then
Label1.Caption:='Треугольник существует'
else Label1.Caption:='Треугольник не существует';
end
else Label1.Caption:='Треугольник не существует';
end
else Label1.Caption:='Треугольник не существует';

При использовании больших чисел программа выдаёт сообщение о не существовании треугольника. Ребят, помогите плизз кто чем может, желательно с понятным пояснением или подробным кодом проги=)
Заранее спасибо, Лунтик.

[Страдалецъ]

Бррррр.
Я так понимаю вы хотите сравнить координаты вершин треугольника т.е. числа? Тогда зачем-же вы сравниваете строки?

[Лунтик-Некрофил]

А, извиняюсь, забыл сказать - Используем модель треугольника, без его построения) Просто нужно узнать, существует он или нет.
Формулы:
a<b+c
b<a+c
c<a+b
насколько я помню...)

[lmikle]

Т.е. задача - можно ли построить из 3 отрезков треугольник, так? Отрезки задаются длинной, так?

[Лунтик-Некрофил]

Так) Примерно так я и хотел обьяснить, но в силу сввоей необразованности не смог) Есть какие-то задумки?

[Страдалецъ]

Да не суть важен алгоритм, вы сравниваете не числа, а строки. Зачем вы число перегоняете обратно в строку перед сравнением?
Вы что количеством символов введенных в Edit1,Edit2,Edit3 задаете длину сторон?

[Лунтик-Некрофил]

Можно немного подробнее?
Как именно записать чтобы было ЧИСЛО1< ЧИСЛО2+ЧИСЛО3?
То, что стороны я задаю строкой, а не числами я догадываюсь, но вот как это изобразить в коде?=(

[Страдалецъ]

Да просто уберите преобразование из числа в строку и всех делов.

Код:

if StrToInt(edit1.Text)<StrToInt(edit2.Text)+StrToInt(edit3.Text)
 then begin
      if StrToInt(edit2.text)<StrToInt(edit1.Text)+StrToInt(edit3.Text)
      then begin
           if StrToInt(edit3.text)<StrToInt(edit2.Text)+StrToInt(edit1.Text)
           then Label1.Caption:='Треугольник существует'
           else Label1.Caption:='Треугольник не существует';
           end
      else Label1.Caption:='Треугольник не существует';
      end
 else Label1.Caption:='Треугольник не существует';

Но учтите, что тип Integer который вы используете в расчетах, тоже не бесконечен, у него ограничение в диапазоне -2147483648..2147483647

[Лунтик-Некрофил]

Огромное спасибо=) Завтра буду дома - попробую, если будет работать - курсовая зачёт))