##### To find positive negative or zero.

CLS

INPUT “Enter any number” ; a

IF a > 0 THEN

PRINT “The number is positive”

ELSEIF a < 0 THEN

PRINT “The number is negative”

ELSE

PRINT “The number is zero”

END IF

END

##### To find even or odd

CLS

INPUT “Enter any number ” ; N

IF N MOD 2 =0 THEN

PRINT “The number is EVEN “;

ELSE

PRINT “The number is ODD “;

END IF

END

##### First 10 Even Number

CLS

n = 0

FOR i = 1 TO 10

PRINT n;

n = n + 2

NEXT i

END

##### First 10 Odd Number

CLS

n = 1

FOR i = 1 TO 10

PRINT n;

n = n + 2

NEXT i

END

##### SUM of First 10 odd numbers

CLS

s = 0

n = 1

FOR i = 1 TO 10

s = s + n

n = n + 2

NEXT i

COLOR 5

PRINT “The Sum of first 10 odd number is “; s

END

##### SUM of First 10 Even Numbers

CLS

s = 0

n = 2

FOR i = 1 TO 10

s = s + n

n = n + 2

NEXT i

COLOR 5

PRINT “The Sum of first 10 Even number is “; s

END

##### SUM of First 10 numbers

CLS

s = 0

FOR i = 1 TO 10

s = s + i

NEXT i

COLOR 5

PRINT “The Sum of first 10 number is “; s

END

##### To find Square and Square root

CLS

INPUT “Enter any number ” ; N

SQ=N ^ 2

SQROOT= N ^(1/2)

PRINT “The square of a number is ” ; SQ

PRINT “The square root of a number is ” ; SQROOT

END

##### Convert Fahrenheit to Celsius

CLS

INPUT “Enter temperature ” ; F

C = (f-32)*(5/9)

PRINT “Temperature in Celcius is ” ; C

END

##### Convert Nepalese Rupees into Indian Rupees.

CLS

INPUT “Enter the currency ” ; NC

IC = NC / 1.6

PRINT ” Indian currency value ” ; IC

END

##### Convert Indian Rupees into Nepalese Rupees

CLS

INPUT “Enter the currency ” ; IC

NC = IC * 1.6

PRINT “Nepalese currency ” ; NC

END

##### Display Greatest among three numbers

CLS

INPUT “enter the first number “; a

INPUT “enter the second number “; b

INPUT “enter the third number “; c

IF a > b AND a > c THEN g = a

IF b > a AND b > c THEN g = b

IF c > a AND c > b THEN g = c

COLOR 6

PRINT “Greatest number is “; g

END

**Display smallest among three numbers**

CLS

INPUT “ENTER ANY THREE NUMBERS “; A, B, C

IF A < B AND A < C THEN

PRINT A; “IS SMALLEST ”

ELSEIF B < A AND B < C THEN

PRINT B; “IS SMALLEST ”

ELSE

PRINT C; “IS SMALLEST ”

END IF

END

##### WAP that makes a bill of selling goods. Also add 10% VAT in total bill with discount rate given below:

1-100 = 10%

101-500 = 20%

501-1000=30%

1001-5000=40%

5001 above=50%

CLS

INPUT “enter the amount “; a

IF a > 0 AND a <= 100 THEN

d = p * 0.10

ELSEIF a >= 101 AND a <= 500 THEN

d = a * 0.20

ELSEIF a >= 501 AND a <= 1000 THEN

d = a * 0.30

ELSEIF a >= 1001 AND a <= 5000 THEN

d = a * 0.40

ELSEIF a >= 5001 THEN

d = a * 0.50

END IF

v = (a − d) * 10 / 100

t = a − d + v

PRINT “1-100 “, , “10% ”

PRINT “101-500 “, , “20% ”

PRINT “501-1000 “, , “30% ”

PRINT “1001-5000 “, , “40% ”

PRINT “5001 and above “, “50% ”

PRINT “************************************************** ”

PRINT “You have to Pay only Rs.: “; t

END

##### WAP to create commission with information given below:

Unit |
Rate / Unit |

