factorial

Este ejercicio consiste en realizar el factorial de un número entero , que se realiza multiplicando el número por uno menos y así sucesivamente hasta llegar al número 1. Este ejercicio entra dentro de los que se hacen con bucle, en caso con ‘while’ . Tras explicarnos que vamos a calcular el factorial y pedir un número y que el programa lo reconozca, el esquema a seguir será

f : =num;

while num>1 do

begin

num:=num-1;(al número del que vamos calcular el factorial le atribuimos uno menos)

f: =f*num;(de manera que a la variable f,que es resultado, le atribuimos ella misma por el número anterior que cada vez será uno menos)

end;

writeln(‘El factorial del número es : ‘ , f);