Определить равнобедренный ли треугольник [pascal]

[kakawkin]

Вот папалась такая задача у знакомого - попросил решить


Условие: ввести с клавиатуры дляны сторон - определить, рвнобедренный ли треугольник.

Просто так я решу ибо у равнобедренных углы при основании равны - но они нам в задачи не даются. Ну и собственно если бедры равны то он равнобедренный. Т.к. по геометрии стоит 4 решил бы на доске а тут как х3

только если чтоль на подобее этого:
Ввести 3-и числа собственно : 2-а бедра и основание.

И подсчитать - если есть пара чисел одинаквых то он равнобедренный - но в условии написать что ввести в последовательности: бедро,бедро, основание

Но какаято шляпа выходит галимая а не задача

[RUSt88]

почему шляпа? все так и решается программой, просто надо правильно преподнести программе данные и показать че с ними делать

[DoDge_VipeR]

if (a=b) or (b=c) or (c=a) then writeln('равнобедренный')
else writeln('неравнобедренный');

[kakawkin]

DoDge_VipeR
это для равносторенноего >.<
Равнобедренный: длина сторон у основания равные и углы при основании равны

[kakawkin]

2руст88

writeln('Введите одно бедро');readln(a);
writeln('Введите другео бедро');readln(b);
if a=b then writeln('ТРЕУГОЛЬНИК РАВНОБЕДРЕННЫЙ');

Не бред получается ?

[DoDge_VipeR]

для равностороннего

if (a=b) and (b=c) then треугольник равносторонний

почувствуй разницу

Равнобедренный треугольник — треугольник, в котором две стороны равны между собой.

ни слова про бедра и основание

[Namolem]

/////// /

[kakawkin]

ну во первых что у тя по геометрии ?
Равносторонний - все стороны равны
Равнобедренный - стороны лежащие на основании равны

Т.е. для моей задачи ничего кроме как if a=b then write('РАВНОБЕДРЕННЫЙ'); else writeln('ФИГ ТАМ');

ну это мощьная задача выходит

[DoDge_VipeR]

А если треугольник углом вниз и у него верхняя и левая стороны равны он не равнобедреный???

ну во первых что у тя по геометрии ?

"5"-отлично!
А вот в твоих знаниях геометрии я уже сомневаюсь!
повторюсь

Равнобедренный треугольник — треугольник, в котором две стороны равны между собой.
ни слова про бедра и основание

==> если у треугольника равны 2 любые стороны то он равнобедренный!

[kakawkin]

вот так получилось:

program tt;
var a,b,c,i:integer;
begin
 writeln('Введите длины сторон треугольника:');
 write('a= ');readln(a);
 write('b= ');readln(b);
 write('c= ');readln(c);
 if (a=b) or (a=c) then write('Треугольник равнобедренный');
 if b=c then write('Треугольник равнобедренный');
end.