Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

TCHE

[Resolvido] Algoritmo triangulo

Por , em Algoritmos & Outras Tecnologias

Recommended Posts

TCHE    0

TCHE
Postado

pessoal achei essa questão gostaria da opinião de vcs?

por favor agora digam q acertei,

 

A) Dados três valores X, Y, Z, verifiquem se eles podem ser os comprimentos dos lados de um triângulo e se forem escrever uma mensagem informando se é se é um triângulo eqüilátero, isósceles ou escaleno.

 

Observações:

O comprimento de um lado do triângulo é sempre menor do que a soma dos outros dois.

Eqüilátero > Todos lados iguais

Isósceles > Dois lados iguais

Escaleno > Todos os lados diferentes

Programa triangulo_retangulo;
Var x, y, z;
Inicio;
Leia ( x, y, z );
Se ( x+y>z e x+z>y e y+z>x ) então;
Escreva ( ‘formar um triangulo’ );
Senão se( x+y=z e x+z=y e y+z=x )então;
Escreva ( ‘triangulo eqüilátero’ );
Senão se ( x+y=z e x+z=y e y+z<>x )então;
Escreva ( ‘triangulo Isóscelos’ );
Senão se ( x+y<>z e x+z<>y e y+z<>x )então;
Escreva ( ‘triangulo Escaleno’ );
Fim.se
Fim.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo Rodrigues Torre    0

Gustavo Rodrigues Torre
Postado

Cara fico feliz que estaja aprendendo a fazer algoritmos sozinhos

Mas seu algoritmo faltaram alguns detalhes

Ps. Baixe o Visualg

O link para baizar o programa esta aqui

 

http://www.apoioinformatica.inf.br/

 

Este programa e bom para você verificar se esta acertando os códigos

 

Abraços

Tente este código aqui

 

var
a,b,c : real
inicio
// Seção de Comandos 
escreva("entre com o valor de a: ")
leia(a)
escreva("entre com o valor de b: ")
leia(b)
escreva("entre com o valor de c: ")
leia(c)

	 se (A<B+C) e (B<A+C) e (C<A+B) entao
	 escreval("Estes valores formam um triangulo")

se (A=B) e (B=C) entao
				escreva ("Triangulo Equilátero")
			senao
		 se (A=B) ou (B=C) ou (A=C) entao
					escreva ("Triângulo Isósceles")
				senao
					escreva ("Triangulo Escaleno")
				fimse
			fimse
senao
			escreva ("Estes valores não formam um triângulo")
		fimse

fimalgoritmo

 

 

pessoal achei essa questão gostaria da opinião de vcs?

por favor agora digam q acertei,

 

A) Dados três valores X, Y, Z, verifiquem se eles podem ser os comprimentos dos lados de um triângulo e se forem escrever uma mensagem informando se é se é um triângulo eqüilátero, isósceles ou escaleno.

 

Observações:

O comprimento de um lado do triângulo é sempre menor do que a soma dos outros dois.

Eqüilátero > Todos lados iguais

Isósceles > Dois lados iguais

Escaleno > Todos os lados diferentes

 

Programa triangulo_retangulo;

Var x, y, z;

Inicio;

Leia ( x, y, z );

Se ( x+y>z e x+z>y e y+z>x ) então;

Escreva ( ‘formar um triangulo’ );

Senão se( x+y=z e x+z=y e y+z=x )então;

Escreva ( ‘triangulo eqüilátero’ );

Senão se ( x+y=z e x+z=y e y+z<>x )então;

Escreva ( ‘triangulo Isóscelos’ );

Senão se ( x+y<>z e x+z<>y e y+z<>x )então;

Escreva ( ‘triangulo Escaleno’ );

Fim.se

Fim.

Compartilhar este post

Link para o post
Compartilhar em outros sites

TCHE    0

TCHE
Postado

poxa eu esquesi de colocar o tipo de dados era pra ser real ou inteiro

e as variavel é um baixo da palavra (var)

e outra coisa eu tenho interrese de aprender pascal ñ tem problema eu baixando esse

Visualg

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo Rodrigues Torre    0

Gustavo Rodrigues Torre
Postado

Cara primeiro domine algoritmos para depois aprender Pascal

O Visualg ajudará você a ter noção de como os programas funcionam.

Obs: Ao invés de aprender Pascal aprenda C e C++

E depois passe para a linguagem Java.

 

P.s De uma olhada sempre no tipo de variavel que vai usar

 

Existem as variaveis

real

inteiro

caractere

numerico

 

