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

2
Комментарий удален
т.е. проверить равновеликие или нет?
проверить это условие
жди, 2 мин)
жди минуту

Ответы и объяснения

2014-02-16T16:06:52+04:00
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.
Комментарий удален
Комментарий удален
хотя объявление пременных в начале убивает
и бесит
кому как) я уже привык) да и потом, всегда знаешь где их найти)))
2014-02-16T16:07:02+04:00
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.
да и моя немного больше памяти потребует))) т.к. больше переменных, хотя моя надежнее(ИМХО) ну а красоту вы прям навели не фиговую))) writeln везде))) красиво будет смотреться на crt)))
Комментарий удален
на АБС, но на олимпиаде последней пришлось юзать борланд)))) все такое же, вот только..... короче глаза сошли с ума)))
Комментарий удален
только проездом через плюсы, а то мозг бахнется от таких нагрузок сразу)))