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.

• Download triangulo-001.pas
• Enviar nova versão

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.

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus

programa pra somar e tirar média

Raiz Quadrada.

Média e soma de números

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

Nenhum comentário foi encontrado.