TAD Triangulo

Interface exportado Triangulo

function CalcularSuperficie(t:triangulo):integer;
function CantidadDeLadosIguales(t:triangulo):integer;

Implementation

triangulo = record
  base:integer;
  altura:integer;
  angulos = array [1..3] of integer;
  end;

function CalcularSuperficie(t:triangulo):integer;
begin
  CalcularSuperficie:=(t^.base*t^.altura)/2;
end;

function CantidadDeLadosIguales(t:triangulo):integer;
var cant:integer;
begin
  cant:=1;
  if(t^.angulos[1] = t^.angulos[2]) and (t^.angulos[2] = t^.angulos[3])
    cant:=3
  else if (t^.angulo[1] = t^.angulo[2]) or (t^.angulo[2] = t^.angulo[3] or (t^.angulo[1] = t^.angulo[3]) then
    cant:=2;
  CantidadDeLadosIguales:=cant;
end;

program Ejercicio1;

uses Triangulo

type

triangulos = array[1..10] of triangulo;

var
  base,altura,angulo1,angulo2,angulo3:integer;

begin
  writeln('Ingrese los parametros del triangulo:');

  readln(base,altura,angulo1,angulo2,angulo3);

  for i:=1 to 10 do
  begin






end.