DOTA - Department Of Technology and Arts Club

DOTA - Department Of Technology and Arts Club

Share

Sharing my knowledge with everyone. Created YouTube channel for you:
https://www.youtube.com/c/DotaC

29/06/2022

To check armstrong number using modular programming

DECLARE SUB ARM(NUM)
CLS
INPUT "ENTER ANY NUMBER"; NUM
CALL ARM(NUM)
END

SUB ARM (NUM)
A = NUM
S = 0
WHILE NUM 0
R = NUM MOD 10
S = S + R ^ 3
NUM = NUM \ 10
WEND
IF A = S THEN
PRINT A; "IS ARMSTRONG NUMBER"
ELSE
PRINT A; "IS NOT ARMSTRONG NUMBER"
END IF
END SUB

29/06/2022

How to reverse a string using Sub module

DECLARE SUB REVERSE(S$)
CLS
INPUT "ENTER ANY STRING "; S$
CALL SERIES(S$)
END

SUB SERIES (S$)
FOR I = 1 TO LEN(S$)
A$ = MID$(S$, I, 1)
B$ = A$ + B$
NEXT I
PRINT B$
END SUB

29/06/2022

How to print series 2,8,18 up to 10th terms using SUB MODULAR PROGRAMMING

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES ()
FOR I = 1 TO 10
PRINT I * I * 2;
NEXT I
END SUB

04/11/2021

Hope this TIHAR ( Deepawali ) brings in good fortune and happiness for you all.

Want your school to be the top-listed School/college in Lalitpur?

Click here to claim your Sponsored Listing.

Location

Category

Address


Lalitpur