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/Locomotive-Basic/pascals-triangle.locomotive
+++ b/Task/Pascals-triangle/Locomotive-Basic/pascals-triangle.locomotive
@ -0,0 +1,12 @@
+10 CLS
+20 INPUT "Number of rows? ", rows:GOSUB 40
+30 END
+40 FOR i=0 TO rows-1
+50 c=1
+60 FOR k=0 TO i
+70 PRINT USING "####";c;
+80 c=c*(i-k)/(k+1)
+90 NEXT
+100 PRINT
+110 NEXT
+120 RETURN