[ Foro de Pascal ]

estoy haciendo un menu y me tira sintax error ; ayuda

08-Feb-2021 23:53
Invitado (Wilfred)
1 Respuestas

PROGRAM MENUDEWILFRED;
USES CRT;
VAR
OPCION : INTEGER;
num : integer;
function doble( Numero: integer): integer;
begin
   doble := numero * 2;
BEGIN
 CLRSCR;
  WRITELN('------MENU PRINCIPAL------');
  WRITELN('1.Averiguar si un número es positivo o negativo.');
  WRITELN('2.Elevar un número al cubo');
  WRITELN('3.IVA de una compra');
  WRITELN('4.Quintales a libras.');
  WRITELN('5.Km a pies');
  WRITELN('6.Horas a minutos');
  WRITELN('7.Par o impar');
  WRITELN('4.SALIR');
  WRITELN('QUE OPCION QUIERES?');
  READLN(OPCION);
 
     if (opcion =1) then
      begin
    WriteLn ('Ingresa número');
    ReadLn (num);
    if num > 0 then
         Write ('El Numero que usted eligio es positivo');
    else
         Write ('El Numero que usted eligio es Negativo');
    end;
   
   
   
      if (opcion =2) then
      begin
      write('Introduce un numero entero: ');
   readLn( numero);
   writeLn('Su doble es: ', doble(numero) );
   writeLn('Y el doble de 5 es: ', doble(5) );
   end;
     
     

      begin
        writeln(' SALIENDO..... ');
       END;  
REPEAT UNTIL KEYPRESSED


09-Feb-2021 17:53
Nacho Cabanes (+74)

Para empezar, la función no está cerrada con un "end;": tienes

begin
   doble := numero * 2;
BEGIN






Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...