QBASIC PROGRAMS FOR SEE/SLC – SET 1 (FUNCTION AND SUB )
1. Write a program to calculate the volume of a cylinder using FUNCTION……END
FUNCTION. [Hint: PI*R^2*H]
Ans:
DECLARE FUNCTION VOL(R,H)
CLS
CONST PI=3.14
INPUT “Enter radius and height”; R, H
PRINT “The volume=”; VOL(R,H)
END
FUNCTION VOL(R,H)
V=PI*R^2*H
VOL=V
END FUNCTION
2. Write a program to test whether the given number is positive or negative using
SUB……END SUB.
Ans: DECLARE SUBTEST(N)
CLS
INPUT “Enter a number”; N
CALL TEST(N)
END
SUB TEST(N)
IF N>0 THEN
PRINT N; “is positive number”
ELSE
PRINT N; “is negative number”
END IF
END SUB
3. Write a program to print the following series: 1,4,7,……. up to 10th term using FUNCTION……END FUNCTION.
ANS :
DECLARE FUNCTION SERIES
CLS
D= SERIES
END
FUNCTION SERIES
FOR I = 1 TO 10
PRINT A;
A=A+3
NEXT I
END FUNCTION
4. Write a program which accepts any three different numbers and find the
maximum number among them using CALL statement.
Ans:
DECLARE SUB MAX(A,B,C)
CLS
INPUT “Enter any three number’; A,B,C
CALL MAX(A,B,C)
END
SUB MAX(A,B,C)
IF A>B AND A>C THEN
PRINT A; “is maximum number”
ELSEIF B>A AND B>C THEN
PRINT B; “is maximum number”
ELSE
PRINT C; “is maximum number”
END IF
END SUB
5. Write a program to display greater number among any two numbers using
FUNCTION……. END FUNCTION.
ANS :
DECLARE FUNCTION GREAT(A,B)
CLS
INPUT “Enter any two number”; A,B
PRINT “The greater number is”; GREAT(A,B)
END
FUNCTION GREAT(A,B)
IF A>B THEN
GREAT= A
ELSE
GREAT=B
END IF
END FUNCTION
6. Write a program to print the following series: 1, 8, 27, 64, …….. up to 10th terms
using SUB procedure
Ans:
DECLARE SUB SERIES()
CLS
CALL SERIES
END
SUB SERIES
FOR I = 1 TO 10
PRINT I^3;
NEXT I
END SUB
7. Write a program to find the factorial number of any non-negative number using
FUNCTION…… END FUNCTION.
Ans:
DECLARE FUNCTION FACT(N)
CLS
INPUT “Enter a non-negative number”; N
PRINT “The factorial of given number is”; FACT(N)
END
FUNCTION FACT(N)
F=1
FOR I =1 TO N
F=F*I
NEXT I
FACT=F
END FUNCTION
8. Write a program to display the series 55555, 5555, 555, 55, 5 using
SUB………END SUB.
Ans:
DECLARE SUB SERIES()
CLS
CALL SERIES
END
SUB SERIES
A#= 55555
FOR I = 1TO 5
PRINT A#;
A#=A#\10
NEXT I
END SUB
9. Write a program to display vowels and consonants of the entered string by using
FUNCTION …….. END FUNCTION.
Ans: DECLARE FUNCTION VOW(S$)
DECLARE FUNCTION CON(S$)
CLS
INPUT “Enter a word”; S$
VO= VOW(S$)
CO= CON(S$)
END
FUNCTION VOW(S$)
PRINT “The vowels are”
FOR I = 1 TO LEN(S$)
B$=MID$(S$,I,1)
C$=UCASE$(B$)
IF C$= “A” OR C$= “E” OR C$= “I” OR C$= “O” OR C$=”U” THEN PRINT B$
NEXT I
END FUNCTION
FUNCTION CON(S$)
PRINT “The consonant are”
FOR I = 1 TO LEN(S$)
B$=MID$(S$,I,1)
C$= UCASE$(B$)
IF C$<> “A” AND C$<> “E” AND C$<> “I” AND C$<> “O” AND C$<> “U” THEN PRINT
B$
NEXT I
END FUNCTION
10.Write a program to display the reverse of the entered number by using SUB…..
END SUB.
Ans: DECLARE SUB REV(N)
CLS
INPUT “Enter a number”; N
CALL REV(N)
END
SUB REV(N)
S=0
WHILE N<>0
R=N MOD 10
S=S*10+R
N=N\1
WEND
PRINT “The reversed form=”;S
END SUB
11. Write a program to declare a user defined function to return a given number
in reverse order by using FUNCTION…… END FUNCTION.
Ans:
DECLARE FUNCTION REV(N)
CLS
INPUT “Enter a number”; N
PRINT “The reverse form is”; REV(N)
END
FUNCTION REV(N)
S=0
WHILE N<>0
R=N MOD 10
S=S*10+R
N=N\10
WEND
REV=S
END FUNCTION
12 Write a program to declare a SUB procedure module to generate multiplication table of any non-negative number, where number is passed as a parameter by using SUB….. END SUB statement.
Ans: DECLARE SUB MUL(N)
CLS
INPUT “Enter a number”; N
CALL MUL(N)
END
SUB MUL(N)
FOR I = 1 TO 10
PRINT N; “*”;I; “=”; N*I
NEXT I
END SUB
13. Write a program to define a function procedure to display area of sphere where
user has to input the required data in the main module. [Hint: Area of sphere: 4*PI*R^2]
Ans:
DECLARE FUNTION AREA(R)
CLS
CONST PI= 3.14
INPUT “Enter radius”; RPRINT “The area of sphere=”; AREA(R)
END
FUNCTION AREA(R)
A=4*PI*R^2
AREA=A
END FUNCTION
14.Write a program to define SUB procedure to display the following series of
number: 1, 1, 2, 3, 5, …..up to 13thterm.
Ans:DECLARE SUB SERIES()
CLS
CALL SERIES
END
SUB SERIES
A=1
B=1
PRINT A;B;
FOR I =1 TO 11
C=A+B
PRINT C;
A=A+B
B=A+B
NEXT I
END SUB
15. Using user defined function, write a program to input monthly income in parameter then computer annual tax to be paid. The tax rate is 15% if annual income is above Rs. 200000, otherwise tax rate is 1%.
Ans:
DECLARE FUNCTION TAX(I)
CLS
INPUT “Enter monthly income”; I
PRINT “Tax to be paid=”; TAX(I)
END
FUNCTION TAX(I)
A=I*12
IF A>200000 THEN
TAX=15/100*A
ELSE
TAX=1/100*A
END IF
END FUNCTION
16. Write a program to generate the series using SUB …… END SUB : -10, -8, -6, -4, ………. Up to 20th term.
Ans:
DECLARE SUB SERIES()
CLS
CALL SERIES
END
SUB SERIES
A=-10
FOR I = 1 TO 20
PRINT A;
A=A+2
NEXT I
END SUB
17. Write a program using FUNCTION….END FUNCTION to calculate and print the
total surface area of a sphere.
Ans:
DECLARE FUNCTION TSA(R)
CLS
CONST PI=3.14
INPUT “Enter radius”; R
PRINT “The total surfacearea of sphere=”; TSA(R)
END
FUNCTION TSA(R)
T= 4*PI*R^2
TSA=T
END FUNCTION
18. Write a program to declare Sub procedure to print only the vowels from a given word.
Ans:
DECLARE SUB VOW(S$)
CLS
INPUT “Enter a word”; S$
CALL VOW(S$)
END
SUB VOW(S$)
PRINT “The vowels are”
FOR I = 1 TO LEN(S$)
B$=MID$(S$,I,1)
C$=UCASE$(B$)
IF C$= “A” OR C$= “E” OR C$= “I” OR C$= “O” OR C$=”U” THEN PRINT B$
NEXT I
END SUB
19. Write a program that asks any number and calculates its factors using a SUB procedure.
Ans:
DECLARE SUB FACT(N)
CLS
INPUT “Enter a number”; N
CALL FACT(N)
END
SUB FACT(N)
PRINT “The factors of”; N; “are”
FOR I = 1 TO N
IF N MOD I = 0 THEN PRINT I
NEXT I
END SUB
20. Write a program that asks any three numbers and displays the difference
between the greatest and the smallest value among the 3 supplied numbers using
FUNCTION procedure.
Ans:
DECLARE FUNCTION DIF(A,B,C)
CLS
INPUT “Enter three numbers”; A, B, C
PRINT “THE DIFFERENCE=”; DIF(A, B, C)
END
FUNCTION DIF (A, B, C)
G = 0
S = 0
IF A > B AND A > B THEN
G = A
ELSEIF B > A AND B > C THEN
G = B
ELSE
G = C
END IF
IF A < B AND A < C THEN
S = A
ELSEIF B < A AND B < C THEN
S = B
ELSE
S = C
END IF
DIF = G – S
END FUNCTION
QBASIC PROGRAMS For SLC/SEE Appearing Students – SET 2 |
21. Write a program to find area of four walls. Using Function Procedure:
DECLARE FUNCTION AREA(L,B,H)
CLS
INPUT “ENTER LENGTH” ; L
INPUT “ENTER BREADTH” ; B
INPUT “ENTER HEIGHT” ; H
PRINT “THE AREA OF FOUR WALLS= ” ; AREA(L,B,H)
END
FUNCTION AREA(L,B,H)
AREA=2*H*(L+B)
END FUNCTION
Using SUB Procedure
DECLARE SUB AREA(L,B,H)
CLS
INPUT “ENTER LENGTH” ; L
INPUT “ENTER BREADTH” ; B
INPUT “ENTER HEIGHT” ; H
CALL AREA(L,B,H)
END
SUB AREA(L,B,H)
A=2*H*(L+B)
PRINT “AREA IS “; A
END FUNCTION
22. Write a program to define a function procedure that returns simple interest.
Using FUNCTION Procedure :
DECLARE FUNCTION SI(P,T,R)
CLS
INPUT “ENTER PRINCIPLE” ; P
INPUT “ENTER TIME” ; T
INPUT “ENTER RATE” ; R
PRINT “SIMPLE INTEREST IS = ” ;SI(P,T,R)
END
FUNCTION SI(P,T,R)
SI=(P*T*R)/100
END FUNCTION
Using SUB Procedure :
DECLARE SUB SI(P,T,R)
CLS
INPUT “ENTER PRINCIPLE” ; P
INPUT “ENTER TIME” ; T
INPUT “ENTER RATE” ; R
CALL SI(P,T,R)
END
SUB SI(P,T,R)
I=(P*T*R)/100
PRINT “INTEREST IS ” ; I
END SUB
23. Write a program to convert the supplied Nepalese currency into its equivalent Indian currency.
Using FUNCTION Procedure :
DECLARE FUNCTION CONV(N)
CLS
INPUT “ENTER NEPALESE CURRENCY ” ; P
PRINT “INDIAN CURRRENCY = ” ;CONV(P)
END
FUNCTION CONV(P)
CONV=P/1.6
END FUNCTION
Using SUB Procedure:
DECLARE SUB CONV(N)
CLS
INPUT “ENTER NEPALESE CURRENCY ” ; P
CALL CONV(P)
END
SUB CONV(P)
C=P/1.6
PRINT “INDIAN CURRENCY “; C
END SUB
24. Write a program to check whether an input number is even or odd.
Using Function Procedure:
DECLARE FUNCTION CONV$(N)
CLS
INPUT “ENTER A NUMBER ” ; P
PRINT CONV$(P)
END
FUNCTION CONV$(P)
IF P MOD 2 = 0 THEN
CONV$=”EVEN NUMBER”
ELSE
CONV$=”ODD NUMBER”
ENDIF
END FUNCTION
Using SUB Procedure:
DECLARE SUB CONV(P)
CLS
INPUT “ENTER A NUMBER ” ; P
CALL CONV(P)
END
SUB CONV(P)
IF P MOD 2 = 0 THEN
PRINT “EVEN NUMBER”
ELSE
PRINT “ODD NUMBER”
ENDIF
END SUB
25. Write a program to check whether the input number is divisible by 4 and 6 or not.
Using Function Procedure:
DECLARE FUNCTION CHECK$(N)
CLS
INPUT “ENTER A NUMBER ” ; P
PRINT CHECK$(P)
END
FUNCTION CHECK$(P)
IF P MOD 4 =0 AND P MOD 6=0 THEN
CHECK$=”DIVISIBLE BY BOTH NUMBERS”
ELSE
CONV$=”NOT DIVISIBLE BY BOTH NUMBERS”
ENDIF
END FUNCTION
Using Sub Procedure:
DECLARE SUB CHECK(N)
CLS
INPUT “ENTER A NUMBER ” ; P
CALL CHECK(P)
END
SUB CHECK(P)
IF P MOD 4 =0 AND P MOD 6=0 THEN
PRINT “DIVISIBLE BY BOTH NUMBERS”
ELSE
PRINT “NOT DIVISIBLE BY BOTH NUMBERS”
ENDIF
END SUB
26. Write a program to calculate the square of all digits of input number.
Using Function Procedure:
DECLARE FUNCTION SQU(A)
CLS
INPUT “ENTER A NUMBER” ; N
PRINT SQU(N)
FUNCTION SQU(N)
WHILE N<>0
R=N MOD 10
S=R^2
PRINT S
N=N\10
WEND
END DUNCTION
Using Sub Procedure :
DECLARE SUB SQU(A)
CLS
INPUT “ENTER A NUMBER” ; N
CALL SQU(N)
END
SUB SQU(N)
WHILE N<>0
R=N MOD 10
S=R^2
PRINT S
N=N\10
WEND
END SUB
27. Write a program to calculate the circumference of circle.
Using Function Procedure:
DECLARE FUNCTION CIR(A)
CLS
INPUT “ENTER RADIUS OF A CIRCLE”; R
PRINT “CIRCUMFERENCE IS” ; CIR(R)
END
FUNCTION CIR(A)
P=3.14
CIR=2*P*A
END FUNCTION
Using SUB Procedure:
DECLARE SUB CIR(A)
CLS
INPUT “ENTER RADIUS OF A CIRCLE”; R
CALL CIR(R)
END
SUB CIR(A)
P=3.14
C=2*P*A
PRINT “CIRCUMFERENCE IS ” ; C
END SUB
28. Write a program to display the reverse of input string .
Using Function Procedure:
DECLARE FUNCTION REV$(N$)
CLS
INPUT “ENTER A STRING” ; W$
PRINT “REVERSED STRING::”;REV$(W$)
END
FUNCTION REV$(N$)
FOR I = LEN(N$) TO 1 STEP -1
D$=D$+MID$(N$,I,1)
NEXT I
REV$=D$
END FUNCTION
Using SUB Procedure:
DECLARE SUB REV(N$)
CLS
INPUT “ENTER A WORD” ; W$
CALL REV(W$)
END
SUB REV(N$)
FOR I = LEN(N$) TO 1 STEP-1
C$=C$+MID$(N$,I,1)
NEXT I
PRINT “REVERSED STRING” ; C$
END SUB
9. Write a program that accepts three different numbers and returns
the smallest one.
Using Function Procedure:
DECLARE FUNCTION SMALL(A,B,C)
CLS
INPUT “ENTER FIRST NUBER” ; A
INPUT “ENTER SECOND NUMBER” ; B
INPUT “ENTER THIRD NUMBER” ; C
PRINT “THE SMALLEST NUMBER IS” ; SMALL(A,B,C)
FUNCTION SMALL(A,B,C)
IF A<B AND B<C THEN
SMALL=A
ELSE IF B<A AND A<C THEN
SMALL=B
ELSE
SMALL=C
END FUNCTION
Using SUB Procedure:
DECLARE SUB SMALL(A,B,C)
CLS
INPUT “ENTER FIRST NUBER” ; A
INPUT “ENTER SECOND NUMBER” ; B
INPUT “ENTER THIRD NUMBER” ; C
CALL SMALL(A,B,C)
FUNCTION SMALL(A,B,C)
IF A<B AND B<C THEN
PRINT “SMALLEST” ; A
ELSE IF B<A AND A<C THEN
PRINT “SMALLEST” ; B
ELSE
PRINT “SMALLEST” ; C
END SUB
10. WAP to find whether the first character of the input string is avnumber, an uppercase or lowercase character or none of them.
Using Function Procedure:
DECLARE FUNCTION CHTR$(A$)
CLS
INPUT “ENTER A STRING” ; C$
PRINT CHTR$(C$)
END
FUNCTION CHTR$(A$)
D$=LEFT$(A$)
A=ASC(D$)
IF A>=65 AND A<=90 THEN
CHTR$=”FIRST LETTERIS UPPERCASE LETTER”
ELSEIF A>=97 AND A<=122 THEN
CHTR$=”FIRST LETTER IS LOWERCASE”
ELSEIF A>=48 AND A<=57 THEN
CHTR$=”FIRST LETTER IS NUMBER”
ELSE
CHTR$=”NONE OF THEM”
END FUNCTION
Using SUB Procedure:
DECLARE SUB CHTR(A$)
CLS
INPUT “ENTER A STRING” ; C$
CALL CHTR(C$)
END
SUB CHTR(A$)
D$=LEFT$(A$)
A=ASC(D$)
IF A>=65 AND A<=90 THEN
PRINT “FIRST LETTER IS UPPERCASE LETTER”
ELSEIF A>=97 AND A<=122 THEN
PRINT “FIRST LETTER IS LOWERCASE”
ELSEIF A>=48 AND A<=57 THEN
PRINT “FIRST LETTER IS NUMBER”
ELSE
PRINT “NONE OF THEM”
END SUB
QBASIC Programs SET-3 [SUB and FUNCTION]
31.Write a program to display the reverse of input string .
Using Function Procedure.
DECLARE FUNCTION REV$(N$)CLS
INPUT “ENTER A STRING” ; W$
PRINT “REVERSED STRING::”;REV$(W$)
END
FUNCTION REV$(N$)
FOR I = LEN(N$) TO 1 STEP -1
D$=D$+MID$(N$,I,1)
NEXT I
REV$=D$
END FUNCTION
Using SUB Procedure
DECLARE SUB REV(N$)
CLS
INPUT “ENTER A WORD” ; W$
CALL REV(W$)
END
SUB REV(N$)
FOR I = LEN(N$) TO 1 STEP-1
C$=C$+MID$(N$,I,1)
NEXT I
PRINT “REVERSED STRING” ; C$
END SUB
32. write a program to check whether the entered number is prime or composite.
using sub procedure
DECLARE SUB PRIME (N)
INPUT “ENTER ANY NUMBER”; N
CALL PRIME (N)
END
SUB PRIME (N)
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN
PRINT N; “IS PRIME NUMBER”
ELSE
PRINT N; “IS COMPOSITE NUMBER”
END IF
END SUB
Using function procedure
DECLARE FUNCTION PRIME(N)
CLS
INPUT “ENTER ANY NUMBER”; N
P = PRIME (N)
IF P = 2 THEN
PRINT N; “IS PRIME NUMBER”
ELSE
PRINT N; “IS COMPOSITE NUMBER”
END IF
END
FUNCTION PRIME (N)
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
PRIME = C
END FUNCTION
33.write a program to check input number is Armstrong or not?
USING SUB PROCEDURE
DECLARE SUB ARM (N)
CLS
INPUT “ENTER ANY NUMBER”; N
CALL ARM (N)
END
SUB ARM (N)
A = N
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R ^ 3
N = N \ 10
WEND
IF A = S THEN
PRINT A; “IS ARMSTRONG NUMBER”
ELSE
PRINT A; “IS NOT ARMSTRONG NUMBER”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION ARM (N)
CLS
INPUT “ENTER ANY NUMBER”; N
A=N
AR = ARM (N)
IF A = AR THEN
PRINT A; “IS ARMSTRONG NUMBER”
ELSE
PRINT A; “IS NOT ARMSTRONG NUMBER”
END IF
END
FUNCTION ARM (N)
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R ^ 3
N = N \ 10
WEND
ARM = S
END FUNCTION
34.write a program to find the area of square.
USING SUB PROCEDURE
DECLARE SUB AREA (L)
CLS
INPUT “ENTER LENGTH”; L
CALL AREA(L)
END
SUB AREA (L)
A = L ^ 2
PRINT “AREA OF SQUARE”; A
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION AREA (L)
CLS
INPUT “ENTER LENGTH”; L
AR = AREA(L)
PRINT “AREA OF SQUARE ”; AR
END
FUNCTION AREA (L)
A = L ^ 2
AREA = A
END FUNCTION
35.write a program to input a string and count the total numbers of vowels.
USING SUB PROCEDURE
DECLARE SUB COUNT (S$)
CLS
INPUT “ENTER ANY STRING”; S$
CALL COUNT(S$)
END
SUB COUNT (S$)
VC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = “A” OR C$ = “E” OR C$ = “I” OR C$ = “O” OR C$ = “U” THEN
VC = VC + 1
END IF
NEXT I
PRINT “TOTAL NO. OF VOWELS= “; VC
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION COUNT (S$)
CLS
INPUT “ENTER ANY STRING”; S$
PRINT “TOTAL NO. OF VOWELS= “; COUNT(S$)
END
FUNCTION COUNT (S$)
VC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = “A” OR C$ = “E” OR C$ = “I” OR C$ = “O” OR C$ = “U” THEN
VC = VC + 1
END IF
NEXT I
COUNT = VC
END FUNCTION
36.write a program to input a string and display only vowels.
USING SUB PROCEDURE
DECLARE SUB DISPV (S$)
CLS
INPUT “ENTER ANY STRING”; S$
CALL DISPV(S$)
END
SUB DISPV(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = “A” OR C$ = “E” OR C$ = “I” OR C$ = “O” OR C$ = “U” THEN
PRINT B$
END IF
NEXT I
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION DISPV (S$)
CLS
INPUT “ENTER ANY STRING”; S$
VC = DISPV(S$)
END
FUNCTION DISPV(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = “A” OR C$ = “E” OR C$ = “I” OR C$ = “O” OR C$ = “U” THEN
PRINT B$
END IF
NEXT I
END FUNCTION
37.write a program to input string and display only consonants.
USING SUB PROCEDURE
DECLARE SUB DISPC (S$)
CLS
INPUT “ENTER ANY STRING”; S$
CALL DISPC(S$)
END
SUB DISPC(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> “A” AND C$ <> “E” AND C$ <> “I” AND C$ <> “O”
AND C$ <> “U” AND C$ <> ” ” AND C$ <> “.” THEN
PRINT B$
END IF
NEXT I
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION DISPC (S$)
CLS
INPUT “ENTER ANY STRING”; S$
CC = DISPC(S$)
END
FUNCTION DISPC(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> “A” AND C$ <> “E” AND C$ <> “I” AND C$ <> “O”
AND C$ <> “U” AND C$ <> ” ” AND C$ <> “.” THEN
PRINT B$
END IF
NEXT I
END FUNCTION
38. write a program to check whether the input number is positive, negative or zero.
USING SUB PROCEDURE
DECLARE SUB CHECK (N)
CLS
INPUT “ENTER ANY NUMBER”; N
CALL CHECK (N)
END
SUB CHECK (N)
IF N > 0 THEN
PRINT N; IS POSITIVE NUMBER”
ELSEIF N < 0 THEN
PRINT N; IS NEGATIVE NUMBER”
ELSE
PRINT N; IS ZERO”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (N)
CLS
INPUT “ENTER ANY NUMBER”; N
PRINT N; “IS “; CHECK$(N)
END
FUNCTION CHECK$ (N)
IF N > 0 THEN
CHECK$ = “POSITIVE NUMBER”
ELSEIF N < 0 THEN
CHECK$ = “NEGATIVE NUMBER”
ELSE
CHECK$ = “ZERO”
END IF
END FUNCTION
39.write a program to print string in alternate capita .eg.CoMpUtEr
USING SUB PROCEDURE
DECLARE SUB ALTERNATE (A$)
INPUT “ENTER STRING”; A$
END
SUB ALTERNATE (A$)
FOR I= 1 TO LEN (A$)
B$= MID (A$, I, 1)
IF I MOD 2 = 0 THEN
B$= LCASE$ (B$)
ELSE
B$ = UCASE (B$)
END IF
ALT$ = ALT$ +B$
NEXT I “THE REQUIRED ALTERNATE IS” ;ALT$
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION ALTERNATE$ (A$)
CLS
INPUT “ENTER STING”; A$
PRINT “THE REQUIRED ALTERNATE IS”; ALTERNATE$ (A$)
END
FUNCTION ALTERNATE$ (A$)
FOR I = 1 TO LEM (A$)
B$ = MID$ (A$, I, 1)
IF I MOD 2 = 0 THEN
B$= LCASE$(B$)
ELSE
B$ = UCASE$ (B$)
END IF
ALT$ =ALT$ +B$
NEXT I
ALTERNATE$= ALT$
PRINT “THE REQUIRED ALTERNATE IS”; ALT$
END FUNCTION
40.write a program that prints the sum of even digits.
USING SUB PROCEDURE
DECLARE SUB SUMEVEN (N)
CLS
INPUT “ENTER ANY NUMBER”; N
CALL SUMEVEN (N)
END
SUB SUMEVEN (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R
N = N \ 10
WEND
PRINT “SUM OF EVEN DIGITS”; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMEVEN (N)
CLS
INPUT “ENTER ANY NUMBER”; N
SU = SUMEVEN (N)
PRINT “SUM OF EVEN DIGITS”; SU
END
FUNCTION SUMEVEN (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R
N = N \ 10
WEND
SUMEVEN = S
END FUNCTION
41.write a program to convert the temperature given in the centigrade to farenhiet.
(9C +160/5)
USING SUB PROCEDURE
DECLARE SUB CONVERT (C)
CLS
INPUT “ENTER TEMPERATURE IN CELCIUS”; C
CALL CONVERT (C)
END
SUB CONVERT (C)
F = C * (9 / 5) + 160
PRINT “TEMPERATURE IN FARENHEIT=”; F
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT (C)
CLS
INPUT “ENTER TEMPERATURE IN CELSIUS”; C
PRINT “TEMPERATURE IN FAHRENHEIT=”; CONVERT (C)
END
FUNCTION CONVERT (C)
F = C * (9 / 5) + 160
CONVERT = F
END FUNCTION
42.write a program to find the perimeter of the rectangle.2(l+b)
USING SUB PROCEDURE
DECLARE SUB PERIMETER (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
CALL PERIMETER(L, B)
END
SUB PERIMETER (L, B)
P = 2 * (L + B)
PRINT “PERIMETER OF RECTANGLE ”; P
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION PERIMETER (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
PR = PERIMETER(L, B)
PRINT “PERIMETER OF RECTANGLE ”; PR
END
FUNCTION PERIMETER (L, B)
P = 2 * (L + B)
PERIMETER = P
END FUNCTION