13 lines
169 B
Text
13 lines
169 B
Text
PROGRAM:PASCALTR
|
|
:Lbl IN
|
|
:ClrHome
|
|
:Disp "NUMBER OF ROWS"
|
|
:Input N
|
|
:If N < 1:Goto IN
|
|
:{N,N}→dim([A])
|
|
:For(I,2,N)
|
|
:For(J,2,I)
|
|
:(I-1) nCr (J-1)→[A](I,J)
|
|
:End
|
|
:End
|
|
:[A]
|