[Astral]

Условие: Определить, является-ли треугольник со сторонами AB равнобедренным?


По моему пониманию условия задачи, делается так-3 эдита на ввод длин треугольника, один на вывод слов- Треугольник равнобедренный!/треугольник не равнобедренный!. И баттон. Я школьник, и не сильно понимаю делфи. Мне нужен код баттона. Люди добрые!Хелп

С меня 6-знак 948-068

[The Shadow]

Пиши 476608129 если все еще надо.

[Astral]

Уже нет, есть код на паскале, кому не в лом перевести на делфи?С меня пиво

Код:

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

[moo2k]

Держи свой проект. Компилировал на D2007.
P.S. Так, что там на счет 6-знака?