Existência de triângulo, em Pascal

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

[ Hits: 3.072 ]

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

programa pra somar e tirar média

Maior numero do Vetor

Rompecompiladores Ackerman

encontrar o menor valor em um vetor

Cronômetro Lazarus/Pascal


  

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