File: pascaltr.bas

package info (click to toggle)
bwbasic 2.20pl2-11
  • links: PTS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch, wheezy
  • size: 1,236 kB
  • sloc: ansic: 21,001; makefile: 80
file content (16 lines) | stat: -rw-r--r-- 415 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
100   dim pascal(14,14)
110   pascal(1,1) = 1
120   for i = 2 to 14
130           pascal(i,1) = 1
140           for j = 2 to i
150                   pascal(i,j) = pascal(i-1,j)+pascal(i-1,j-1)
160           next j
170   next i
180   for i = 1 to 14
190           print i-1; ": ";
200           for j = 1 to i
210                   print pascal(i,j);
220           next j
230           print 
240   next i
250   end