De uma estudada nestas variaveis

 

 

Abraços

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

 

 

poxa eu esquesi de colocar o tipo de dados era pra ser real ou inteiro

e as variavel é um baixo da palavra (var)

e outra coisa eu tenho interrese de aprender pascal ñ tem problema eu baixando esse

Visualg

Compartilhar este post

Link para o post
Compartilhar em outros sites

TCHE    0

TCHE
Postado

eu baixei o visualig mais ja esta dando complicações mas to gostando dele o porem é q fiz um algotimo facil e eu ñ sei pq ele esta dando erro

var
a, b, c : inteiro
inicio
// Seção de Comandos 
escreva ("entre com o valor de a: ") [o erro ja da aqui nessa primeira linha]
leia(a)
escreva ("entre com o valor de b: ")
leia (B)
escreva ("entre com o valor de c: ")
leia ©

     se (a>B) e (a>B) entao
     escreva ("a é maior quer todos")
se (b>a) e (b>c) entao
escreva ("b é maior quer todos")
senao
     escreva("c é maior quer todos")
fimse
fimalgoritmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Kandrade    7

Kandrade
Postado

Voce não está fechando um se.

Teste assim:

 

var
a, b, c : inteiro
inicio
// Seção de Comandos
escreva ("entre com o valor de a: ")
leia(a)
escreva ("entre com o valor de b: ")
leia (b)
escreva ("entre com o valor de c: ")
leia (c)

se (a>b) e (a>b) entao
   escreva ("a é maior quer todos")
   se (b>a) e (b>c) entao
	  escreva ("b é maior quer todos")
   fimse
senao
   escreva("c é maior quer todos")
fimse

fimalgoritmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

TCHE    0

TCHE
Postado

Voce não está fechando um se.

Teste assim:

 

var
a, b, c : inteiro
inicio
// Seção de Comandos
escreva ("entre com o valor de a: ")
leia(a)
escreva ("entre com o valor de b: ")
leia (b)
escreva ("entre com o valor de c: ")
leia (c)

se (a>b) e (a>b) entao
   escreva ("a é maior quer todos")
   se (b>a) e (b>c) entao
	  escreva ("b é maior quer todos")
   fimse
senao
   escreva("c é maior quer todos")
fimse

fimalgoritmo

 

 

valeu deu certo.

qual o comando de saida no visualig no caso "imprimir"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo Rodrigues Torre    0

Gustavo Rodrigues Torre
Postado

TCHE

Uma dica

Use tabulação nos seus códigos.

Pois, assim ficará mais fácil de você entender os seus códigos

E use comentários para depois você entender o que foi feito nele.

E coloque os códigos em tópicos separados

Pois, assim outros usuários do fórum poderam achar o que procuram rapidamente.

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

TCHE    0

TCHE
Postado

comando de saida eu falo tipo assim Implemente um algoritmo que leia 3 números quaisquer e os imprima em ordem crescente?

 

valeu pela dica

Compartilhar este post

Link para o post
Compartilhar em outros sites

TCHE    0

TCHE
Postado

acho q vai chuver

quando o visualig da uma mensagem esperava uma expressão do tipo enteiro so basta e clicando em continuar q ele determina um valor qualque exato

 

 

algoritmo "imprimir_em_ordem_crescente"
// Função :
// Autor :
// Data : 20/12/2007
// Seção de Declarações
var
a, b, c : inteiro
inicio
// Seção de Comandos
escreva("entre com o valor de a: ")
leia (a)
escreva("entre com o valor de b :")
leia ( B )
escreva ("entre com o valo de c :")
leia ( c )
se(a>B) e (a>c) e (b>c)entao
   escreva ("a, b , c")
senao
   se(a>B) e (a>c) e (c>B) entao
      escreva ("a, c, b")
   senao
      se(b>a) e (b>c) e (c>a)entao
         escreva ("b, c, a")
      senao
         se(b>a) e (b>c) e (a>c) entao
            escreva("b, a, c")
         senao
            se (c>a) e (c>B) e (a>b)entao
               escreva ("c, b, a")
            fimse
         senao
            escreva ("c, a, b")
fimse
fimse
fimalgoritmo

fimse
fimse

Compartilhar este post

Link para o post
Compartilhar em outros sites

quitZAUMMM    18

quitZAUMMM
Postado

pelo q observei você errow ao fechar umas condições..

verifique o algoritmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo Rodrigues Torre    0

Gustavo Rodrigues Torre
Postado

TCHE

Eu só vou dar um dica

 

Onde você digitou:

