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