Algoritmos

Algoritmo que leia 3 valores e informe qual triângulo

Dados três valores A, B e C verifique se eles podem ser os comprimentos dos lados de um triângulo e se forem verificar se compõe um triângulo equilátero, isósceles a escaleno ou nenhum triângulo

Pseudocódigo:

programa exercicio9
var
  a, c, c : real;
inicio
  leia a;
  leia b;
  leia c;
  se (a < b + c) e (b < a + c) e (c < a + b) entao
   se (a = b) e (b = c) entao
    escreva "Triangulo Equilatero"
   senao
     se (a = b) ou (a = c) ou (c = b) entao
      escreva "Triangulo Isosceles"
     senao
       escreva "Triangulo Escaleno"
senao 
 escreva "As medidas nao formam triangulo";
     fim_se;
   fim_se;
  fim_se;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 08/04/2010
Program exercicio9;
 uses crt;
 var
 a, b, c : real;
 Begin
 writeln('Insira valor de A');
 readln(a);
 writeln('Insira valor de B');
 readln(b);
 writeln('Insira valor de C');
 readln(c);  
 	if (a < b + c) and (b < a + c) and (c < a + b) then
 	  if (a = b) and (b = c) then
 	  	writeln('Triangulo Equilatero')
 	  	else
 	  		if (a = b) or (a = c) or (c = b) then
 	  			writeln('Triangulo Isosceles')
 	  			else
 	  				writeln('Triangulo Escaleno')
 	else
 		writeln('As medidas nao formam triangulo');
 writeln('Pressione para fechar');
 readkey;  
End.

Veja também:

Botão Voltar ao topo

Adblock detectado

Por favor, considere apoiar-nos, desativando o seu bloqueador de anúncios