Este programa esta creado con el único fin de servir de ejemplo para la programación mediante el uso de funciones recursivas, que puedan servir para posteriormente para programar otros como el programa del determinante expuesto en esta misma página.
program factorial(input,output);
var
n:integer;
function fact(m:integer):integer;
begin
if m>0 then
fact:=m*fact(m-1)
else
fact:=1;
end;
begin
write('Introduzca el numero: '); readln(n);
n:=fact(n);
write('El factorial vale: ',n);
readln
end.
Aqui les dejo un video con algo de explicacion:
Espero que les sirva. Salud.
puedes resolver este ya mismo?
ResponderEliminarse tienen tres valores unidimensionales. el primero almacenará el nombre de casa estudiante, el segundo el apellido y el tercero almaceñará la calificación en una asignatura de N estudiantes. El profesor quiere hacer una concesión a cada estudiante pretendiendo aumentarles la calificación y lo hace de la siguiente manera: si menos de 5 estudiantesobtuvieron calificaciones de 95 a más, a cada estudiante se le suman los puntos a su calificación inicial obteniéndose la calificcación final de 100; si menos de 5 estudiantes obtuvieron 85 a menos de 90, se le suman 5 puntos para llegar a su nota final; en caso contrario,se le agregan solo 3 untos a la calificación de cada alumno (ningún alumno debe recibir una calificación de mas de 100 puntos). escriba un programa donde se imprima primero los tres arreglos tal y como fueron leidos y posteriormente imprima los tres arreglo pero con el ajuste hecho en la calificación de cada alumno. resuelto en pascal
cuando quieres buscar el factorial de 8 resuelve mal
ResponderEliminar