View previous topic :: View next topic
|
Author |
Message |
rayeshu
New User
Joined: 21 Jun 2006 Posts: 3 Location: ahemadbad
|
|
|
|
HI,
ALL HEY I WANT MY OUTPUT LIKE THIS(LIKE WE DO IN C PROGRAMMING WITH 2 FOR LOOPS).
*
* *
* * *
* * * *
* * * * *
MAY I USE LIKE
DISPLAY (ROW, COL) "*"? IT WILL GIVE ERROR.... |
|
Back to top |
|
|
parikshit123
Active User
Joined: 01 Jul 2005 Posts: 269 Location: India
|
|
|
|
I think, following pseudo code will do this for you.
Code: |
WORKING-STORAGE DECLARATION.
*===========================
01 WS-STARS-LINE PIC X(80) VALUE ALL '*'
01 WS-LINE PIC X(80) VALUE ALL SPACES.
01 I PIC 9(03) VALUE ZERO.
PROCEDURE DIVISION.
*===================
PERFORM UNTIL I = NO-OF-LINES
MOVE SPACES TO WS-LINE.
MOVE WS-STARS-LINE(1: I) TO WS-LINE.
ADD 1 TO LINE-NUM
DISPLAY WS-LINE
END-PERFORM
|
|
|
Back to top |
|
|
khamarutheen
Active Member
Joined: 23 Aug 2005 Posts: 677 Location: NJ
|
|
|
|
Hi rayesh,
Hope the following code will do !!!!
Code: |
IDENTIFICATION DIVISION.
PROGRAM-ID. TRIPGM.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 N PIC 9 VALUE 0.
77 I PIC 9 VALUE 1.
77 STR PIC X VALUE "*".
77 J PIC 9 VALUE 0.
PROCEDURE DIVISION.
PARA.
DISPLAY " ".
DISPLAY "ENTER THE LIMIT VALUE ".
ACCEPT N.
PERFORM PARA1.
PARA1.
PERFORM PARA2 VARYING I FROM 1 BY 1 UNTIL I >= N.
PARA2.
PERFORM PARA3 VARYING J FROM 1 BY 1 UNTIL J >= I.
PARA3.
DISPLAY (I,J) "*". |
Output
Quote: |
*
**
***
****
****** |
Quote: |
DISPLAY (ROW, COL) "*"? IT WILL GIVE ERROR.... |
I m not getting such error's ..... |
|
Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
This should work.
Code: |
01 star-line pic x(010) value '*'.
01 pos pic s9(001) value +1 comp.
perform do-stars 5 times
stop run
.
do-stars.
display star-line
add +1 to pos
move '*' to star-line(pos:1)
. |
|
|
Back to top |
|
|
|