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.