![programa feito em delphi](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgB451wxZOsgLARoL1MVMMyrwAlNttj8qVPEPusPocSY8yVymzx4YHFF8D9VgORdWFtgSaXdqJhfct3L6_IaCsZIzQIm5kI9vUXsAE95cLyJbdTaGtLRGNpd7capgwI1hBCDLmbit4K_KcQ/s200/ordem+crescente.bmp)
Se você deseja criar um programa para ler 3 valores em ordem crescente no Delphi basta você seguir está dica.
Iremos apenas mostrar o código que terá de conter no botão calcular.
Segue abaixo o código:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqEvXdBgZCSFhbbyk9e2O8ccCO3gtcKeHgh3QoifX9mPCXunOoH3EgKmxl9gWs1m7axJ2osqWN6DJNnwn041lOtvvidVg0WFUqgVNsvJ4H4tIuecyCsqAdEzzFwZZW-iFaIqGi1IsOxXUR/s200/calcular.bmp)
begin
if Edit1.Text > Edit2.Text then
if Edit1.Text > Edit3.Text then
if Edit2.Text > Edit3.Text then
Edit4.Text := Edit3.Text + ', ' + Edit2.Text + ', ' + Edit1.Text
else
Edit4.Text := Edit2.Text + ', ' + Edit3.Text + ', ' + Edit1.Text
else
Edit4.Text := Edit2.Text + ', ' + Edit1.Text + ', ' + Edit3.Text
else
if Edit2.Text > Edit3.Text then
if Edit1.Text > Edit3.Text then
Edit4.Text := Edit3.Text + ', ' + Edit1.Text + ', ' + Edit2.Text
else
Edit4.Text := Edit1.Text + ', ' + Edit3.Text + ', ' + Edit2.Text
else
Edit4.Text := Edit1.Text + ', ' + Edit2.Text + ', ' + Edit3.Text;
end;
Qualquer dúvida deixe um comentário !
Nenhum comentário:
Postar um comentário
Os comentários são de responsabilidade exclusiva de seus autores e não representam a opinião deste blog. Não serão publicados comentários ofensivos, que contenham propaganda, ou comentários que fazem apologia a crimes.