1. [SLC 2064]
DECLARE FUNCTION AREA (A,B)
CLS
LET A = 30
LET B = 40
LET D = AREA(A,B)
PRINT D
END
FUNCTION AREA(A,B)
PRINT A, B
AREA=A*B
END FUNCTION
2. [SLC 2067 S]
DECLARE FUNCTION Area (L,B)
CLS
LET L = 100
LET B = 20
LET ans = Area (L,B)
PRINT "The area is"; ans
END
FUNCTION Area (L, B)
ar = L * B
Area = ar
END FUNCTION
3. [SLC 2068 S] [SLC 2070] [SLC
2073]
DECLARE FUNCTION AREA(L, B)
CLS
LET L = 10
LET B = 5
PRINT "The area=";
AREA(L, B)
END
FUNCTION AREA(L, B)
A = L*B
AREA = A
END FUNCTION
4. [SLC 2071]
DECLARE FUNCTION AVGE(A, B, C)
X=10
Y=5
Z=15
AV= AVGE(X, Y, Z)
PRINT "Average of three
numbers"; AV
END
FUNCTION AVGE(A, B, C)
S=A+B+C
AVGE = S/3
END FUNCTION
5. [SLC 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)
ans= (p*t*r) /100
Interest=ans
END FUNCTION
6. [SLC 2065 S]
DECLARE FUNCTION Interest (p,t,r)
LET p = 30
LET t = 40
LET r = 6
LET d = Interest (p, t, r)
PRINT "The simple interest
will be"; d
END
FUNCTION Interest (p, t, r)
answer= (p*t*r) /100
Interest=answer
END FUNCTION
7. [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
8. [SEE 2079] [SEE 2078 U]
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
9. [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
10. [SLC 2068]
DECLARE SUB Series( )
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
11. [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
12. [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
13. [SEE MODEL 2076]
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
14. [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
15. [SLC 2069] [SEE 2080 PB]
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
16. [SEE 2077 MV]
DECLARE SUB 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
17. [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
18. [SEE 2080 P]
DECLARE SUB show ()
CALL show
END
SUB show
FOR I=1 TO 7 STEP 3
S=S+I^3
NEXT I
PRINT S
END SUB
19. [SEE 2080 PD]
DECLARE SUB SERI()
CALL SERI
END
SUB SERI
X# = 1
FOR I = 1 TO 5
PRINT X# * X#
X# = X# * 10 + 1
NEXT I
END SUB
20. [SEE 2079 P]
DECLARE SUB series()
CALL series
END
SUB series()
A=11111
C=5
WHILE C>=1
PRINT A;
A=A\10
C=C-1
WEND
END SUB
21. [SEE 2078 NP]
DECLARE FUNCTION FACT (N)
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
22. [SEE 2075 U]
DECLARE FUNCTION SUM (a)
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
23. [SEE 2070 S]
DECLARE SUB Series ()
CALL Series
END
SUB Series
X = 0
FOR K = 10 TO 4 STEP -2
A = K ^2
X = X + A
NEXT K
PRINT X
END SUB
24. [SEE 2078 P] [SEE 2080 PH]
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
25. [SLC 2065]
DECLARE SUB RESULT(A$)
CLS
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
26. [SLC 2067]
DECLARE SUB RESULT(N$)
N$ = "SCIENCE"
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
27. [SEE 2074] [SEE 2081]
DECLARE SUB Display (T$)
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
28. [SEE 2078 U] [SEE 2079 U]
DECLARE SUB Result(C$)
C$ = "COMPUTER"
CALL Result(C$)
END
SUB Result(C$)
FOR C=1 TO LEN(C$) STEP 2
M$=MID$(C$, C, 1)
N$=N$+M$
NEXT C
PRINT N$
END SUB
29. [SEE 2080 PM]
DECLARE SUB SERI ( )
CLS
CALL SERI
END
SUB SERI
A$ = "SCIENCE"
B = LEN (A$)
FOR I = 1 TO 4
PRINT TAB(I); MID$(A$, I, B)
B = B - 2
NEXT I
END SUB
30. [DESHL01]
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
31. [SEE 2080 B]
DECLARE FUNCTION TEXT$(A$)
CLS
A$= "TECHNOLOGY"
Y$= TEXT$(A$)
PRINT Y$
END
FUNCTION TEXT$(A$)
B= LEN(A$)
FOR I = 1 TO B
IF I MOD 2 = 1 THEN
B$= B$ + MID$(A$, I, 1)
END IF
NEXT I
TEXT$= B$
END FUNCTION
32. [SEE 2080 NP]
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
33. [SEE 2080 S]
DECLARE SUB SERIES ( )
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
34. [2082H010]
DECLARE SUB DISPLAY(S$)
A$="MAAF"
DISPLAY A$
END
SUB DISPLAY(S$)
L=LEN(S$)
FOR I=L TO 1 STEP -1
VER$=MID$(S$, I, 1)
IF I MOD 2 = 1 THEN
CON$=CON$+LCASE$(VER$)
ELSE
CON$=CON$+UCASE$(VER$)
END IF
NEXT I
PRINT CON$
END SUB
35. [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
