Program to print square root & cube root of an input number (QBASIC)

1. Program to print Square Root of Given Number.

CLS
INPUT "Enter any Number : "; n
sr = n ^ (1 / 2)
PRINT "Square Root = "; sr
END

Program to print square & cube of an input number (QBASIC)

Program to print Square Number of Given Number.

CLS
INPUT "Enter any number : "; n
s = n ^ 2
PRINT "Square = "; s
END

QBASIC Program To check the given number is divisible by 4 or not (SUB & FUNCTION Procedure)

CLS
INPUT "Enter a number"; n
x = n MOD 4
IF x = 0 THEN
     PRINT "The given number is exactly divisible by 4";
ELSE
     PRINT "The given number is not exactly divisible by 4";

QBASIC program to display area of a rectangle by (SUB & FUNCTION Procedure)

CLS
INPUT "Enter Length : "; l
INPUT "Enter Breadth : "; b
area=l*b
PRINT "Area = "; area
END

QBASIC program to Print the Perfect Square numbers from 1 to 100 (1, 4, 9, 16, 25, 36, 49, 64, 81, 100)

In mathematics, a square number or perfect square is an integer that is the square of an integer. In other words, it is the product of some integer with itself. For example, 9 is a square number, since it equals 32 and can be written as 3 × 3.

CLS
FOR i = 1 TO 100
     n = SQR(i)

QBASOC Program to print whether the given number is Prime or Composite

CLS
INPUT "Enter any Number "; n
FOR i = 1 TO n
     IF n MOD i = 0 THEN c = c + 1
NEXT i
IF c = 2 THEN
     PRINT "Prime Number"

Program to print the given string in Reverse Order (QBASIC)

CLS
INPUT "Enter any String "; s$
FOR i = LEN(s$) TO 1 STEP -1
     r$ = MID$(s$, i, 1)
     b$ = b$ + r$

Program to print the Numeric Series 3, 10, 5, 16, 8 (Hill-stone Number)

Using FOR...NEXT

CLS
n = 3
FOR i = 1 TO 5
     PRINT n;
     IF n MOD 2 = 0 THEN
          n = n / 2

Program to Print the Fibonacci Series 1, 1, 2, 3, 5, 8 ... up to 10th term

Using FOR...NEXT

CLS
x = 1
y = 1
PRINT x; y;
FOR i = 1 TO 10
     z = x + y
     PRINT z;
     x = y

Write a program to print the numeric series 0.11111, 0.1111, 0.111 .... 0.1

Using FOR...NEXT

CLS
n = 0.11111
FOR i = 1 TO 5
     PRINT n;

WAP to print 0.1, 0.11, 0.111 .... up to 7th term.

Using FOR...NEXT

CLS
a = 0.1
FOR i = 1 TO 7
     PRINT a;

Write a program to print 5, 125, ... up to 7th term (QBASIC)

Using FOR...NEXT

CLS
n = 5
FOR i = 1 TO 7
     PRINT n;

Write a Program to Enter any two numbers and print average number

QBASIC Program to get any two numbers from the user and print the average. 

CLS
INPUT "Enter First Number: "; a
INPUT "Enter Second Number: "; b 
av=(a+b)/2

Write a Program to Enter any two numbers and display the sum

QBASIC Program to get any two numbers from the user and print their sum on the screen. 

CLS
INPUT "Enter First Number: "; a
INPUT "Enter Second Number: "; b 
s=a+b