Dryrun10
1.
DECLARE
SUB ABC(A)
CLS
A=2
CALL
ABC(A)
END
SUB
ABC(A)
FOR
J= 1 TO 5
PRINT
A;
A=A+3
NEXT
J
END
SUB
|
A |
J |
Output |
|
2 |
1 |
2
5 8 11 14 |
|
5 |
2 |
|
|
8 |
3 |
|
|
11 |
4 |
|
|
14 |
5 |
|
|
17 |
2.
DECLARE
SUB Result
CALL
Result
END
SUB
Result
N=5
C=1
WHILE
C<=5
PRINT
N
N=N*10+5
C=C+1
WEND
END
SUB
|
N |
C |
Output |
|
5 |
1 |
5 |
|
55 |
2 |
55 |
|
555 |
3 |
555 |
|
5555 |
4 |
5555 |
|
5 |
3.
DECLARE
SUB Series(A)
CLS
A=20
CALL
Series(A)
END
SUB
Series(A)
FOR
K=1 TO 5
PRINT
A;
A=A+10
NEXT
K
END
SUB
|
A |
K |
Output |
|
20 |
1 |
20
30 40 50 60 |
|
30 |
2 |
|
|
40 |
3 |
|
|
50 |
4 |
|
|
60 |
5 |
4.
DECLARE
SUB DISPLAY(A)
CLS
A=3
CALL
DISPLAY(A)
END
SUB
DISPLAY(A)
FOR
X=1 TO 6
PRINT
A;
IF
A MOD 2=0 THEN
A=A/2
ELSE
A=(A*3)+1
ENDIF
NEXT
X
END
SUB
|
A |
X |
Output |
|
3 |
1 |
3
10 5 16 8 4 |
|
10 |
2 |
|
|
5 |
3 |
|
|
16 |
4 |
|
|
8 |
5 |
|
|
4 |
6 |
5.
DECLARE SUB CITY(K$)
CLS
CALL
CITY (“KATHMANDU”)
END
SUB
CITY(K$)
FOR
K=1 TO LEN(K$)
C$=MID$(K$,K,1)
IF
K MOD 2=1 THEN
C$=UCASE$(C$)
ELSE
C$=LCASE$(C$)
END
IF
X$=X$+C$
NEXT
K
PRINT
X$
END
SUB
|
K$ |
K |
C$ |
X$ |
OUTPUT |
|
|
KATHMANDU |
1 |
K |
K |
K |
KaThMaNdU |
|
|
2 |
A |
a |
Ka |
|
|
|
3 |
T |
T |
KaT |
|
|
|
4 |
H |
H |
KaTh |
|
|
|
5 |
M |
M |
KaThM |
|
|
|
6 |
A |
a |
KaThMa |
|
|
|
7 |
N |
N |
KaThMaN |
|
|
|
8 |
D |
d |
KaThMaNd |
|
|
|
9 |
U |
U |
KaThMaNdU |
|
6.
DECLARE SUB SERIES()
CLS
CALL
SERIES
END
SUB
SERIES
A$=”NEPAL”
B=1
FOR
I=1 TO LEN(A$) STEP 2
IF
B<>3 THEN
PRINT
MID$(A$,B,I)
ELSE
PRINT
MID$(A$,1,I)
END
IF
B=B+1
NEXT
I
END
SUB
|
A$ |
B |
I |
output |
|
NEPAL |
1 |
1 |
N |
|
|
2 |
3 |
EPA |
|
|
3 |
5 |
NEPAL |
7.
DECLARE SUB SERIES()
CLS
CALL
SERIES
END
SUB
SERIES
X#=1
FOR
I= 1 TO 5
PRINT
X#*X*
X#=X#*10+1
NEXT
I
END
SUB
|
X# |
I |
OUTPUT |
|
1 |
1 |
1 |
|
11 |
2 |
121 |
|
111 |
3 |
12321 |
|
1111 |
4 |
1234321 |
|
11111 |
5 |
123454321 |
8.
DECLARE SUB SHOW(A,B)
CLS
X=1
Y=2
CALL
SHOW(X,Y)
END
SUB
SHOW(A,B)
DO
I=1
DO
PRINT
A;
A=A+B
B=A+B
I=I+1
LOOP
WHILE I<=5
END
SUB
|
A X |
B Y |
I |
OUTPUT |
|
1 |
2 |
1 |
1
3 8 21 55 |
|
3 |
5 |
2 |
|
|
8 |
13 |
3 |
|
|
21 |
34 |
4 |
|
|
55 |
89 |
5 |
|
|
144 |
233 |
|
|