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

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