С клавиатуры последовательно вводятся длины сторон двух треугольников. Составить программу, которая производит сравнение площадей треугольников.
( Решить с помощью процедуры. )
p.s. внизу моё решение!!!
Приложения:
![](https://st.uroker.com/files/d05/d051c6da7fbad73166caeb3760914f7e.png)
Ответы
Ответ дал:
0
vara1,b1,c1,p1,a2,b2,c2,p2,s1,s2:real;
Begin
read(a1,b1,c1);
p1:=(a1+b1+c1)/2;
read(a2,b2,c2);
p1:=(a2+b2+c2)/2;
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1));
s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2));
if s1=s2 then
writeln('=') else
if s1>s2 then
writeln('>') else
writeln('<');
End.
Begin
read(a1,b1,c1);
p1:=(a1+b1+c1)/2;
read(a2,b2,c2);
p1:=(a2+b2+c2)/2;
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1));
s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2));
if s1=s2 then
writeln('=') else
if s1>s2 then
writeln('>') else
writeln('<');
End.
Ответ дал:
0
после var пробел.
Вас заинтересует
9 лет назад
9 лет назад
9 лет назад