1.
DECLARE
SUB PATT(A$)
CLS
A$ =
“*”
CALL
PATT(A$)
END
SUB
PATT(A$)
A = 10
FOR I =
1 TO 11 STEP 2
PRINT
TAB(A); STRING$(I,A$)
A = A-1
NEXT
END SUB
2.
DECLARE
SUB CHK (N$())
CLS
FOR I= 1 TO 5
READ N$(I)
NEXT I
CALL CHK (N$())
DATA Patan, Pray, Ada, Cabbage,
English, Samsung
END
SUB CHK (N$())
FOR I = 1 TO 5
S$=-S$+MID$(N$(I)),I,1)
NEXT I
PRINT S$
END SUB
3.
DECLARE
SUB DISPLAY(B$)
CLS
CALL
DISPLAY(“101”)
END
SUB
DISPLAY(B$)
FOR
I=LEN(B$) TO 1 STEP-1
A$=MIS$(B$,I,1)
C=VAL(A$)
D=D+C*8^P
P=P+1
NEXT I
PRINT D
END SUB
4.
DECLARE
SUB RESULT (S$)
CLS
A$=”PROGRAMMER”
CALL RESULT (A$)
END
SUB RESULT (A$)
FOR C= LEN (A$) TO 1 STEP -2
X$= MID$(A$, C, 1)
PRINT X$;
C=C-1
NEXT C
END SUB
5.
DECLARE SUB PRO (A AS INTEGER, B AS STRING)
CLS
N
= 62
CALL
PRO (N, S$)
PRINT
S$
END
SUB
PRO (A AS INTEGER, B AS STRING)
X
= A
DO
R
= X MOD 8
B
= STR$ (R) + B
X
= (X - R) / 8
LOOP
UNTIL X = 0
END
SUB
6.
DECLARE
SUB SHOW (ABC$)
CLS
AB$="ZHTUOMENXSA"
CALL SHOW (AB$)
END
SUB SHOW (AB$)
Y=48
FOR I=1 TO 5
N=Y MOD 7
PRINT MID$(AB$, N, 1);
Y=Y-1
NEXT I
END SUB
7.
DECLARE
SUB RESULT ( )
CLS
CALL RESULT
END
CLS
CALL RESULT
END
SUB RESULT ()
W$="SCIENCE"
L=LEN (W$)
X=1: Y=3
FOR I= 1 TO L STEP 2
PRINT TAB (Y); MID$(W$, X, L)
X=X+1
L=L-2
Y=Y+1
NEXT I
END SUB
8.
DECLARE
SUB RESULT(A$)
A$ = "EDUCATION"
CALL RESULT(A$)
END
CALL RESULT(A$)
END
SUB RESULT (A$)
FOR C = 1 TO LEN(A$) STEP 2
X$ = MID$(A$, C, 1)
PRINT X$
NEXT C
END SUB
9.
DECLARE
SUB RESULT(N$)
N$ = "SCIENCE"
CALL RESULT(N$)
END
CALL RESULT(N$)
END
SUB RESULT (N$)
B = LEN(N$)
COUNT = 1
WHILE COUNT <= B
X$ = X$ + MID$(N$, COUNT, 1)
COUNT = COUNT + 2
WEND
PRINT X$
END SUB
10.
DECLARE
SUB TEST(A$)
CLS
A$="NEPAL"
CALL TEST(A$)
END
SUB TEST(A$)
FOR I = 1 TO LEN(A$)
B$ = MID$(A$, I, 1) + B$
NEXT I
PRINT B$
END SUB
11.
DECLARE
SUB FIRST()
CLS
CALL FIRST
END
SUB FIRST()
A$=”BHAKTAPUR”
FOR I=1 TO LEN(A$)
B$ = MID$(A$,1,I)
PRINT B$
NEXT I
END SUB
12.
DECLARE SUB
PICTURE (ST$)
CLS
X$ = "SCIENCE"
CALL PICTURE(ST$)
END
SUB PICTURE(S$)
T=20
P=4
N=1
FOR A= 1 TO 4
PRINT TAB(T); MID$(ST$,P,N)
P=P-1
N=N+2
T=T-1
NEXT A
END SUB
13.
DECLARE
SUB EVE (BA$)
CLS
CALL EVE("CHOYU")
END
SUB EVE(BA$)
COL=1
FOR I= LEN(BA$) TO 1 STEP -2
PRINT TAB(COL);MID$(BA$,COL,I)
COL=COL+1
NEXT
END SUB
14.
DECLARE
SUB PATTERN (W$)
CLS
LET
W$=”KATHMANDU”
CALL
PATTERN (N$)
END
SUB
PATTERN (N$)
T=5
FOR K=1 TO
LEN(W$) STEP 2
PRINT
TAB(T); MID$(W$,T,K)
T=T-1
NEXT K
END SUB
15.
DECLARE
SUB TEST(N$)
CLS
A$
= “KATHMANDU”
CALL
TEST(A$)
CALL
TEST(“BHAKTAPUR”)
END
SUB
TEST(N$)
FOR
C = 1 TO LEN(N$)
PRINT LEFT$ (N$,C)
NEXT C
END
SUB
16.
DECLARE
SUB PRO (A, B$)
N = 62
INPUT “Enter a word”; S$
CALL PRO (N, S$)
PRINT “End of the Game.”
END
SUB PRO (A , B$)
X = A
DO
R = X MOD 8
B$ = STR$ (R) + B$
X = (X - R) / 8
LOOP UNTIL X = 0
PRINT B$
END SUB
17.
DECLARE SUB PATTERN(S$)
CLS
B$=”PROGRAM”
CALL
PATTERN(B$)
END
SUB
PATTERN(S$)
H=LEN(S$)
I=10
FOR
J=1 TO H STEP 2
PRINT
TAB(I); MID$(S$,J,H)
H=H-2
I=I+1
NEXT
J
END SUB
I think the equation was mistake.Please slove it.
ReplyDelete