Tengo el siguiente problema: El Sr. Juan Lopez posee un terreno en forma de un triángulo rectángulo cuyos lados son: 11, 7, 11 metros. Así mismo, su vecino, del que no conoce su nombre, tiene un terreno de forma triangular con medidas: 11,7.5, 11 metros. El Sr. Vazquez también tiene un terreno de forma cuadrada de 11 metros cada lado. La fórmula para obtener el área de un triángulo rectángulo es base por altura, dividido para 2. ¿Cuál es el área del terreno del vecino del Sr. Lopez? ¿Cuánto suma el total de todas las áreas?
Me falta resolver la pregunta de la suma total de las áreas. Alguien tiene una idea de qué se podría hacer ahí?
posee(juanperez,terreno(triangulo(11,7,11))).
posee(vecino(juanperez),terreno(triangulo(11,7.5,11))).
posee(vazquez,terreno(cuadrado(11))).
%Semiperimetro
s(L1,L2,L3,S):- S is (L1+L2+L3)/2.
alturaL1(L1,L2,L3,Altura):-s(L1,L2,L3,S), Altura is (2/L1)*sqrt(S*(S-L1)*(S-L2)*(S-L3)).
areaTriangulo(L1,L2,L3,Area):-alturaL1(L1,L2,L3,H), Area is L1*H/2.
areaCuadrado(L1,Area):-Area is L1*L1.
areaTerreno(P,Area):-posee(P,Terreno), Terreno=terreno(cuadrado(A)),areaCuadrado(A,Area).
areaTerreno(P,Area):-posee(P,Terreno), Terreno=terreno(triangulo(A,B,C)),areaTriangulo(A,B,C,Area).