Ejemplo de Algoritmo para calcular combinaciones y factoriales (PseInt)

Proceso FactorialyCombinacion
Definir tipo como entero;
Definir elementos como entero;
Definir grupo como entero;
Definir combinacion como real;
Definir factorial como entero;
Definir i como entero;

Escribir "Ingrese el tipo de computo";
Escribir "1.- Calculo de Combinaciones";
Escribir "2.- Calculo de Factorial";

Leer tipo;

Si tipo = 1 Entonces
Escribir "Ingrese la cantidad de elementos";
Leer elementos;
Escribir "Ingrese el tamaño de los grupo (de 2 en 2, 3 en 3):";
Leer grupo;
combinacion <- 1;
Para i <- 0 Hasta grupo - 1 Con Paso 1 Hacer
combinacion <- combinacion * ((elementos - i)/(grupo- i));
FinPara
Escribir "La cantidad de combinaciones es: ", combinacion;
Sino
Escribir "Ingrese la cantidad de elemntos";
Leer elementos;
factorial <- 1;
Para i <- 1 Hasta elementos Con Paso 1 Hacer
factorial <- factorial * i;
FinPara
Escribir "El Factorial ",elementos,"! es: ", factorial;
FinSi

FinProceso

El enlace al algoritmo es el siguiente: http://dengee.net/a6y9c