Algorítimo Pascal - Arestas do Triângulo

Desenvolva um programa que dadas três variáveis A, B e C, como sendo as arestas de um triângulo determine se:
  1. Forma um triângulo (a+b>c e a+c>b e c+b>a);
  2. Caso seja um triângulo determinar se este é:
    1. Escaleno (A<>B e A<>C e B<>C);
    2. Isósceles ((A=B e A<>C) ou (A=C e A<>B) ou (B=C e B<>A));
    3. Equilátero (A=B e B=C). 



program RESPOSTA_2;

{$APPTYPE CONSOLE}

VAR
A, B, C: REAL;

BEGIN
WRITELN('INFORME O VALOR DE A: ');
READLN(A);
WRITELN('INFORME O VALOR DE B: ');
READLN(B);
WRITELN('INFORME O VALOR DE C: ');
READLN(C);
IF (A+B > C) AND (A+C > B) AND (C+B > A) THEN
BEGIN
WRITELN('A, B E C FORMAM UM TRIANGULO!');
END
ELSE
IF (A=B) AND (A=C) THEN
WRITELN('TRIANGULO EQUILATERO');

IF (A=B) OR (A=C) OR (B=C) THEN
WRITELN('TRIANGULO ISOSCELES');

IF (A <> B) AND (A <> C) AND (B <> C) THEN
WRITELN('TRIANGULO ESCALENO');

READLN;
END.

Nenhum comentário:

Postar um comentário

Dúvidas? Sugestões? Fale com o Professor Carlão!

Leia também...

Concurso PRF 2019 - POLICIAL RODOVIÁRIO FEDERAL - Apostilas Opção

Concurso PRF 2019 POLICIAL RODOVIÁRIO FEDERAL Apostila ou Curso - POLICIAL RODOVIÁRIO FEDERAL -  Concurso PRF 20...