validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.

Publicado por saymon castro de souza 24/10/2007

[ Hits: 19.786 ]

Download triangulo.pas




Programa feito em pascal que resolve aquele exercício típico de disciplinas iniciais de programação: validar e classificar o triângulo (equilátero, escaleno e isóceles).

  



Esconder código-fonte

Program Triangulo;
Uses Crt;
Var
   L1, L2, L3 : Integer;
Begin
   Writeln(´Digite o primeiro lado do triangulo: ´);
   Read(L1);
   Writeln(´Digite o segundo lado do triangulo: ´);
   Read(L2);
   Writeln(´Digite o terceiro lado do triangulo: ´);
   Read(L3);
   {a soma de dois lados de um triângulo não deve ser maior que o terceiro lado}
   if ((L1 < (L2+l3)) and (L2 < (L1+l3)) and (L3 < (L2+l3))) then  {verificando se é um triangulo válido}
   Begin
      if ((L1 = L2) and (L2 = L3)) Then
         Writeln(´Triangulo equilatero.´)
      else
         if ((L1 <> L2) and (L2 <> L3) and (L1 <> L3)) Then
            Writeln(´Triangulo escaleno.´)
         else
            Writeln(´Triangulo isoceles.´);
   End
   Else
      Write(´Triangulo não válido!!´);
End.

Scripts recomendados

Loops

Multiplicação de Matrizes

Maior numero do Vetor

Existência de triângulo, em Pascal

Primo_for


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts