15 lines
303 B
Text
15 lines
303 B
Text
CALL Pascal(30)
|
|
|
|
SUBROUTINE Pascal(rows)
|
|
CHARACTER fmt*6
|
|
WRITE(Text=fmt, Format='"i", i5.5') 1+rows/4
|
|
|
|
DO row = 0, rows-1
|
|
n = 1
|
|
DO k = 0, row
|
|
col = rows*(rows-row+2*k)/4
|
|
WRITE(Row=row+1, Column=col, F=fmt) n
|
|
n = n * (row - k) / (k + 1)
|
|
ENDDO
|
|
ENDDO
|
|
END
|