Qbasic Program: N, Ne, Nep, Nepa, Nepal

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

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

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

266. WAP to display

N

E

P

A

L

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT MID$(S$, I, 1)

NEXT I

END SUB

267. WAP to display

L

A

P

E

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 MID$(S$, I, 1)

NEXT I

END SUB

268. WAP to display

N

   E

      P

        A

            L

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT TAB(I); MID$(S$, I, 1)

NEXT I

END SUB

269. WAP to display

L

   A

      P

        E

            N

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

B = 1

FOR I = LEN(S$) TO 1 STEP -1

PRINT TAB(B); MID$(S$, I, 1)

B = B + 1

NEXT I

END SUB

270. WAP to display

NEPAL

EPA

P

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

A = 1

FOR I = LEN(S$) TO 1 STEP -2

PRINT MID$(S$, A, I)

A = A + 1

NEXT I

END SUB

271. WAP to display

P

EPA

NEPAL

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

A = 3

FOR I = 1 TO LEN(S$) STEP 2

PRINT MID$(S$, A, I)

A = A - 1

NEXT I

END SUB

272. WAP to display

NEPAL

   EPA

     P

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

A = 1

FOR I = LEN(S$) TO 1 STEP -2

PRINT TAB(A); MID$(S$, A, I)

A = A + 1

NEXT I

END SUB

273. WAP to display

   P

EPA

NEPAL

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

A = 3

FOR I = 1 TO LEN(S$) STEP 2

PRINT TAB(A); MID$(S$, A, I)

A = A - 1

NEXT I

END SUB

274. WAP to display

*

**

***

****

*****

******

*******

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "*******"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT I

END SUB

275. WAP to display

*******

******

*****

****

***

**

*

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "*******"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = LEN(S$) TO 1 STEP -1

PRINT LEFT$(S$, I)

NEXT I

END SUB

276. WAP to display

*

**

***

****

*

**

***

****

*

*

*

*

CLS

S$ = "****"

FOR I = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT I

FOR J = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT J

FOR K = 1 TO LEN(S$)

PRINT MID$(S$, K, 1)

NEXT K

END

USING SUB PROCEDURE

DECLARE SUB PATTERN1 (S$)

DECLARE SUB PATTERN (S$)

CLS

S$ = "****"

CALL PATTERN(S$)

CALL PATTERN(S$)

CALL PATTERN1(S$)

END

SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT I

END SUB

SUB PATTERN1 (S$)

FOR K = 1 TO LEN(S$)

PRINT MID$(S$, K, 1)

NEXT K

END SUB