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) …
Read More........QBasic
Modular Programming in Q BASIC Examples 2
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........
QBasic Project 3-Record Management
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........
STRING PATTERN SUB PROCEDURE
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........
SUB PROCEDURE Numeric Patterns and Series
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 in QBasic
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........
Numeric Pattern in QBasic
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 of QBasic Examples
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........
QBasic Project 2
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........
QBasic String
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........