Existência de triângulo, em Pascal

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

[ Hits: 2.398 ]

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 lê nome (básico) - Pascal para iniciantes

Cronômetro feito no Lazarus(Delphi 7 para Linux)

Calculadora Básica

Metodo de Ordenacion : Burbuja

equação de 2º grau


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts