21st century classroom

Thursday, 31 October 2019

Wap to find volume of box

DECLARE FUNCTION VOL(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
PRINT" VOLUME OF BOX";VOL(L,B,H)
END

FUNCTION VOL(L,B,H)
VOL=L*B*H
END FUNCTION

Wap to check whether the given no. is completely divisible by 13 or not

DECLARE SUB CHECK(N)

CLS

INPUT"ENTER ANY NO.";N

CALL CHECK(N)

END

SUB CHECK(N)

IF N MOD 13 = 0 THEN

PRINT"THE NO. IS COMPLETELY DIVISIBLE BY 13"

ELSE

PRINT"THE NO. IS NOT COMPLETELY DIVISIBLE BY 13'

END IF

END SUB

WAP TO FIND CIRCUMFERENCE OF CIRCLE

DECLARE SUB CIR(R)
CLS
INPUT"ENTER RADIUS";R
CALL CIR(R)
END

SUB CIR(R)
C=2*22/7*R
PRINT"CIRCUMFERENCE OF CIRCLE IS ";C
END SUB

Wap to find area of box

DECLARE FUNCTION AR(L,B,H)
CLS
INPUT"ENTER LENGTH";L
INPUT"ENTER BREADTH";B
INPUT"ENTER HEIGHT";H
PRINT"THE AREA OF BOX IS ";AR(L,B,H)
END

FUNCTION AREA(L,B,H)
AR=2*(L*H+B*H+L*B)
END FUNCTION

Wap to display greatest among 3 no

DECLARE SUB GREAT (A,B,C)

CLS

INPUT"ENTER 3 NO. ";A,B,C

CALL GREAT(A,B,C)

END

SUB GREAT (A,B,C)

IF A > B AND A>C THEN

PRINT"THE GREATEST NO. IS";A

ELSE IF B>A AND B>A THEN

PRINT"THE GREATEST NO. I S";B

ELSE

PRINT"THE GREATEST NO IS";C

END IF

END SUB

Wap to display 1,1,2,3,5,8.....upto 10th term

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=1
B=1
FOR I = 1 TO 10
PRINT A;
PRINT B;
A=A+B
B=B+A
NEXT I
END SUB

Wap to display 1,1,2,3,5,8.....upto 10th term

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=1
B=1
FOR I = 1 TO 10
PRINT A;
PRINT B;
A=A+B
B=B+A
NEXT I
END SUB

Wap to print natural no. from 1 to 5

DECLARE SUB SERIES()
CLS
CALL SERIES()
END

SUB SERIES()
FOR I = 1 TO 5
PRINT I
NEXT I
END SUB

Wap to find simple intrest

DECLARE FUNCTION SI(P,T,R)
CLS
INPUT"ENTER PRINCIPLE":P
INPUT"ENTER TIME";T
INPUT"ENTER RATE":R
PRINT"SIMPLE INTEREST= ";SI(P,T,R)
END

FUNCTION SI(P,T,R)
SI=(P*T*R)/100
END FUNCTION

Wap to convert temperature in celsius into fahrenheit

DECLARE FUNCTION CONVERT (F)

CLS

INPUT “ENTER TEMPERATURE IN FAHRENHEIT”; F

PRINT “TEMPERATURE IN CELSIUS=”; CONVERT (F)

END

FUNCTION CONVERT (F)

C = (F – 32) * (5 / 9)

CONVERT = C

END FUNCTION

Wap to find sum of digits

DECLARE SUB SUM(N)
CLS
INPUT"ENTER ANY NO.";N
CALL SUM(N)
END

SUB SU8M(N)
S=0
WHILE N<>0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT"SUM OF DIGITS IS ";S
END SUB

Wap to count total no. of consonant in given word

DECLARE FUNCTION COUNT(N$)
CLS
INPUT"ENTER ANY STRING";N$
PRINT"TOTAL NO. OF CONSONANTS";COUNT(N$)
END

FUNCTION COUNT(N$)
FOR I = 1 TO LEN(N$)
B$ = MID$(N$,I,1)
C$ = UCASE$(B$)
IF C$<>"A" OR C$<>"E" OR C$<>"I" OR C$<>"O" OR C$<>"U" THEN C= C+1
NEXT I
COUNT = C
END FUNCTION

Wap to find volume of cylinder

DECLARE FUNCTION VOL(R,H)
CLS
INPUT"ENTER RADIUS";R
INPUT"ENTER HEIGHT";H
PRINT"VOLUME OF CYLINDER IS";VOL(R,H)
END

FUNCTION VOL(R,H)
VOL=22/7*R^2*H
END FUNCTION