22 lines
598 B
QBasic
22 lines
598 B
QBasic
|
10 REM Pascal's triangle - Rosetta Code
|
||
|
|
20 NROWS = 8
|
||
|
|
30 DIM R(20)
|
||
|
|
40 FOR ROW = 0 TO NROWS - 1
|
||
|
|
50 REM Build row right-to-left to avoid overwriting
|
||
|
|
60 R(ROW) = 1
|
||
|
|
65 IF ROW < 2 THEN 100
|
||
|
|
70 FOR J = ROW - 1 TO 1 STEP -1
|
||
|
|
80 R(J) = R(J) + R(J-1)
|
||
|
|
90 NEXT J
|
||
|
|
100 R(0) = 1
|
||
|
|
110 REM Print with spacing
|
||
|
|
120 PRINT SPACE$(2 * (NROWS - ROW));
|
||
|
|
130 FOR J = 0 TO ROW
|
||
|
|
140 PRINT USING "####"; R(J);
|
||
|
|
150 NEXT J
|
||
|
|
160 PRINT
|
||
|
|
170 NEXT ROW
|
||
|
|
180 REM Verify a known value: row 7, col 3 = C(7,3) = 35
|
||
|
|
190 IF R(3) <> 35 THEN PRINT "FAIL: C(7,3) should be 35, got"; R(3) : END
|
||
|
|
200 PRINT "Pascal's triangle OK"
|