upto 10000 | 2% |

more than 10000 and less than 20000 | 3% |

more than 20000 and less than 30000 | 4% |

beyond 30000 | 5% |

CLS

yeta:

PRINT “****************************************** ”

INPUT “enter the amount “; a

IF a >0 AND a< 10000 THEN

c = a * 0.02

ELSEIF a > 10000 AND a < 20000 THEN

c = a * 0.03

ELSEIF a > 20000 AND a < 30000 THEN

c = a * 0.04

ELSEIF a > 30000 THEN

c = a * .05

END IF

v = (a − c) * 0.10

t = a − c + v

PRINT “upto 10000”, , , “2%”

PRINT “more than less than 20000”, , “3%”

PRINT “more than 20000 and less than 30000”, “4%”

PRINT “beyond 30000”, , , “5%”

PRINT “*********************************************************”

PRINT “You have to Pay only Rs.:”; t

GOTO yeta

END

##### WAP to accept bill with following information:

For 200 calls | Rs. 250 (Compulsory) |

For next 100 calls | Rs. 2 / call |

Above 100 calls | Rs. 1.50 / call |

CLS

INPUT “enter calls “; c

IF c <= 200 THEN

r = 250

ELSEIF c <= 300 AND c > 200 THEN

r = 250 + (c − 200) * 2

ELSE

r = 250 + (100 * 2) + (c − 300) * 1.50

END IF

PRINT “Total charge=”; r

END

##### WAP to display fare. Accept passenger’s name, destination, number of tickets and display total. Jhapa Rs. 5000, Biratnagar= Rs. 6000 and Pokhara Rs. 7000.

CLS

PRINT ” Destination and Its Fare ”

INPUT “enter passenger’s name “; n$

INPUT “enter destination “; d$

c$ = UCASE$(d$)

c$ = LCASE$(d$)

IF c$ = “jhapa ” THEN

fare = 5000

ELSEIF c$ = “biratnagar ” THEN

fare = 6000

ELSEIF c$ = “pokhara “THEN

fare = 7000

END IF

INPUT “ticket= “; t

total = fare * t

IF c$ = “jhapa ” OR c$ = “biratnagar ” OR c$ = “pokhara ” THEN GOTO start ELSE GOTO last

start:

PRINT “Passenger’s Name= “; n$

PRINT “destination= “; d$

PRINT “total fare= “; total

END

last:

COLOR 20

PRINT “enter valid destination ”

END

##### WAP to find Factorial of input number

CLS

Fact = 1

INPUT ” Enter a number “; n

FOR j = 1 TO n

Fact = Fact * j

NEXT j

PRINT “Factorial is “; Fact

END

**WAP to display the factors and sum of factors for an input number.**

CLS

INPUT ” Enter a number “; n

FOR j = 1 TO n

IF n MOD j = 0 THEN

PRINT j

Sum = Sum + j

END IF

NEXT j

PRINT “Sum of factors “; Sum

END

**WAP to display the middle number among any three numbers.**

CLS

INPUT ” Enter any three different numbers “; a, b, c

IF (a > b AND a < c) OR (a < b AND a > c) THEN

PRINT “the middle number is “; a

ELSEIF (b > c AND b < a) OR (b < c AND b > a) THEN

PRINT “the middle number is “; b

ELSE

PRINT “the middle number is “; c

END IF

END

**W.A.P to SORT 5 numbers**

CLS

INPUT “any 5 number “; a, b, c, d, e

IF a > b THEN SWAP a, b

IF a > c THEN SWAP a, c

IF a > d THEN SWAP a, d

IF a > e THEN SWAP a, e

IF b > c THEN SWAP b, c

IF b > d THEN SWAP b, d

IF b > e THEN SWAP b, e

IF c > d THEN SWAP c, d

IF c > e THEN SWAP c, e

IF d > e THEN SWAP d, e

PRINT a, b, c, d, e

END

##### W.A.P. to find weather its triangle or not

CLS

INPUT “enter sides “; a, b, c

IF (a + b) > c AND (b + c) > a AND (c + a) > b THEN

PRINT “its triangle ”

