Frankly speaking i dont know what permutations and combinations are myself. but i still did it.
function getPositiveInteger : int
var n : int
loop
get n
exit when n > 0
put "Positive interger please " ..
end loop
result n
end getPositiveInteger
%--------------------------------------------
function Factorial (n : int) : real
var N : real := 1
for j : 1 .. n
N := N * j
end for
result N
end Factorial
%-----------------------------------------
function Permutation (n, r : int) : real
var p : real
p := Factorial(n)/ Factorial(n - r)
result p
end Permutation
%----------------------------------------
function Combination (n, r : int) : real
var c : real
c := Factorial(n) / (Factorial(r)* Factorial(n-r))
result c
end Combination
%------------------*Main Program-------------------------
colorback(91)
cls
color (black)
var num1, num2 : int
var a, b : real
put "Please enter a positive number"
num1 := getPositiveInteger
put "Please enter another positve number"
num2 := getPositiveInteger
if num1 >= num2 then
a := Permutation(num1,num2)
put "Permutation of ", num1 ," & " ,num2, " is " , a : 9 : 0
b := Combination (num1,num2)
put "Combination of ", num1 ," & ", num2, " is ", b : 9:0
end if
i dont understand whats going on myself, but thx for sharing anyway
+7Bits - Tony