17 lines
238 B
Text
17 lines
238 B
Text
PROGRAM:PASCALTR
|
|
:Lbl IN
|
|
:ClrHome
|
|
:Disp "NUMBER OF ROWS"
|
|
:Input N
|
|
:If N < 1:Goto IN
|
|
:{N,N}→dim([A])
|
|
:"CHEATING TO MAKE IT FASTER"
|
|
:For(I,1,N)
|
|
:1→[A](1,1)
|
|
:End
|
|
:For(I,2,N)
|
|
:For(J,2,I)
|
|
:[A](I-1,J-1)+[A](I-1,J)→[A](I,J)
|
|
:End
|
|
:End
|
|
:[A]
|