Needing help with nested conditions

Fri, 10 Jul 2009 00:00:27 -0700

Hi! I've recently started learing pascal, and i was trying here to do a program that asks for the user to enter 3 numbers, calculate the biggest and the least ( > and < bad english) and print the results on the screen
this was my attempt:

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.

But when i compile it :

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

What is the problem? How do i solve it?

Every "else" and statement that corresponds to each If has the same indentation, and i think here is the problem

gracias!

PD: Introduzca el primer numero = enter the first number
" " segundo " = " " 2º "
" " tercer " = " " 3º "

el menor es= the least is
el mayor es= the biggest is

Re: Needing help with nested conditions

Fri, 10 Jul 2009 23:59:25 -0700

else cannot be preceded by a semicolon, but there's more wrong with your code than that. Unless grouped together by begin/end, an if acts on only a single statement. I have not studied your code in detail but I think this is what you want.

program mayorymenor;

var
   num1  : integer;
   num2  : integer;
   num3  : integer;
   mayor : integer;
   menor : 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);

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

   menor := num1;
   if num2 < menor then
      menor := num2;
   if num3 < menor then
      menor := num3;
   write ('el menor es: ', menor)
end.

'Needing help with nested conditions' Thread RSS Feed

Needing help with nested conditions

Re: Needing help with nested conditions