|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Помогите решить задачу!С меня 6-знак
Условие: Определить, является-ли треугольник со сторонами AB равнобедренным?
По моему пониманию условия задачи, делается так-3 эдита на ввод длин треугольника, один на вывод слов- Треугольник равнобедренный!/треугольник не равнобедренный!. И баттон. Я школьник, и не сильно понимаю делфи. Мне нужен код баттона. Люди добрые!Хелп С меня 6-знак 948-068 Последний раз редактировалось Astral, 18.03.2008 в 18:37. |
#2
|
||||
|
||||
Пиши 476608129 если все еще надо.
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#3
|
|||
|
|||
Уже нет, есть код на паскале, кому не в лом перевести на делфи?С меня пиво
Код:
var a,b,c,t : real BEGIN read(a);read(b);readln(c); if (a+b>c)and(a+c>b)and(c+b>a) then begin if c < a then begin t:= a; a := c; c:=t;end; if c < b then begin t:= b; b := c; c:=t;end;{поменяли переменные местами, чтобы в "с" была самая большая} t := c*c-a*a-b*b; if t < 0 then writeln("треугольник остроугольный"); if t = 0 then writeln("треугольник прямоугольный"); if t > 0 then writeln("треугольник тупоугольный"); end else writeln("такого треугольника не существует"); END |
#4
|
||||
|
||||
Держи свой проект. Компилировал на D2007.
P.S. Так, что там на счет 6-знака? Программирование - это искусство и наш смысл жизни. Последний раз редактировалось moo2k, 19.03.2008 в 05:45. |