tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Pascals-triangle/PureBasic/pascals-triangle.purebasic
+++ b/Task/Pascals-triangle/PureBasic/pascals-triangle.purebasic
@ -0,0 +1,17 @@
+Procedure pascaltriangle( n.i)
+
+  For i=  0 To  n
+       c = 1
+       For k=0 To i
+             Print(Str( c)+" ")
+         c = c * (i-k)/(k+1);
+        Next ;k
+    PrintN(" "); nächste zeile
+  Next ;i
+
+EndProcedure
+
+OpenConsole()
+Parameter.i = Val(ProgramParameter(0))
+pascaltriangle(Parameter);
+Input()