Доброго вечера, Форумчане!=)
Сейчас получил ТЗ - составить программу для школьников по начертательной геометрии и столкнулся с небольшой проблемкой - надо создать кнопку проверки на определение существования треугольника. В принципе задача лёгкая, но
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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:= 'Треугольник не существует' ;
|
При использовании больших чисел программа выдаёт сообщение о не существовании треугольника. Ребят, помогите плизз кто чем может, желательно с понятным пояснением или подробным кодом проги=)
Заранее спасибо, Лунтик.
