| .FOR...NEXT Statement Programming Example. |
|
 QuickSCREEN Details Example Contents Index |
| ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ |
| FOR...NEXT Statement Programming Example |
|
| This example prints the first 11 columns of Pascal's triangle: |
| |
| 'Print the first MAXCOL columns of Pascal's Triangle, in which |
| 'each number is the sum of the number immediately above it |
| 'and the number immediately below it in the preceding column. |
| |
| CLS ' Clear screen |
| CONST MAXCOL=11 |
| DIM A(MAXCOL,MAXCOL) |
| FOR M = 1 TO MAXCOL |
| A(M,1) = 1 : A(M,M) = 1 'Top and bottom of each column is 1. |
| NEXT |
| FOR M = 3 TO MAXCOL |
| FOR N = 2 TO M-1 |
| A(M,N) = A(M-1,N-1) + A(M-1,N) |
| NEXT |
| NEXT |
| Startrow = 13 'Go to the middle of the screen. |
| FOR M = 1 TO MAXCOL |
| Col = 6 * M |
| Row = Startrow |
| FOR N = 1 TO M |
| LOCATE Row,Col : PRINT A(M,N) |
| Row = Row + 2 'Go down 2 rows to print next number. |
| NEXT |
| PRINT |
| Startrow = Startrow - 1 'Next column starts 1 row above |
| NEXT 'preceding column. |
| |
| Output |
| |
| 1 |
| 1 |
| 1 10 |
| 1 9 |
| 1 8 45 |
| 1 7 36 |
| 1 6 28 120 |
| 1 5 21 84 |
| 1 4 15 56 210 |
| 1 3 10 35 126 |
| 1 2 6 20 70 252 |
| 1 3 10 35 126 |
| 1 4 15 56 210 |
| 1 5 21 84 |
| 1 6 28 120 |
| 1 7 36 |
| 1 8 45 |
| 1 9 |
| 1 10 |
| 1 |
| 1 |
