Existência de triângulo, em Pascal

Publicado por Perfil removido (última atualização em 27/09/2016)

[ Hits: 3.187 ]

Download triangulo-001.pas




Programa em Pascal, que recebe três valores e decide se eles formam um triângulo. Também diz se o triângulo é equilátero, isósceles ou escaleno.

Obs: há um bug para negativos.

  



Esconder código-fonte

Program Triangulo;

{$ifndef __GPC_RELEASE__} Uses Crt; {$endif} 

Type

{$ifdef FPC}
   MyInt = QWord;
{$endif}

{$ifdef __GPC_RELEASE__}
   MyInt = LongestWord;
{$endif}

Var

   a, b, c : MyInt;

Begin

   WriteLn('Digite valores inteiros nao-nulos e positivos.');

   Write('Entre com a medida do lado 1 do triangulo: ');
   ReadLn(a);

   Write('Entre com a medida do lado 2 do triangulo: ');
   ReadLn(b);

   Write('Entre com a medida do lado 3 do triangulo: ');
   ReadLn(c);

   If (a<=0) Or (b<=0) Or (c<=0) Then
   Begin
      WriteLn('Lados nulos ou negativos nao sao aceitos.');
      Halt(1);
   End;

   If (a>=b+c) Or (b>=c+a) Or (c>=a+b) Then
   Begin
      WriteLn('Triangulo inexistente.');
      Halt(1);
   End;

   If (a=b) And (b=c) Then
      Writeln ('Triangulo equilatero.')

   Else If (a=b) Or (b=c) Or (c=a) Then
      WriteLn('Triangulo isosceles.')

   Else
      WriteLn('Triangulo escaleno.');

End.

Scripts recomendados

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

Programa que realiza o reajuste salarial de acordo com o cargo

cadastro de multiplos clientes com registro

palindroma

"Calculadora" utilizando Case


  

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