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...
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...