QBASIC Programs for Grade 5 to 8

WAP to enter US$, convert it into Nepali currency and print it.
CLS
INPUT "Enter US $ value"; a
b=n * 85
PRINT "Nepali currency of supplied US$ is "; b
END

WAP to enter a number and print the square and cube of it.
CLS
INPUT "Enter a number"; p
Sq= p * p
Cu= p * p * p
PRINT "Square value is "; Sq
PRINT "Cube value is "; Cu
END

WAP to find loss amount, if CP is Rs. 10000 and SP is Rs. 8000.
CLS
LET cp=10000
LET sp=8000
l=cp-sp
PRINT "Loss amount is "; l
END

WAP to find Simple Interest, after taking Principal, Interest and Rate from user.
CLS
INPUT "Enter Principal"; p
INPUT "Enter Time"; t
INPUT "Enter Rate"; r
si=(p*t*r)/100
PRINT "Simple interest"; si
END

WAP to find the final amount the user has to pay, if the shopkeeper allows 10% discount on total sales for 5 chairs at the rate of Rs 650 each.
CLS
LET ch=5
LET rate=650
LET total=ch*rate
LET dis=total * (10/100)
fa=total-dis
PRINT "Final amount to pay "; fa
END

WAP to find the breadth of a rectangle, if area is 25 m2 and length is 5m.
CLS
LET l=5
LET area=25
LET b=area/l
PRINT "Breadth in meter is";b
END

WAP to ask roll number, full name, grade and section of a student and print them sequentially.
CLS
INPUT "Enter your roll number "; rn
INPUT "Enter your full name"; fn$
INPUT "Enter your Grade"; g
INPUT "Enter your Section"; s$
PRINT "Your roll number is"; rn
PRINT "Your full name is ";fn$
PRINT "Your Grade is ";g
PRINT "Your Section is "s$
END

WAP to ask time in minute and convert it into second.
CLS
INPUT "Enter time in minute"; m
sec=m*60
PRINT "Time in second is " ; sec
END

WAP to ask a number and print whether the number is EVEN or ODD number.
CLS
INPUT "Enter a number "; x
r= x MOD 2
IF r=0 then
PRINT "The supplied number is even"
ELSE
PRINT "The supplied number is odd"
END IF
END

WAP to find the distance travelled by a car, if it travels continuously for 8 hours with the speed of 95 km/hr.
CLS
LET hr=8
LET sp=95
LET dis=hr*sp
PRINT "Total distance travelled by a car"; dis
END

WAP to convert 5500 grams into kilograms.
CLS
LET gm=5500
LET kg=gm/1000
PRINT "The value in kilogram is "; kg
END

WAP to display the name of places you visited during Dashain and Tihar.
CLS
LET d$="Ilam"
LET d1$="Jhapa"
LET d2$="Pokhara"
LET d3="Manakamana"
LET d4$="Sauraha"
LET d5$="Jomsom"
PRINT "The places I visited are"; d$, d1$, d2$, d3$, d4$, d5$
END

WAP to enter and display your favourites.
CLS
INPUT "Enter your fav. Actor name"; a$
INPUT "Enter your fav. Movie"; m$
INPUT "Enter your fav. Footballer"; f$
INPUT "Enter your fav. Jersey number"; j
INPUT "Enter your fav. Football club"; fc$
INPUT "Enter your fav. Singer"; s$
INPUT "Enter your fav. Book"; b$
PRINT a$, m$, f$, j, fc$, s$, b$
END

WAP to enter marks of 5 different subjects and print total mark and average mark.
CLS
INPUT "Enter marks of English"; a
INPUT "Enter marks of Nepali "; b
INPUT "Enter marks of Maths"; c
INPUT "Enter marks of Science"; d
INPUT "Enter marks of Computer"; e
tot=a+b+c+d+e
av=tot/5
PRINT "Total marks "; tot
PRINT "Average mark"; av
END

QBASIC Program to get the factorial of a supplied number

REM QBASIC Program to get the factorial of a supplied number

DECLARE FUNCTION fact (n)
CLS
INPUT "Supply a number"; n
PRINT "Factorial value of"; n; "is"; fact(n)
END


FUNCTION fact (n)
f = 1
c = 1
WHILE c <= n f = f * c c = c + 1 WEND fact = f END FUNCTION

QBASIC Program to display prime digits of a supplied number

REM QBASIC Program to display prime digits of a supplied number
Declare Sub Disprime(n)
CLS
INPUT n
Call Disprime(n)
End
Sub Disprime(n)
m = n
PRINT "Prime digits are ";
WHILE n <> 0
r = n MOD 10
c = 0
n = n \ 10
FOR i = 1 TO r
IF r MOD i = 0 THEN c = c + 1
NEXT i
IF c = 2 THEN PRINT r
WEND
End SUB

SLC QBASIC Programs

Palindrome string

REM Program to check whether a supplied string is palindrome or not

CLS

INPUT "ENTER A STRING/WORD";N$

L=LEN(N$)

FOR I= 1 TO L

M$=MID$(N$,I,1)+M$

NEXT I

IF M$=N$ THEN

PRINT "THE SUPPLIED STRING IS PALINDROME"

ELSE

PRINT "THE SUPPLIED STRING IS NOT PALINDROME"

END IF

END