Diferencia entre revisiones de «Programación en Pascal/Funciones y procedimientos»
Contenido eliminado Contenido añadido
seccionado y con tags de sources |
si el factorial es 0 da error. por lo tanto cambiamos if num = 0 then factorial := 1 else factorial := num * factorial( num-1 ) (por lo tanto si es 1 hace el factorial del numero anterior cuyo resultado es 1 por 1 asi que da 1) |
||
Línea 307:
function factorial( num : integer) : integer;
begin
if num =
factorial := 1 (* Aseguramos que tenga salida siempre *)
else
|