Category talk:GW-BASIC examples needing attention: Difference between revisions
Content added Content deleted
(GW-BASIC PROGRAM TO GENERATE CATALAN NUMBERS USING PASCAL TRIANGLE) |
m (GW-BASIC PROGRAM TO GENERATE CATALAN NUMBERS USING PASCAL TRIANGLE) |
||
Line 1: | Line 1: | ||
1 REM PC-BASIC (GW-BASIC) PROGRAM TO GENERATE CATALAN NUMBERS |
1 REM PC-BASIC (GW-BASIC) PROGRAM TO GENERATE CATALAN NUMBERS |
||
2 REM USING NUMBER TRIANGLEMATRIX METHOD |
2 REM USING NUMBER TRIANGLEMATRIX METHOD |
||
10 K=16 |
10 K=16 |
||
20 DIM S(K,K) |
20 DIM S(K,K) |
||
30 FOR I=1 TO K |
30 FOR I=1 TO K |
||
40 S(1,I)=1 |
40 S(1,I)=1 |
||
50 NEXT |
50 NEXT |
||
60 FOR I=2 TO K |
60 FOR I=2 TO K |
||
70 FOR J=1 TO I-1 |
70 FOR J=1 TO I-1 |
||
80 LET S(I,J)=S(I-1,J)+S(I,J-1) |
80 LET S(I,J)=S(I-1,J)+S(I,J-1) |
||
90 NEXT |
90 NEXT |
||
100 LET S(I,I)=S(I,I-1) |
100 LET S(I,I)=S(I,I-1) |
||
110 PRINT "Catalan(";I-1;") = ";S(I,I) |
110 PRINT "Catalan(";I-1;") = ";S(I,I) |
||
120 NEXT |
120 NEXT |
||
130 END |
130 END |
Latest revision as of 16:49, 18 July 2020
1 REM PC-BASIC (GW-BASIC) PROGRAM TO GENERATE CATALAN NUMBERS
2 REM USING NUMBER TRIANGLEMATRIX METHOD
10 K=16
20 DIM S(K,K)
30 FOR I=1 TO K
40 S(1,I)=1
50 NEXT
60 FOR I=2 TO K
70 FOR J=1 TO I-1
80 LET S(I,J)=S(I-1,J)+S(I,J-1)
90 NEXT
100 LET S(I,I)=S(I,I-1)
110 PRINT "Catalan(";I-1;") = ";S(I,I)
120 NEXT
130 END