17 lines
306 B
Text
17 lines
306 B
Text
Procedure pascaltriangle( n.i)
|
|
|
|
For i= 0 To n
|
|
c = 1
|
|
For k=0 To i
|
|
Print(Str( c)+" ")
|
|
c = c * (i-k)/(k+1);
|
|
Next ;k
|
|
PrintN(" "); nächste zeile
|
|
Next ;i
|
|
|
|
EndProcedure
|
|
|
|
OpenConsole()
|
|
Parameter.i = Val(ProgramParameter(0))
|
|
pascaltriangle(Parameter);
|
|
Input()
|