N NE NEP NEPA NEPAL PATTERN 251. WAP to display N NE NEP NEPA NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT LEFT$(S$, I) NEXT I END SUB 252. WAP to display L AL PAL EPAL NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT RIGHT$(S$, I) NEXT I END SUB 253. 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 253. 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 254. WAP to display N E P A L USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB P...
Comments
Post a Comment