escreva("entre com o valor de a: ")
leia (a)
escreva("entre com o valor de b :")
leia ( B )
escreva ("entre com o valo de c :")
leia ( c )

Troque por isso

Pois, assim o seu código ficara menor e mais fácil de entender

escreva("entre com os valores: ")
leia (a,b,c)

Troque todo o seu algoritmo por este

Os fimse você deve achar onde coloca.

 

Abraços

 

 

Se (a > b) e (b > c) entao
		   escreva(a,b,c)
		senao
			  Se (a > c) e (c > b) entao
			  escreva(a,c,b)
		senao
					Se (b > a) e (a > c) entao
					escreva(b,a,c)
		senao
						  Se (b > c) e (c > a) entao
						  escreva(b,c,a)
		senao
								Se (c > b) e (b > a) entao
								escreva(c,b,a)
		senao
									  Se (c > a) e (a> b) entao
									  escreva(c,a,b)

Compartilhar este post

Link para o post
Compartilhar em outros sites

TCHE    0

TCHE
Postado

ta complicado pra caramba quando eu coloco de um geito aparece problema do outro quando eu invertir os numeros pidiu mais um fimse quando eu colo que mudo os numeros novamente da problema mais uma vez

 

 

 

 

pelo q observei você errow ao fechar umas condições..

verifique o algoritmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo Rodrigues Torre    0

Gustavo Rodrigues Torre
Postado

Pegue o meu ultipo post

O algoritmo que eu fiz esta certo

E só você verificar onde coloca os fimse

Abraços

 

ta complicado pra caramba quando eu coloco de um geito aparece problema do outro quando eu invertir os numeros pidiu mais um fimse quando eu colo que mudo os numeros novamente da problema mais uma vez

 

 

 

 

pelo q observei você errow ao fechar umas condições..

verifique o algoritmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

TCHE    0

TCHE
Postado

mesmo velho eu me perde pq coloquei o senao se na mesma linha e eu so tava sigino separado o se

mas ja valeu

algoritmo "imprimi_em_ordem_crescente"
// Função :
// Autor :
// Data : 21/12/07
// Seção de Declarações
var
a, b, c : Inteiro
inicio
// Seção de Comandos
escreva ("entre com os valores: ")
leia (a, b, c)
se (a>B) e (b>c) entao
   escreva (a, b, c)
senao
   se (a>B) e (c>b)entao
      escreva (a, c, B)
   senao
      se (b>a) e (c>a)entao
         escreva(b, c, a)
      senao
         se (b>a) e (a>c)entao
            escreva (b, a, c)
         senao
            se (c>a) e (b>a) ento
               escreva (c, b, a)
            senao
               se (c>a) e (a>b)entao
                  escreva (c, a, B)
               fimse
            fimse
         fimse
      fimse
   fimse
fimse
fimalgoritmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo Rodrigues Torre    0

Gustavo Rodrigues Torre
Postado

Olhei o seu algoritmo e percebi uma coisa

 

Faltou um fimse

 

 

E me diz uma coisa se e para colocar em ordem crescente os valores pq você colocou assim no seu código?

 

se (a>b) e (b>c) entao
	 escreva ("a, b, c")

Ao inves de colocar as letras entre aspas retire as aspas

Obs: Mas só onde estiver os se

 

O seu código ficará assim:

 

se (a>b) e (b>c) entao
escreva (a, b, c)

 

Depois volte a postar dizendo o resultado.

 

Abraços

caramba com um detale agente mata grades charadas

 

so basta eu contar quantos ( se ) tem e feixar todos eles valeu pela dica novamente, ou ainda estou errando

 

algoritmo "imprimi_em_ordem_crescente"
// Função :
// Autor :
// Data : 21/12/07
// Seção de Declarações
var
a, b, c : Inteiro
inicio
// Seção de Comandos
escreva ("entre com os valores: ")
leia (a, b, c)
se (a>b) e (b>c) entao
   escreva ("a, b, c")
senao
   se (a>b) e (c>b)entao
	  escreva ("a, c, b")
   senao
	  se (b>a) e (c>a)entao
		 escreva("b, c, a")
	  senao
		 se (b>a) e (a>c)entao
			escreva ("b, a, c")
		 senao se (c>a) e (b>a) ento
			escreva ("c, b, a")
		 senao
			se (c>a) e (a>b)entao
			   escreva ("c, a, b")
			fimse
		 fimse
	  fimse
   fimse
fimse
fimalgoritmo

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Algoritmos & Outras Tecnologias
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito