Contact Us

Please send us email in plunk.sanu@gmail.com for any web related problem and if you want to make your website in a reasonable cost.


Comments

Unknown said…
I want your help.
I have been given a project in quick-basic and visual-basic. so if you can reply me as soon as possible
May 18, 2018 at 10:37 AM
Post a Comment

Popular posts from this blog

input any string and reverse it, palindrome

221. WAP to input any string and reverse it. CLS INPUT "ENTER ANY STRING"; S$ FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I PRINT "REVERSED STRING IS "; W$ END USING SUB PROCEDURE DECLARE SUB REV (S$) CLS INPUT "ENTER ANY STRING"; S$ CALL REV(S$) END SUB REV (S$) FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I PRINT "REVERSED STRING IS "; W$ END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION REV$ (S$) CLS INPUT "ENTER ANY STRING"; S$ PRINT "REVERSED STRING IS "; REV$(S$) END FUNCTION REV$ (S$) FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I REV$ = W$ END FUNCTION 222.    WAP to input any string and check whether the given string is palindrome or not. CLS INPUT "ENTER ANY STRING"; S$ FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I...
Read more

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

N NE NEP NEPA NEPAL PATTERN

251.  WAP to display N NE NEP NEPA NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT LEFT$(S$, I) NEXT I END SUB 252.  WAP to display L AL PAL EPAL NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT RIGHT$(S$, I) NEXT I END SUB 253.  WAP to display NEPAL EPAL PAL AL L USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = LEN(S$) TO 1 STEP - 1 PRINT RIGHT$(S$, I) NEXT I END SUB 253.  WAP to display NEPAL NEPA NEP NE N USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = LEN(S$) TO 1 STEP - 1 PRINT LEFT$(S$, I) NEXT I ...
Read more