Даны три стороны одного и три стороны другого треугольника. Эти треугольники равновеликие, т.е. имеют равные площади. пожалуйста помогите решить в системе паскаль

danilkonon: а что надо делать?

tuygud: решить в системе паскаль,составить программу решения

karimPhoenix: т.е. проверить равновеликие или нет?

danilkonon: проверить это условие

karimPhoenix: жди, 2 мин)

danilkonon: жди минуту

Ответы

Ответ дал: danilkonon

var a, b, c, p,s,s1: real;
begin
write('Введите три стороны треугольника: ');
read(a, b, c);
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
write('Введите три стороны другого треугольника: ');
read(a, b ,c);
p := (a + b + c) / 2;
s1 := sqrt(p * (p - a) * (p - b) * (p - c));
write('Треугольники равновеликие -- ', s = s1)
end.

danilkonon: а на питончике прям хорошо

karimPhoenix: ну плюсы тоже интересны)))

danilkonon: очень мощно все

karimPhoenix: а вообще паскаль учит мыслить! изобретать велосипеды, для того что бы решать сложные проги))) не умея там мыслить и искать лазейки, нет смысла лезть выше)))

danilkonon: может быть. ладно. до свиданья. приятно было поговорить.

danilkonon: паскаль действительно проще изучать

karimPhoenix: пока)

danilkonon: хотя объявление пременных в начале убивает

danilkonon: и бесит

karimPhoenix: кому как) я уже привык) да и потом, всегда знаешь где их найти)))

Ответ дал: karimPhoenix

program D1KPxx13;
uses crt;
var
a1,a2,a3,b1,b2,b3,s1,s2,p1,p2:real;
begin
readln(a1,a2,a3);
p1:=(a1+a2+a3)/2;
s1:=p1*(p1-a1)*(p1-a2)*(p1-a3);
readln(b1,b2,b3);
p2:=(b1+b2+b3)/2;
s2:=p2*(p2-b1)*(p2-b2)*(p2-b3);
if s1=s2 then
writeln('ravnovelikie')
else writeln(' ne ravnovelikie');
end.

karimPhoenix: нету числа кроме 4 которое даст при извлечении 2)))

danilkonon: хотя если они равны

danilkonon: то дейстыительно без разницы

karimPhoenix: вот вот))

karimPhoenix: но для красоты и правильности полной корень конечно нужен)))

karimPhoenix: да и моя немного больше памяти потребует))) т.к. больше переменных, хотя моя надежнее(ИМХО) ну а красоту вы прям навели не фиговую))) writeln везде))) красиво будет смотреться на crt)))

danilkonon: вы на турбо паскале программируете?

karimPhoenix: на АБС, но на олимпиаде последней пришлось юзать борланд)))) все такое же, вот только..... короче глаза сошли с ума)))

danilkonon: а я хочу на питон перейти

karimPhoenix: только проездом через плюсы, а то мозг бахнется от таких нагрузок сразу)))

Вас заинтересует

Английский язык

2 года назад

My sister and I (quarrel); that's why we are not speaking now!

Геометрия

2 года назад

один из углов прямоугольного треугольника равен 60 градусов, а сумма гипотенузы и меньшего из катетов равна 16,2см. Найдите гипотенузу треугольника.

Английский язык