series 1,22,333,4444,55555

The following program  generate the series 1,22,333,4444,55555 


CLS
FOR i = 1 TO 5
a = a + 10 ^ (i - 1)
PRINT i * a,

NEXT i

Comments

Samjhauta said…
cls
a=1
for i= 1 to 5
print a*i
a=a*10+1
next i
end
August 26, 2018 at 7:37 AM
Post a Comment

Popular posts from this blog

PALINDROME AND ARMSTRONG PROGRAMS

120.  WAP to input any number and check whether the given no. is palindrome or not. CLS INPUT "ENTER ANY NUMBER"; N A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END USING SUB PROCEDURE DECLARE SUB PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N CALL PALIN (N) END SUB PALIN (N) A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N P = PALIN ((N)) IF P = N THEN PRINT N; "IS PALINDROME" ELSE PRINT N; "IS NOT PALINDROME" END IF END FUNCTION PALIN (N) S = 0 WHILE N < > 0 R = N MOD 10 ...
Read more

PROGRAM TO FIND SQUARE, CUBE, SQUARE ROOT AND CUBE ROOT OF GIVEN NUMBER

7. Display square of an input number. REM PROGRAM TO DISPLAY SQUARE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N S = N ^ 2 PRINT “SQUARE OF NUMBER ”; S END USING SUB PROCEDURE DECLARE SUB SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL SQUARE(N) END SUB SQUARE (N) S = N ^ 2 PRINT “SQUARE OF NUMBER “; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N S = SQUARE(N) PRINT “SQUARE OF NUMBER “; S END FUNCTION SQUARE (N) SQ= N ^ 2 SQUARE = SQ END FUNCTION 8. Display cube of an input number. REM PROGRAM TO DISPLAY CUBE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N C = N ^ 3 PRINT “CUBE OF NUMBER ”; C END USING SUB PROCEDURE DECLARE SUB CUBE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL CUBE(N) END SUB CUBE (N) C = N ^ 3 PRINT “CUBE OF NUMBER “; C END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION CUBE (N) CLS INP...
Read more

PERFECT NUMBER, PERFECT SQUARE NUMBER, MULTIPLICATION NUMBER, HCF AND LCM QBASIC PROGRAMS

136. WAP TO CHECK WHETHER THE INPUT NUMBER IS PERFECT NUMBER OR NOT. CLS INPUT "ENTER ANY NUMBER"; N S = 0 FOR I = 1 TO N - 1 IF N MOD I = 0 THEN S = S + I NEXT I IF S = N THEN PRINT "PERFECT NUMBER" ELSE PRINT "NOT PERFECT NUMBER" END IF END USING SUB PROCEDURE DECLARE SUB PERFECT (N) CLS INPUT "ENTER ANY NUMBER"; N CALL PERFECT (N) END SUB PERFECT (N) S = 0 FOR I = 1 TO N - 1 IF N MOD I = 0 THEN S = S + I NEXT I IF S = N THEN PRINT "PERFECT NUMBER" ELSE PRINT "NOT PERFECT NUMBER" END IF END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION PERFECT (N) CLS INPUT "ENTER ANY NUMBER"; N PR = PERFECT (N) IF PR = N THEN PRINT "PERFECT NUMBER" ELSE PRINT "NOT PERFECT NUMBER" END IF END FUNCTION PERFECT (N) S = 0 FOR I = 1 TO N - 1 IF N MOD I = 0 THEN S = S + I NEXT I PERFECT = S END FUNCTION 13...
Read more