Ir para conteúdo

Simon Viegas

Members
  • Total de itens

    1
  • Registro em

  • Última visita

Reputação

0 Comum

Sobre Simon Viegas

  1. Olá, meu nome é Simon Viegas. Faço Sistemas de Informações no Centro Universitário da Bahia-FIB em Salvador-BA. Vamos lá, no Pascal 7.0 seria assim. É so traduzir para a linguagem correspondente !!! leia(a,b,c);se(a>b) então { aux=a; a=b; b=aux }se(b>c) então { aux=b; b=c; c=aux }se(a>b) então { aux=a; a=b; b=aux } eu troquei o sinal de "<" por ">" pois estava invertida. Antes iria resultar em ordem decrescente !!! program OrdemCrescente;var..a,b,c, aux :real; {variaveis do programa}begin..{ler os valores}..writeln('Digite o valor de "a", "b" e "c");..readln(a,b,c)..{ordenar valores (crescente de valor)}......{em portugol ==> se(a>b) então { aux=a; a=b; b=aux }}..if a>b then..begin....aux:=a; a=b; b=aux;..end;......{em portugol ==> se(b>c) então { aux=b; b=c; c=aux }}..if b>c then....begin......aux:=b; b=c; c=aux;..end;..{ordenar valores (crescente de valor)}......{em portugol ==> se(a>b) então { aux=a; a=b; b=aux }}..if a>b then....begin......aux:=a; a=b; b=aux;....end;..{exibir valores}..writeln;..writeln(' Valore em ordem: ',a,', ',b,', ',c);..readln; {para dar um "pause" antes de encerrar}end. e se preferir pode usar procedures program OrdemCrescenteProcedure;procedure Trocar(var x,y:real);..var aux:real..begin aux:=x; x:=y; y:=aux; end;var..a,b,c, aux :real; {variaveis do programa}begin..{ler os valores}..writeln('Digite o valor de "a", "b" e "c");..readln(a,b,c)..{ordenar valores (crescente de valor)}..if a>b then Trocar(a,b);..if b>c then Trocar(b,c);..if a>b then Trocar(a,b);..{exibir valores}..writeln;..writeln(' Valore em ordem: ',a,', ',b,', ',c);..readln; {para dar um "pause" antes de encerrar}end.EU UTILIZEI "." NO INICIO DAS LINHAS SÓ PARA PODER "ENDENTAR" !!!! (Basta trocar os "." por "espacos") Infelizmente não posso ficar verificando todo dia se houve outro post após o meu. Gostaria que se alguem quizar fazer um comentario, que me enviasse por email tambem para me avisar e eu pode participar !!! simonpiata@yahoo.com.br end. [/b]
×

Informação importante

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