delphi7 estrutura if

Question

oi,estou com problemas nos programinhas da estrutura if, eles rodam mas � funcionam corretamente.varv1,v2:real;beginv1:=strtofloat(edit1.text);v2:=strtofloat(edit2.text);if(v1&gtv2)then;edit3.t...

Joel Rodrigues · Answer

Bom, voc� usou a estrutura de forma QUASE totalmente correta, faltou s� um toque de L�gica de Programa��o. Mas vamos l�, use o seguinte:

var
v1,v2:real;
begin
v1:=StrToFloat(Edit1.Text);
v2:=StrToFloat(Edit2.Text);
if(v1>v2)then
Edit3.Text := FloatToStr(v1)
else
if(v2>v1)then
Edit3.Text:=FloatToStr(v2)
else
Edit3.Text:= �valores iguais�;

Repare que depois do THEN n�o pode haver ponto-e-v�rgula, pois voc� estaria encerrando a express�o al� mesmo.
Veja tamb�m que n�o � preciso o �ltimo IF, pois, se V1 n�o � maior que V2 e V2 n�o � maior que V1, ent�o os dois s�o iguais.

Isso deve resolver. Qualquer d�vida, � s� falar.

Susana Matos · Answer

Obrigado querido,vc salvou a minha vida,realmente era s� tirar o ponto e v�rgula do then, c�us como eu n�o enxerguei isso!...

Joel Rodrigues · Answer

Que bom que funcionou, fico feliz por ter ajudado.Precisando, estamos aqui....

Susana Matos · Answer

ol�, estou com dificuldades nesse exerc�cio de delphi, o programinha tem que ler 3 idades e colocar na ordem crescente.

var
i1,i2,i3:integer;
begin
i1:=strtoint(edit1.text);
i2:=strtoint(edit2.text);
i3:=strtoint(edit3.text);
if(i1<i2)and(i1<i3)then
edit1.text:=inttostr(i1);
eu fiz um pouco mas do que t� ai em cima,o programa rodou mas as idades � ficam em ordem crescente, preciso de ajuda!

Joel Rodrigues · Answer

Veja esse exemplo usando vetor, � interessante pois serve para qualquer n�mero de vari�veis.Caso voc� queira somente os tr�s valores, d� uma olhada nesse link: https://sites.google.com/a/liesenberg.biz/cjogos/home/materiais-de-apoio/topicos-relativos-a-c/estruturas-basicas-de-controle/ordenar-tres-valores-inteirosBoa sorte....

Susana Matos · Answer

Bom, eu ainda n�o aprendi dessa maneira,usando vetor, mas precisava entregar o programinha rodando,e o seu funcionou perfeitamente j� o meu n�o, ele pediu pra turma entregar s� o execut�vel, ele nem viu a programa��o e tamb�m n�o explicou e eu continuo aqui sem entender.
Obrigado por me ajudar,valeu mesmo!

Marco Salles · Answer

exercicio identico tirado da netprocedure TForm1.Button1Click(Sender: TObject);  procedure TrocarValores(var IdadeA, IdadeB: integer);  var    IdadeAux: integer;  begin    IdadeAux := IdadeA;    IdadeA   := IdadeB;    IdadeB   := IdadeAux;  end;var  Idade1, Idade2, Idade3: integer;begin  Idade1 := StrToInt(edtIdade1.text);  Idade2 := StrToInt(edtIdade2.text);  Idade3 := StrToInt(edtIdade3.text);  if Idade1 &gt Idade2 then      TrocarValores(Idade1, Idade2);  if Idade2 &gt Idade3 then      TrocarValores(Idade2, Idade3);  if Idade1 &gt Idade2 then      TrocarValores(Idade1, Idade2);  edtIdade1.Text := IntToStr(Idade1);  edtIdade2.Text := IntToStr(Idade2);  edtIdade3.Text := IntToStr(Idade3);end;...

Marco Salles · Answer

So a t�tulo de curiosidade , n�o vale como exerc�cio did�tico. Mas o Delphi ja incorporou o m�todo sort para dentro da
classe TARRAY . O Exemplo postado pelo nobre amigo e Moderador Joel Rodrigues pode ser simplificado por

uses
Generics.Collections;

procedure TForm14.Button2Click(Sender: TObject);
var
nums:array[1..3] of Integer;
begin
nums[1] := StrToInt(edtIdade1.Text);
nums[2] := StrToInt(edtIdade2.Text);
nums[3] := StrToInt(edtIdade3.Text);
TArray.Sort<Integer>(Nums);
edtIdade1.Text := IntToStr(nums[1]);
edtIdade2.Text := IntToStr(nums[2]);
edtIdade3.Text := IntToStr(nums[3]);
end;

F�rum delphi7 estrutura if #416645