
ARRAY in QBASIC
Greatest among 5 numbers using Array CLS DIM num(4) PRINT "Enter any any 5 numbers" FOR j = 0 TO 4 INPUT num(j) NEXT j lrg = num(0) FOR j = 0 TO 4 IF lrg > num(j) THEN lrg …
Read More........Greatest among 5 numbers using Array CLS DIM num(4) PRINT "Enter any any 5 numbers" FOR j = 0 TO 4 INPUT num(j) NEXT j lrg = num(0) FOR j = 0 TO 4 IF lrg > num(j) THEN lrg …
Read More........Display the factorial of input number SUB Procedure DECLARE SUB FACT (N) CLS INPUT “Enter any number”; N CALL FACT(N) END SUB FACT (N) F = 1 FOR J = 1 TO N F = F * J NEXT J …
Read More........PW: PASSWORD DECLARE FUNCTION age! (a!) DECLARE SUB DeleteRec () DECLARE SUB SearchRec () DECLARE SUB AddRec () DECLARE SUB EditRec () DECLARE SUB DelRec () DECLARE SUB MENU () DECLARE SUB DisplayRec () DECLARE SUB Search () DECLARE SUB …
Read More........CLICK HERE TO FIND OUT NUMERIC PATTERNS USING SUB PROCEDURE CLICK HERE TO FIND OUT NUMERIC PATTERNS IN QBASIC (WITHOUT SUB OR FUNCTION) CLICK HERE TO FIND OUT STRING PATTERNS IN QBASIC (WITHOUT SUB OR FUNCTION) N NE …
Read More........MORE PROGRAM RELATED TO SUB PROCEDURE (CLICK HERE) MORE PROGRAMS RELATED TO FUNCTIONS (CLICK HERE) MORE PROGRAMS RELATED TO NUMERIC PATTERN IN QBASIC (CLICK HERE) MORE PROGRAMS RELATED TO STRING PATTERN IN QBASIC (CLICK HERE) ———————————————————————————————————————————————- Print the series using …
Read More........String Pattern N NE NEP NEPA NEPAL CLS A$="NEPAL" FOR I = 1 TO LEN (A$) PRINT LEFT$(A$,i) NEXT i END Display NEPAL NEPA NEP NE N CLS A$ = "NEPAL" FOR i = LEN(A$) TO 1 STEP -1 …
Read More........MORE PROGRAM RELATED TO NUMERIC PATTERN USING SUB PROCEDURE (CLICK HERE) Series WAP to display the series 2 3 5 8 12 17………. upto 10th terms CLS i = 2 FOR j = 1 TO 10 PRINT i; …
Read More........Library Functions (Click Here) Convert Decimal to Binary CLS INPUT "ENTER DECIMAL NUMBER" ; D WHILE D < > 0 R = D MOD 2 S$ = STR$(R) + S$ D = D \ 2 WEND PRINT "BINARY EQUIVALENT VALUE"; S$ …
Read More........DECLARE SUB add () DECLARE SUB display () DECLARE SUB appendr () DECLARE SUB searchn () DECLARE SUB searchp () DECLARE SUB delete () DECLARE SUB bill () DECLARE SUB E () top: CLS PRINT TAB(35); "WELCOME" PRINT TAB(25); "PROGRAM …
Read More........Project 1 Top: CLS PRINT STRING$(25, "-") COLOR 2 PRINT TAB(10); "STRING MANIPULATION SYSTEM" PRINT STRING$(25, "-") PRINT TAB(10); "Choices", "Operations" PRINT TAB(10); 1, "Check Palindrome Word" PRINT TAB(10); 2, "Display Total Vowels and Consonants" PRINT TAB(10); 3, "Display Reverse …
Read More........