O Código esta errado ?

[valterlin]

Estou tentando desenrolar o Codigo mais o meu colega falow que estava errado por causa dessa sequencia de ELSE depois do IF agora fiquei na duvida ele tem razao ?

Programa "Ordemcrescente"

Var A, B, C: inteiro

Begin

Write ("Digite um número:")

Read (A)

Write ("Digite um numero:")

Read (B)

Write ("Digite um número:")

Read ©

IF (A>B) e (B>C) then

Write ("Essa é a ordem crescente: C, B, A”);

Else

IF (B>A) e (A>C) then

Write ("Essa é a ordem crescente: C, A, B”);

Else

IF (C>A) e (A>B) then

Write ("Essa é a ordem crescente: B, A, C”);

Else

IF (B>C) e (C>A) then

Write ("Essa é a ordem crescente: A, C, B”);

Else

IF (A>C) e (C>B) then

Write ("Essa é a ordem crescente: B, C, A”);

Else

IF (C>B) e (B>A) then

Write ("Essa é a ordem crescente: A, B, C”);

End.

Espero que meajudem fuiiiiiiiiiiii

[Jhonas]

Estou tentando desenrolar o Codigo mais o meu colega falow que estava errado por causa dessa sequencia de ELSE depois do IF agora fiquei na duvida ele tem razao ?

Programa "Ordemcrescente"

Var A, B, C: inteiro

Begin
Write ("Digite um número:")
Read (A)
Write ("Digite um numero:")
Read (
Write ("Digite um número:")
Read ©

IF (A>B) e (B>C) then
Write ("Essa é a ordem crescente: C, B, A");

Else
IF (B>A) e (A>C) then
Write ("Essa é a ordem crescente: C, A, B");

Else
IF (C>A) e (A>B) then
Write ("Essa é a ordem crescente: B, A, C");

Else
IF (B>C) e (C>A) then
Write ("Essa é a ordem crescente: A, C, B");

Else
IF (A>C) e (C>B) then
Write ("Essa é a ordem crescente: B, C, A");

Else
IF (C>B) e (B>A) then
Write ("Essa é a ordem crescente: A, B, C");

End.

Observe que voce colocou um ponto e virgula no final do comando... para a sequencia de IF Else ficar correta voce deve retirar todos os pontos e virgulas, caso contrario voce deve finalizar o IF exemplo:

o comando if , que possui a seguinte estrutura: if condition then begin : : end; ou você pode adicionar a parte referente ao else: if condition then begin : : end <-- Note que o ponto-e-vírgula sumiu! else begin : : end;

Então há 2 maneiras de se fazer

Programa "Ordemcrescente"

Var A, B, C: inteiro

Begin
Write ("Digite um número:")
Read (A)
Write ("Digite um numero:")
Read (
Write ("Digite um número:")
Read ©

IF (A>B) e (B>C) then
Write ("Essa é a ordem crescente: C, B, A");
end
Else
IF (B>A) e (A>C) then
Write ("Essa é a ordem crescente: C, A, B");
end
Else
IF (C>A) e (A>B) then
Write ("Essa é a ordem crescente: B, A, C");
end
Else
IF (B>C) e (C>A) then
Write ("Essa é a ordem crescente: A, C, B");
end
Else
IF (A>C) e (C>B) then
Write ("Essa é a ordem crescente: B, C, A");

end
Else
IF (C>B) e (B>A) then
Write ("Essa é a ordem crescente: A, B, C");


End.

ou assim

Programa "Ordemcrescente"

Var A, B, C: inteiro

Begin
Write ("Digite um número:")
Read (A)
Write ("Digite um numero:")
Read (
Write ("Digite um número:")
Read ©

IF (A>B) e (B>C) then
Write ("Essa é a ordem crescente: C, B, A")

Else
IF (B>A) e (A>C) then
Write ("Essa é a ordem crescente: C, A, B")

Else
IF (C>A) e (A>B) then
Write ("Essa é a ordem crescente: B, A, C")

Else
IF (B>C) e (C>A) then
Write ("Essa é a ordem crescente: A, C, B")

Else
IF (A>C) e (C>B) then
Write ("Essa é a ordem crescente: B, C, A")

Else
IF (C>B) e (B>A) then
Write ("Essa é a ordem crescente: A, B, C")

End.

Mais informações:

Comandos Condicionais if e case of

http://www.cin.ufpe.br/~rmfl/IF_CASE.html

abraço

[Paulo_elite]

Código mais enxuto!!!

Pascal:
Program Ordenar;
Var
Menor, N, Maior, Aux: Real;

Begin

Write ('Digite um numero: ');
Readln (Maior);
Write ('Digite um numero: ');
Readln (N);
Write ('Digite um numero: ');
Readln (Menor);
// o fato de os valores já entrarem
//nas variáveis com nomes Maior e Menor
//não significa que realmente o usuário
//digitará nessa ordem.
//se o usuário digitar noutra ordem,
//o programa se encarrega de corrigir.
If (Menor > Maior) Then
Begin
Aux := Maior;
Maior := Menor;
Menor := Aux;
End;
// ao chegar aqui, sei que Maior > Menor
// mas não sei nada sobre N

If (N > Maior) Then
Begin
Aux := Maior;
Maior := N;
N := Aux;
End;
// ao chegar aqui, sei que Maior > N
// preciso me certificar de que N > Menor

If (N < Menor) Then
Begin
Aux := Menor;
Menor := N;
N := Aux;
End;

Write (Menor, ' ', N, ' ' , Maior);

End.

Espero que tenha entendido!