{Espero esto pueda servirte}
program triangulo;
uses
crt;
type
string12 = string[12];
const
tipo : array[1..3] of string12 = ('Equilatero','Isosceles','Escaleno');
var
lado1, lado2, lado3 : real;
procedure entra_valores_lados;
begin
write(' Entre Lado 1 : ');readln(lado1); write(' Entre Lado 2 : ');readln(lado2); write(' Entre Lado 3 : ');readln(lado3); end;
function tipotriangulo : string12;
begin
tipotriangulo := ' ';
if (lado1 <> 0) and (lado2 <> 0) and (lado3 <> 0) then
begin
if (lado1 = lado2) and (lado1 = lado3) then
begin
tipotriangulo := tipo[1];
exit;
end;
if (lado1 = lado2) or (lado1 = lado3) or (lado2 = lado3) then
begin
tipotriangulo := tipo[2];
exit;
end;
if (lado1 <> lado2) and (lado1 <> lado3) and (lado2 <> lado3) then
begin
tipotriangulo := tipo[3];
exit;
end;
end;
end;
begin
clrscr;
entra_valores_lados;
writeln(tipotriangulo);
readkey;
end.
Crear cuenta