Question

de la tastatura se introduc 6 numere intregi a1,b1,c1 si a2,b2,c2, ce reprezintalaturile a 2 triunghiuri.Scrieti un programce va determina daca triunghiurile au ariile egale

Answer 1

procedure aria(a,b,c:integer; var s:real);
begin
var p:integer;
p:=(a+b+c) div 2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;

var a1,a2,b1,b2,c1,c2:integer;
s1,s2:real;

begin
Writeln('Primul triunghi:');
read(a1,b1,c1);
writeln;
Writeln('Al doilea triunghi:');
read(a2,b2,c2);
writeln;
aria(a1,b1,c1,s1);
aria(a2,b2,c2,s2);
if s1=s2 then writeln('Ariile sint egale.') else
writeln('Ariile nu sint egale.');
end.