1. [SEE MODEL SET]
DECLARE SUB SHOW(A)
CLS
N=87
CALL SHOW(N)
END
SUB SHOW(A)
DO
B=A MOD 6+3
IF B MOD 4=0 THEN GOTO AA
PRINT B;
AA:
A=A-10
LOOP WHILE A>=50
END SUB
2. [SEE 2080 GI]
DECLARE FUNCTION
Series (N)
CLS
A=2
PRINT "Sum of
the series"; Series (A)
END
FUNCTION Series
(N)
Sum=0
FOR J = 1 TO 4
Sum=Sum + N
N=N+3
NEXT J
Series= Sum
END FUNCTION
3. [SEE 2080]
DECLARE FUNCTION SQN (N)
S=0
FOR L=1 TO 3
READ NUM
S=S+SQN (NUM)
NEXT L
PRINT "Sum of square"; S
DATA 1, 4, 5
END
FUNCTION SQN (N)
SQN = N^2
END FUNCTION
4. [SEE 2079 GP]
DECLARE SUB Result (C$)
C$= “COMPUTER"
CALL Result (C$)
END
SUB Result (C$)
FOR C=1 TO LEN(C$) STEP 2
M$=MIDS (C$,C,1)
N$=N$+M$
NEXT C
PRINT N$
END SUB
5. [SEE 2079]
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
6. [SEE 2078]
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
7. [PABSON PB
2081]
CLS
P=1: Q=1
CALL DISP(P,Q)
END
SUB DISP(M,N)
WHILE (N<=5)
PRINT M
M=M*10+N
N=N+1
WEND
END SUB
8. [PABSON PQ
2081]
DECLARE FUNCTION
OUT (A, B)
CLS
A=17
B=7
PRINT OUT (A, B)
END
FUNCTION OUT (A,
B)
R=A MOD B
IF R MOD 2=0 THEN
C=R MOD 6+30
ELSE
C=R MOD 6+15
ENDIF
D=C\5
OUT=D
END FUNCTION
9. [PABSON MT 2081 A]
DECLARE SUB Show (XY$)
CLS
XY$ = "HTUOMENXSA"
CALL Show(XY$)
END
SUB Show(XY$)
A = 47
FOR I = 1 TO 5
N = A
MOD 7
PRINT
MID$(XY$, N, 1)
A = A
- 1
NEXT I
END SUB
10. [PABSON MT 2081 B]
DECLARE SUB
RESULT(S$)
S$ ="
SCIENCE"
CALL RESULT(S$)
END
SUB RESULT(S$)
B=LEN(S$)
C=1
WHILE C<=B
X$=X$+(MID$(S$,C,1)
C=C+2
WEND
PRINT X$
END SUB
11. [PABSON FT 2081 A]
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
12. [PABSON FT 2081 B]
DECLARE SUB SERU (
)
CALL SERU
END
SUB SERU ( )
X=2
C=1
WHILE C<=10
S=X^C
PRINT S;
C=C+1
WEND
END SUB
13. [PABSON FT 2080]
DECLARE SUB series
( )
CLS
CALL series
END
SUB series ( )
A=11111
C=5
WHILE C>=1
PRINT A;
A=A\10
C=C-1
WEND
END SUB
14. [PABSON MT 2080]
DECLARE SUB CS(A)
CLS
A=2
CALL CS(A)
END
SUB CS(A)
FOR I=1 to 5
PRINT A;
A=A+3
NEXT I
END SUB
15. [PABSON MT 2080]
DECLARE SUB show (
)
CLS
CALL show
END
SUB show ( )
FOR I = 1 TO 7
STEP 3
S=S+I^3
NEXT I
PRINT S
END SUB
16. [PABSON PB
2079 D]
DECLARE SUB SERI()
CLS
CALL SERI
END
SUB SERI
X# = 1
FOR I = 1 TO 5
PRINT X# * X#
X# = X# * 10 +1
NEXT I
END SUB
17. [PABSON PB
2079 C]
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES ( )
X=1
Y=2
FOR P =1 TO 10
PRINT X;
X=X+Y
Y=Y+1
NEXT P
END SUB
18. [PABSON PB
2079 B]
DECLARE SUB NUMBER ()
CLS
CALL NUMBER
END
SUB NUMBER
N=3
C=1
WHILE C<=5
PRINT N
N=N*10+3
C=C+1
WEND
END SUB
19. [PABSON PB 2079
A]
DECLARE SUB PATTERN(N)
CALL PATTERN
END
SUB PATTERN
A=2
FOR I=1 TO 5
PRINT A;
A=A+2
NEXT I
END SUB
20. [PABSON MT
2079]
DECLARE SUB Num (
)
CLS
CALL Num
END
SUB Num
N=2
A=5
C=1
WHILE C <= 9
PRINT N
N=N*3+A
A=A-1
C=C+2
WEND
END SUB
21. [PABSON FT
2079]
DECLARE SUB result
( )
CLS
CALL result
END
SUB result ( )
FOR I = 9 to 1
step -2
Sum = sum + i^2
NEXT i
PRINT sum
END SUB
22. [PABSON PB
2078]
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
END IF
NEXT X
END SUB
23. [PABSON PB
2077]
DECLARE SUB Result
(A)
A=2
CALL Result (A)
END
SUB Result (A)
WHILE A<=10
IF A MOD 4 = 0
THEN S=S+A
A=A+1
WEND
PRINT S
END SUB
24. [PABSON PB 2076]
DECLARE SUB show
(abc$)
CLS
abc$ =
"ZHTUOMENXSA"
CALL show(abc$)
END
SUB show (abc$)
y = 48
FOR I = 1 TO 5
n
= y MOD 7
PRINT
MID$(abc$, n, 1);
y = y - 1
NEXT I
END SUB
25. [PABSON MT
2076]
DECLARE SUB NUM( )
CLS
CALL NUM
END
SUB NUM
A=3: B=7
FOR I =1 TO 5 STEP
2
PRINT A;
SWAP B, A
B=A+1
NEXT I
END SUB
26. [SEE 2075
U]
DECLARE FUNCTION
SUM ( a )
CLS
a = 9
PRINT SUM ( a )
END
FUNCTION SUM ( a )
FOR K = 1 to a
IF K MOD 2 = 0
THEN
S = S + K
END IF
NEXT K
SUM = S
END FUNCTION
27. [SEE 2075 S2]
DECLARE FUNCTION
SQD(N)
CLS
S = 0
FOR L = 1 TO 3
READ
NUM
S
= S + SQD(NUM)
NEXT L
PRINT
"Sum"; S
DATA 2,4,6
END
FUNCTION SQD (N)
SQD = N ^ 2
END FUNCTION
28. [SEE 2075]
DECLARE SUB
series()
CALL series
END
SUB series
X = 1
FOR K = 1 TO 4
PRINT
X;
X
= X + K
NEXT K
END SUB
29. [SEE 2074 U]
DECLARE SUB
REMINDER (R)
CLS
FOR I = 1 TO 4
READ X
CALL REMINDER (X)
NEXT I
DATA 56, 28, 8, 48
END
SUB REMINDER (R)
R1 = R MOD 4
R2 = R MOD 3
IF R1 = 0 AND
R2<> 0 THEN
PRINT R
END IF
END SUB
30. [SEE 2073 U]
DECLARE SUB CHECK
(N)
CLS
N = 1436
CALL CHECK (N)
END
SUB CHECK (N)
DO WHILE n<
>0
R = N MOD 10
S = S*10+R
N = N\10
LOOP
PRINT "NOW N
BECOMES"; S
END SUB
31. [SEE 2074]
DECLARE SUB
Display (T$)
CLS
T$ = "COMPUTER"
CALL Display (T$)
END
SUB Display (T$)
FOR C = 1 to LEN (T$) STEP 2
D$ = MID$(T$, C, 1)
PRINT D$;
NEXT C
END SUB
32. [SEE 2073]
DECLARE FUNCTION
AREA (L, B)
CLS
LET L = 50
LET B = 10
LET ans = “; ans
PRINT “The area=”;
ans
END
FUNCTION AREA (L,
B)
Ar=L*B
AREA=ar
END FUNCTION
33. [SEE 2072]
DECLARE FUNCTION
Interest(p,t,r)
CLS
LET p=100
LET t=2
LET r=5
LET
d=Interest(p,t,r)
PRINT “The simple
interest=”;d
END
FUNCTION Interest
(p,t,r)
Interest=(p*t*r)/100
End FUNCTION
34. [SLC 2071]
DECLARE FUNCTION
AVGE(A,B,C)
X=10
Y=5
Z=15
AV= AVGE(X,Y,Z)
RPINT “Average of
three numbers”; AV
END
FUNCTION AVGE(A,
B, C)
S=A+B+C
AVGE = S/3
END FUNCTION
35. [SLC 2071 S]
DECLARE FUNCTION
test (N)
CLS
FOR Ctr = 1 TO 3
READ N
Sum = Sum + test
(N)
NEXT Ctr
PRINT “The
result=”; Sum
DATA 3, 2, 1
END
FUNCTION test (N)
Test = N^2
END FUNCTION
36. [SLC 2070 S]
DECLARE FUNCTION
test (N)
CLS
FOR Ctr = 1 TO 3
READ N
Sum = Sum + test
(N)
NEXT Ctr
PRINT “The
result=”; Sum
DATA 3, 2, 1
END
FUNCTION test (N)
Test = N^2
END FUNCTION
37. [SLC 2069 S]
DECLARE SUB
Series()
CLS
CALL Series
END
SUB Series
A=1
B=1
FOR I =
1 TO 2
PRINT
A; B;
A=A+B
B=A+B
NEXT I
END SUB
38. [SLC 2068]
DECLARE SUB
Series()
CLS
CALL Series
END
SUB Series
A=2
B=2
FOR ctr
= 1 TO 2
PRINT
A; B;
A=A+B
B=A+B
NEXT ctr
END SUB
39. [SLC 2066 S]
DECLARE SUB Result ()
CALL Result
END
SUB Result
For I = 1 to 9 STEP 2
Sum=Sum +I^2
Next I
PRINT Sum
END SUB
40. [SLC 2065]
DECLARE SUB RESULT(A$)
A$ = "education"
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
41. [SLC 2066]
DECLARE SUB
Series()
CALL Series
END
SUB Series
X=1
Y=1
FOR Z=1 TO 4
PRINT X;
Y=Y+1
X=X*10+Y
NEXT Z
END SUB
42. [SEE VP 2077]
DECLARE FUNCTION
OUTPUT1(A)
CLS
N=135
CALL OUTPUT1(N)
END
SUB OUTPUT1(A)
DO WHILE A <
> 0
R = A MOD 10
T = T + R
A = A \ 10
LOOP
PRINT T
END SUB
43. [NPABSAN 2081]
DECLARE SUB series ()
CALL series
END
SUB series ()
i = 3
FOR c = 1T0 5
PRINT i *c^2;
NEXT c
END SUB
44. [NPABSAN 2080]
DECLARE SUB
Display(S$)
CLS
S$=”TOEPOHSDRA"
CALL Display (S$)
END
SUB Display(S$)
LET I=48
FOR C=1 TO 4
P=I MOD 7
R$=R$+ MID$(S$, P,
1)
I=I-1
NEXT C
PRINT R$
END SUB
45. [NPABSAN 2080
A]
DECLARE SUB display(E$)
CLS
E$=”National”
CALL display(E$)
END
SUB display(E$)
FOR I= 1 to LEN(E$) step 2
B$=MID$(A$,I,1)
PRINT B$;
NEXT I
END SUB
46. [NPABSAN 2079]
DECLARE FUNCTION ABC$(X$)
CLS
INPUT "Enter a
string"; A$
PRINT
ABC$("COMPUTER")
END
FUNCTION ABC$(X$)
C=4
FOR i=1 to 1
BS=MID$(X$,4,3)
NEXT I
ABC$=B$
END FUNCTION
47. [NPABSAN 2078]
DECLARE
FUNCTION FACT (N)
CLS
N=5
PRINT
FACT (N)
END
FUNCTION
FACT (N)
F=1
FOR
I=1 TO N
F=F*I
NEXT
I
FACT=F
END FUNCTION
48. [SEDIPS 2081]
DECLARE SUB DISPLAY ( )
CLS
CALL DISPLAY
END
SUB DISPLAY
LET N = 100
DO UNTIL N < 50
R=N MOD 9+3
IF R MOD 4=0 THEN GOTO BOTTOM
PRINT R
BOTTOM:
N=N-10
LOOP
END SUB
49. [SEDIPS 2080]
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
A$="NEPAL"
B=1
FOR I=LEN(A$) TO 1 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
50.
[SEDIPS 2079]
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
No comments:
Post a Comment