### 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 …

### 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 …

### 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 …

### 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 …

### 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 …

### 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; …

### 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\$ …