How to create Pascal?

Question

I am very difficult to display all the output results.

this code.

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.

score 1 · Accepted Answer · answered Jun 22 '21 at 07:59

1

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.

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.

   IF j = 0 THEN
      pascal = pascal + FILL("   ", INPUTAN - i).
   pascal = pascal + STRING(a) + "   ".

   IF j = i THEN
      pascal = pascal + CHR(13).

 /*  display a.*/

 END. 

END.

MESSAGE pascal
   VIEW-AS ALERT-BOX INFO BUTTONS OK.

answered Jun 22 '21 at 07:59

FloW

1,211
6
13

already working but not tidy the result is 1 by one line is there any solution..?? – Arifudin Myf Jun 22 '21 at 08:26
thaks brother for suport :) – Arifudin Myf Jun 22 '21 at 08:39
@StefanDrissen your code error in "do j = 0 to irow:" – Arifudin Myf Jun 23 '21 at 01:50
Sorry, I was giving the variables more meaningful names since I have an intense dislike for i and j, but then couldn’t be bothered anymore, change def var i to def var j - abldojo does not want to give my iPad the updated link. – Stefan Drissen Jun 23 '21 at 05:28
updated example https://abldojo.services.progress.com/?shareId=60d2d3539585066c2197996d – Stefan Drissen Jun 23 '21 at 06:23

How to create Pascal?

1 Answers1