Ir ao conteúdo
  • Cadastre-se

ricskyred

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

Reputação

0
  1. Bom dia galera, Sou um novo estudande (alguns dizem, que estou remando contra a maré) de delphi. E me deparei com um problema simples inerentes a todas as linguagens... Que seria, ler 3 numeros e escreve-los em ordem crescente. Só que ele não executa de forma correta, ele simplesmente executa todos os ifs, e escreve todos os resultados possíveis. Segue o código: var n1, n2, n3 : integer;var x : integer;Beginwrite('Escreva um numero: ');readln(n1);write('Escreva um numero: ');readln(n2);write('Escreva um numero: ');readln(n3);if (n1>n2) and (n1>n3) then; if (n2>n3) then write('Os numeros em ordem crescente são ', '',n1,'', n2,'', n3) else write('Os numeros em ordem crescente são ', '',n1,'', n3,'', n2);if(n2>n1)and(n2>n3) then; if(n1>n3) then write('Os numeros em ordem crescente são ', '',n2,'', n1,'', n3) else write('Os numeros em ordem crescente são ', '',n2,'', n3,'', n1);if(n3>n1)and(n3>n2) then; if(n1>n2) then write('Os numeros em ordem crescente são ', '',n3,'', n1,'', n2) else write('Os numeros em ordem crescente são ', '',n3,'', n2,'', n1);End.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...