langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Evaluate-binomial-coefficients/PureBasic/evaluate-binomial-coefficients.purebasic
+++ b/Task/Evaluate-binomial-coefficients/PureBasic/evaluate-binomial-coefficients.purebasic
@ -0,0 +1,21 @@
+Procedure Factor(n)
+  Protected Result=1
+  While n>0
+    Result*n
+    n-1
+  Wend
+  ProcedureReturn Result
+EndProcedure
+
+Macro C(n,k)
+  (Factor(n)/(Factor(k)*factor(n-k)))
+EndMacro
+
+If OpenConsole()
+  Print("Enter value n: "): n=Val(Input())
+  Print("Enter value k: "): k=Val(Input())
+  PrintN("C(n,k)= "+str(C(n,k)))
+
+  Print("Press ENTER to quit"): Input()
+  CloseConsole()
+EndIf