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

Publicado por saymon castro de souza 24/10/2007

[ Hits: 19.791 ]

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

equação de 2º grau

Gerador de senha Pascal/Lazarus

Primo

Script Copa do Mundo

cadastro de multiplos clientes com registro


  

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