Don't know what to do?

Tuesday, October 22, 2019

Program to find whether the given no. is divisible by 13 or not using SUB

DECLARE SUB CHECK(N)

CLS

INPUT"ENTER ANY NUMBER";N

CALL CHECK(N)

END

SUB CHECK(N)

IF N MOD 13=0 THEN

PRINT"DIVISIBLE BY 13"

ELSE

PRINT"NOT DIVISIBLE BY 13"

END IF

END SUB

Program to find volume of box using FUNCTION

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)
V=L*B*H
VOL=V
END FUNCTION

Program to print only vowels from given word using SUB

DECLARE SUB DISPLAY(N)
CLS
INPUT"ENTER ANY WORD";N$
CALL DISPLAY(N$)
END

SUB DISPLAY(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 D$=D$+B$
NEXT I
PRINT"VOWELS="D$
END SUB

Program to print 9,7,5......1 using SUB

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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

Program to find factorial using FUNCTION

DECLARE FUNCTION FACT(N)
CLS
INPUT"ENTER ANY NUMBER";N
PRINT"FACTORIAL=";FACT(N)
END

FUNCTION FACT(N)
F=1
FOR I= 1 TO N
F=F*I
NEXT I
FACT=F
END FUNCTION

Program to calculate distance using FUNCTION

DECLARE FUNCTION DISTANCE(A,U,T)
CLS
INPUT"ENTER ACCELERATION",A
INPUT"ENTER INITIAL VELOCITY";U
INPUT"ENTER TIME";T
PRINT"DISTANCE TRAVELLED=";DISTANCE(A,U,T)
END

FUNCTION DISTANCE(A,U,T)
S=U*T+1/2*A*T^2
DISTANCE=S
END FUNCTION

Program to check whether the given no is palindrome or not using FUNCTION

DECLARE FUNCTION PAL(N)
CLS
INPUT"ENTER ANY NUMBER";N
P=PAL((N))
IF N=P THEN
PRINT"The given no is palindrome"
ELSE
PRINT"The given no is not palindrome"
END IF
END

FUNCTION PAL(N)
S=0
WHILE N<>0
R= N MOD 10
S=S*10+R
N=N\10
WEND
PAL=S
END FUNCTION