Ayuda con anidaciones IF

[kamikazeee]

Buenas! Estoy aprendiendo hace poco pascal, y intenté hacer un programa que, cuando el usuario introduce 3 números, saca el mayor y menor y los imprime en pantalla

Yo hize ésto:

program mayorymenor; 

var

num1 : integer;
num2 : integer;
num3 : integer;

begin

write ('introduzca el primer número');
readln (num1);
write ('introduzca el segundo número');
readln (num2);
write ('introduzca el tercer número');
readln (num3);

if num1 > num2 then
 if num1 > num3 then
 write ('el mayor es:', num1);
  if num2 > num3 then
  write ('el menor es:', num3);
  else
  write ('el menor es:', num2);
 else
 write ('el mayor es:', num3);
 write ('el menor es:', num2);
else
 if num2 > num3 then
 write ('el mayor es:', num2);
  if num3 > num1 then
  write ('el menor es:', num1);
  else
  write ('el menor es:', num3);
 else
 write ('el mayor es:', num3);
 write ('el menor es:', num1);

end.

Pero al compilar me dice:

(23,3) Fatal syntax error, ";" expected but "ELSE" found.

Cuál es mi problema y cómo lo soluciono? :S

Cada else y cada oracion que corresponde a cada if las puse con la misma sangría.

gracias!

[pangus]

La sintaxis correcta es “if expr then instr else instr”
donde instr puede ser una instrucción sola o “begin instrs end”
donde instrs son 0 o más instr separadas por “;”

O sea... antes del else no va punto y coma.

[DamiVal]

es como dice pangus, la sintaxis es:
IF "condición"
THEN "sentencia simple"
ELSE "sentencia simple"

una sentencia simple ses una única sentencia, por ejemplo asignaciones, otro condicional (IF), una llamada a procedimiento, etc... todas las expresiones que terminan en "punto y coma" ;
si despues de THEN o del ELSE (donde yo puse sentencia simple) vos queres poner MAS DE UNA sentencia simple, tenes que usar un begin y un end;

ejemplo (usando tu codigo):

IF nNum1 > nNum2
THEN
    IF nNum2>nNum3
    THEN
        Begin
        nNumMayor:=nNum1;
        Writeln('el mayor es: ',nNum1)
        end
    ELSE ..........
ELSE .............;

lo que te conviene es usar bien la identacion, es decir, mantener alineados los if-then-else que se corresponden como hice yo arriba, porque te ayuda a entender mejor el codigo y a encontrar mas facilmente el error si es que no anda...

[pangus]

todas las expresiones que terminan en "punto y coma" ;

Ninguna expresión en Pascal termina en punto y coma.

[kamikazeee]

IF nNum1 > nNum2
THEN
    IF nNum2>nNum3
    THEN
        Begin
        nNumMayor:=nNum1;
        Writeln('el mayor es: ',nNum1)
        end
    ELSE ..........
ELSE .............;

lo que te conviene es usar bien la identacion, es decir, mantener alineados los if-then-else que se corresponden como hice yo arriba, porque te ayuda a entender mejor el codigo y a encontrar mas facilmente el error si es que no anda...

si ya sé, las alinié bien, pero, según leí, el ELSE corresponde a el último IF, entonces eso q pusiste vos ahi no andaría :S, o sea los 2 harían caso al último IF


si estoy equivocado correjime por favor

gracias a todos!

[DamiVal]

Ninguna expresión en Pascal termina en punto y coma.

me equivoque, quise decir sentencia...

si ya sé, las alinié bien, pero, según leí, el ELSE corresponde a el último IF, entonces eso q pusiste vos ahi no andaría :S, o sea los 2 harían caso al último IF


si estoy equivocado correjime por favor

gracias a todos!

es cierto, cada ELSE se relaciona al IF mas proximo, osea el ultimo IF, pero si el ultimo if ya tiene un ELSE, se lo relaciona al IF anterior que no tenga ELSE...

proba el codigo que puse yo, deberia andar sin problemas, otra cosa que esta mal es poner un "punto y coma" despues de la sentencia del THEN y despues poner el ELSE, si en el IF queres usar el ELSE, despues del THEN no va punto y coma, el punto y coma le indica al compilador que termino el IF, y no te puede relacionar el ELSE con el IF al que daberia relacionarlo...

no se si me exprese bien, espero que me entiendas lo que quise decir, jeje!

[pangus]

me equivoque, quise decir sentencia...

Sí, lo entendí, y a eso me refería: las sentencias en Pascal no terminan con punto y coma.