ELSE

PRINT “NO ”

END IF

END

##### WAP to display Prime or Composite

CLS

INPUT “Enter a number “; n

FOR j = 1 TO n

IF n MOD j = 0 THEN c = c + 1

NEXT j

IF c = 2 THEN

PRINT “It is prime number”

ELSE

PRINT “It is composite number”

END IF

END

##### WAP to display Composite number from 50 to 100

CLS

FOR n = 50 TO 100

C = 0

FOR j = 1 TO n

IF n MOD j = 0 THEN C = C + 1

NEXT j

IF C <> 2 THEN PRINT n

NEXT n

END

**WAP to display prime numbers from 100 to 200.**

CLS

FOR n=100 TO 200

C=0

FOR j=1 TO n

IF n MOD j=0 THEN c=c+1

NEXT j

IF c=2 THEN PRINT n

NEXT n

END

##### SELECT CASE TO ADD, SUBTRACT, MULTIPLY AND DIVIDE

CLS

start:

PRINT “*************************************************”

INPUT “enter the first number”; a

INPUT “enter the second number”; b

PRINT “YOUR CHOICES”

PRINT “1 for ADDITION”

PRINT “2 for SUBTRACTION”

PRINT “3 for multiplication”

PRINT “4 for division”

INPUT “Enter your choice”; choice

SELECT CASE choice

CASE 1

PRINT “THE SUM OF TWO NUMBERS”; a + b

CASE 2

PRINT ” the SUBTRACTION OF TWO NUMBERS” ; a − b

CASE 3

PRINT “THE MULTIPLICATION OF TWO NUMBERS”; a * b

CASE 4

PRINT “THE DIVISION OF TWO NUMBERS”; a / b

CASE ELSE

PRINT “INVALID CHOICE:”

END SELECT

INPUT “Do you want to do more calculation?”; ch$

IF ch$ = “Y” OR ch$ = “y” THEN GOTO start else

PRINT “THANK YOU VERY MUCH”

END

CLS

start:

PRINT “*************************************************”

PRINT “YOUR CHOICES”

PRINT “1 for SUNDAY”

PRINT “2 for MONDAY”

PRINT “3 for TUESDAY”

PRINT “4 for WEDNESDAY”

PRINT “5 for THURSDAY”

PRINT “6 for FRIDAY”

PRINT “7 for SATURDAY”

INPUT “Enter your choice”; choice

SELECT CASE choice

CASE 1

PRINT “SUNDAY”;

CASE 2

PRINT “MONDAY”;

CASE 3

PRINT “TUESDAY”;

CASE 4

PRINT “WEDNESDAY”;

CASE 5

PRINT “THURSDAY”;

CASE 6

PRINT “FRIDAY”;

CASE 7

PRINT “SATURDAY”;

END SELECT

PRINT “*****************************************************”

INPUT “Do you want to display again?”; ch$

IF ch$ = “Y” OR ch$ = “y” THEN GOTO start else

PRINT “THANK YOU VERY MUCH”

END

##### ARMSTRONG OR NOT

CLS

INPUT “enter any number “; num

n = num

sum = 0

WHILE num <> 0

r = num MOD 10

num = num \ 10

sum = sum + (r ^ 3)

WEND

IF n = sum THEN

PRINT “It is armstrong ”

ELSE

PRINT “It is not armstrong ”

END IF

END

**Reversed Number or not**

CLS

INPUT “enter any number “; num

WHILE num <> 0

r = num MOD 10

s = s * 10 + r

num = INT(num / 10)

WEND

PRINT “the reversed number is “; s

END

##### Palindrome number or not

CLS

INPUT “enter any number “; num

n = num

WHILE num <> 0

r = num MOD 10

s = s * 10 + r

num = INT(num / 10)

WEND

IF s = n THEN

PRINT “It is palindrome number ”

ELSE

PRINT “It is not palindrome number ”

END IF

END

**Multiplication of any given number**

CLS

INPUT “enter any number “; n

FOR i = 1 TO 20

PRINT n; “x”; i; “=”; n * i

NEXT i

END