| 1) | 123456785
54
543
5432
54321
| 123456789CLS
FOR i = 5 TO 1 STEP -1
FOR j = 5 TO i STEP -1
PRINT j;
NEXT j
PRINT
NEXT i
END
|
| 2) | 123456754321
5432
543
54
5
| 12345678CLS
FOR i = 1 TO 5 STEP 1
FOR j = 5 TO i STEP -1
PRINT j;
NEXT j
PRINT
NEXT i
END
|
| 3) | 123456781
12
123
1234
12345
| 12345678CLS
FOR i = 1 TO 5
FOR j = 1 TO i
PRINT j;
NEXT j
PRINT
NEXT i
END
|
| 4) | 1234567812345
1234
123
12
1
| 12345678CLS
FOR i = 5 TO 1 STEP -1
FOR j = 1 TO i STEP 1
PRINT j;
NEXT j
PRINT
NEXT i
END
|
| 5) | 123456781
22
333
4444
55555
| 12345678CLS
FOR i = 1 TO 5
FOR j = 1 TO i
PRINT i;
NEXT j
PRINT
NEXT i
END
|
| 6) | 1234567855555
4444
333
22
1
| 12345678CLS
FOR i = 5 TO 1 STEP -1
FOR j = 1 TO i STEP 1
PRINT i;
NEXT j
PRINT
NEXT i
END
|
| 7) | 12345678910
*
***
*****
*******
*********
| 12345678CLS
s$ = "*********"
t = 10
FOR i = 1 TO LEN(s$) STEP 2
PRINT TAB(t); LEFT$(s$, i)
t = t - 1
NEXT i
END
|
| 8) | 12345672
22
222
2222
22222
| 1234567CLS
n = 2
FOR i = 1 TO 5
PRINT n
n = n * 10 + 2
NEXT i
END
|
| 9) | 123456781
11
111
1111
11111
| 1234567CLS
n = 1
FOR i = 1 TO 5
PRINT n
n = n * 10 + 1
NEXT i
END
|
| 10) | 1234567811111
1111
111
11
1
|
1234567CLS
n = 11111
FOR i = 1 TO 5
PRINT n
n = n \ 10
NEXT i
END
|
| 11) |
123456789R
ER
TER
UTER
PUTER
MPUTER
OMPUTER
COMPUTER
|
123456CLS
X$ = "COMPUTER"
FOR i = 1 TO LEN(X$)
PRINT RIGHT$(X$, i)
NEXT i
END
|
| 12) | 123456789C
CO
COM
COMP
COMPU
COMPUT
COMPUTE
COMPUTER
|
123456CLS
X$ = "COMPUTER"
FOR i = 1 TO LEN(X$)
PRINT LEFT$(X$, i)
NEXT i
END
|
| 13) | 1234567*
**
***
****
*****
|
123456CLS
a$ = "*****"
FOR i = 1 TO LEN(a$)
PRINT LEFT$(a$, i)
NEXT i
END
|
| 14) |
1234567*****
****
***
**
*
|
123456CLS
a$ = "*****"
FOR i = LEN(a$) TO 1 STEP -1
PRINT LEFT$(a$, i)
NEXT i
END
|
| 15) | 12345678*********
*******
*****
***
*
|
123456CLS
a$ = "*********"
FOR i = LEN(a$) TO 1 STEP -2
PRINT LEFT$(a$, i)
NEXT i
END
|
| 16) | 12345678*********
*******
*****
***
*
|
12345678910CLS
x$ = "*********"
b = 1
t = 20
FOR i = LEN(x$) TO 1 STEP -2
PRINT TAB(t); MID$(x$, b, i)
b = b + 1
t = t + 1
NEXT i
END
|
Need more patterns ? click here ... (Patterns in QBASIC SET-2)
Post a Comment
EmoticonClick to see the code!
To insert emoticon you must added at least one space before the code.