[Stackoverflow] [Progress OpenEdge ABL] How to create Pascal's triangle in Progress 4GL..?

Status
Not open for further replies.
A

Arifudin Myf

Guest
DEF VAR INPUTAN AS INTEGER. DEF VAR i AS INTEGER. DEF VAR j AS INTEGER. DEF VAR a AS INTEGER. DEF VAR rows AS INT. DEF VAR pascal AS CHAR FORMAT "x(25)".

SET INPUTAN. a = 1.

REPEAT i = 0 TO INPUTAN: rows = i. DISPLAY rows. REPEAT j = 0 TO i :

IF j = 0 OR j = i THEN DO: a = 1. END. ELSE

a = a * (i + 1 - j) / j.

pascal = STRING(a).

display a.

END. END.

Continue reading...
 
Status
Not open for further replies.
Top