Łet Us Make Our Future Now, And Let Us Make Our Dreams Tomorrow’s Reality..😊

Program to check whether the given no is Armstrong number or not using FUNCTION DECLARE FUNCTION ARM(N) CLS INPUT"ENTER ANY NUMBER";N A=P P=ARM IF A=P THEN PRINT"The given no is Armstrong"" ELSE PRINT"The given no is not Armstrong" 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

QBASIC PROGRAM TO ERASE VOWEL FROM INPUT STRING USING FUNCTION. DECLARE FUNCTION DISPC$(S$) CLS INPUT"ENTER ANY STRING";S$ PRINT"AFTER ERASING VOWELS=";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" THEN D$=D$+B$ END IF DISPC$=D$ END FUNCTION