QBasic Programming

WAP to display

NEPAL
EPAL
PAL
AL
L
USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)
CLS
S$ = "NEPAL"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
FOR I = LEN(S$) TO 1 STEP - 1
PRINT RIGHT$(S$, I)
NEXT I
END SUB
265. WAP to display
NEPAL
NEPA
NEP
NE
N

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)
CLS
S$ = "NEPAL"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
FOR I = LEN(S$) TO 1 STEP - 1
PRINT LEFT$(S$, I)
NEXT I
END SUB

WAP to display (Prev Lesson)
(Next Lesson) WAP to display
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!