Data update
This commit is contained in:
parent
81fd053722
commit
52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
10
Task/Pascals-triangle/Chipmunk-Basic/pascals-triangle.basic
Normal file
10
Task/Pascals-triangle/Chipmunk-Basic/pascals-triangle.basic
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
10 let row = 12
|
||||
20 for i = 0 to row
|
||||
30 let c = 1
|
||||
40 print tab (37-i*3);
|
||||
50 for k = 0 to i
|
||||
60 print using " #### ";c;
|
||||
70 let c = c*(i-k)/(k+1)
|
||||
80 next
|
||||
90 print
|
||||
100 next
|
||||
9
Task/Pascals-triangle/MSX-Basic/pascals-triangle.basic
Normal file
9
Task/Pascals-triangle/MSX-Basic/pascals-triangle.basic
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
10 INPUT "Number of rows? "; R
|
||||
20 FOR I = 0 TO R-1
|
||||
30 LET C = 1
|
||||
40 FOR K = 0 TO I
|
||||
50 PRINT USING "####"; C;
|
||||
60 LET C = C * (I-K) / (K+1)
|
||||
70 NEXT K
|
||||
80 PRINT
|
||||
90 NEXT I
|
||||
9
Task/Pascals-triangle/Yabasic/pascals-triangle.basic
Normal file
9
Task/Pascals-triangle/Yabasic/pascals-triangle.basic
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
input "Number of rows? " r
|
||||
for i = 0 to r-1
|
||||
c = 1
|
||||
for k = 0 to i
|
||||
print c using "####";
|
||||
c = c*(i-k)/(k+1)
|
||||
next
|
||||
print
|
||||
next
|
||||
Loading…
Add table
Add a link
Reference in a new issue