Qbasicprogram to display factor.

Write a program to display factor.

CLS
INPUT "Enter any number"; N
FOR I = 1 TO N
IF N MOD I = 0 THEN PRINT I
NEXT I
END

Qbasic program to display whether the given number is prime or composite

Write a program to display whether the given number is prime or composite.

CLS
INPUT "Enter any number";N
C = 0
FOR I = 1  TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
 IF C = 2 THEN
PRINT "The given number is prime"
ELSE
PRINT "The given number is composite"
END IF
END

Qbasic program to check whether the given number is armstrong or not.

Write a program to check whether the given number is armstrong or not.

CLS
INPUT "Enter any number"; N
A = N
S = 0
WHILE N <>0
R = N MOD 10
S = S + R ^ 3
N = N \ 10
WEND
IF A = S THEN
PRINT " The given number is armstrong"
ELSE
PRINT "The given number is not armstrong"
END IF
END

Qbasic program to check whether the number is palindrome or not.

Write a program to check whether the number 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
PRINT "The given number is palindrome"
ELSE
PRINT "The given number is not palindrome"
END IF
END

Qbasic program to display reverse of digits.

Write a program to display reverse of digits.

CLS
INPUT "Enter any number"; N
S = 0
WHILE N <> 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
PRINT "Reverse of digits="; S
END

Qbasic program to display product of digits.

Write a program to display product of digits.

CLS
INPUT "Enter any number"; N
P = 1
WHILE N <> 0
R = N  MOD 10
P = P * R
N = N \ 10
WEND
PRINT "Product of digits="; P
END

Qbasic program to find the sum of digits.

Write a program to find the sum of digits.

CLS
INPUT "Enter any number"; N
S = 0
WHILE N <> 0
R = N MOD 10
S = S+ R
N = N \ 10
WEND
PRINT "Sum of digits"; S
END

Qbasic program to display positive, negative or zero.

Write a program to display positive, negative or zero.

CLS
INPUT "Enter any number"; N
IF N>0 THEN
PRINT "The number is positive"
ELSEIF N<0 THEN
PRINT "The number is negative"
ELSE
PRINT "The number is zero"
END IF
END

Qbasic program to find the volume of cylinder.

Write a program to find the volume of cylinder.

CLS
INPUT "Enter radius "; r
INPUT "Enter height"; h
V = 22 / 7 * r ^ 2 * h
PRINT "Volume of cylinder= "; V
END

Qbasic program to find the volume of cube.

Write a program to find the volume of cube.

CLS
INPUT "Enter length"; l
V = l ^ 3
PRINT "Volume of cube="; V
END

QBASIC PROGRAM TO FIND VOLUME OF BOX

Write a program to find the volume of box.

CLS
INPUT "Enter length"; l
INPUT "Enter height";h
INPUT "Enter breadth"; b
V = l * b * h
PRINT "Volume of box="; V
END