Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:snippet:proptriangulo

Propriedades de triângulos

Alguns programas que analisam as propriedades dos triângulos.

Ajuda a expandir este snippet com mais códigos, e sobre outras propriedades.

Comprimento dos lados

program triangulo;
 
type TTipoTriangulo = (triIsosceles, triEquilatero, triEscaleno, triInvalido);
 
function verificarTriangulo(e, d, b: real): TTipoTriangulo;
begin
  // Começamos por assumir que é inválido
  verificarTriangulo := triInvalido;
 
  if (e < (d + b)) and (d < (e + b)) and (b < (d + e)) then
    if ((e = b) and (d = e)) then
      verificarTriangulo := triEquilatero
    else if ((e = b) or (b = d) or (d = e)) then
      verificarTriangulo := triIsosceles
    else
      verificarTriangulo := triEscaleno;
end;
 
var
  e, d, b :real;
 
begin
  writeln('Verificacao de propriedades de triangulos');
  write('Lado esquerdo: ');
  readln(e);
  write('Lado direito: ');
  readln(d);
  write('Base: ');
  readln(b);
 
  case verificarTriangulo(e, d, b) of
    triIsosceles:  writeln('Triângulo isósceles');
    triEquilatero: writeln('Triângulo equilátero');
    triEscaleno:   writeln('Triângulo escaleno');
    triInvalido:   writeln('Triângulo inválido');
  end;
end.

Escrito por: pedro-kun. Mensagem original no fórum.

dev_geral/pascal/snippet/proptriangulo.txt · Última modificação em: 2018/05/14 21:37 (edição externa)