Ler 3 valores em ordem crescente no Delphi


programa feito em delphi


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:




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