Bienvenido(a), Visitante. Favor de ingresar o registrarse.

Ingresar con nombre de usuario, contraseña y duración de la sesión

Foros del Club

Encuesta
Pregunta: No sé que está mal con este código
AYUDa - 0 (0%)
sugerencias - 0 (0%)
Total de votos: 0

Páginas: [1]   Ir Abajo
  Enviar tema  |  Imprimir  
Autor Tema: tarea sobre DEV pascal  (Leído 381 veces)
0 Usuarios y 1 Visitante están viendo este tema.
Infinte
Master
**

Prestigio: -1
Desconectado Desconectado

Estudiante de: sistemas
Título universitario: diplomado
Mensajes: 2


« en: 10/03/2009, 14:15:40 »

Consulta ..hola a todos...no sé que es lo que tiene mal esta estructura

Procedure Fact
x, fac : integer;
begin
  WriteLn('Digite el numero del que desea saber su factorial : ') ;
  ReadLn(x) ;
  if x <=0 then
    begin
     fac:=0
    end
  else
    begin
      fac:= x * fac(n-1); ****** me dice que el error está ahí****
      WriteLn('El factorial es:', fac)
    end;
  writeln(' ')
end.
En línea
Foros del Club
   

 En línea
Páginas: [1]   Ir Arriba
  Enviar tema  |  Imprimir  
 
Ir a: