Area of 4 wall

CLS
INPUT " Enter length";l
INPUT " Enter breadth";b
INPUT " Enter height ";h
A = 2 * h ( l +b )
PRINT " Area of 4 walls ";A
END

1, 11,111,1111,11111

CLS
A = 1
FOR I = 1 TO 5
PRINT A
A = A * 10 + 1
NEXT I
END

1,22,333,4444,55555

CLS
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT I ;
NEXT J
PRINT
NEXT I
END

1, 12,123,1234,12345

CLS
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT J ;
NEXT J
PRINT
NEXT I
END

5,10,15,20 .....upto 10th term

CLS
A = 5
FOR I = 1 TO 10
PRINT A
A = A + 5
NEXT I
END

1, 4,9,10....upti 10th term

CLS
FOR I = 1 TO 10
PRINT I ^ 2
NEXT I
END

1, 1,2,3,5,8.......upto 10th term

CLS
A = 1
B = 1
FOR I = 1 TO 10
C = A +B
A = B
B  = C
NEXT I
END

Multiplication of table

CLS
INPUT " Entef any number";N
FOR I = 1 TO 10
PRINT N ; "X " ; I ; " = " ; N * I
NEXT I
END

Factorial

CLS
INPUT " Enter any number";N
F = 1
FOR I = 1 TO N
F = F * I
NEXT I
PRINT " Factorial";F
END

Factors

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

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 no is prime"
ELSE
PRINT " The given no is composite"
END IF
END

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 no is not armstrong"
END IF
END

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 THEN
PRINT " The given no is palindrome"
ELSE
PRINT " The given no is not palindrome"
END IF
END

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 " Sum of reverse digits ";S
END

Product of digits

CLS
UNPUT " 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

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

Greatest among three number

CLS
INPUT " Enter any number";N
IF A > B and B > C THEN
PRINT " The greatest number is ";A
ELSEIF B > and B > C THEN
PRINT " The greatest number is ";B
ELSE
PRINT " The greatest number is" ";C
END

Display odd or even

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

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

Volume of cylinder

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

Volume of cube

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

Volume of box

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

Area of square

CLS
INPUT " Enter length";l
A = l ^2
PRINT " Area of square";A
END

Area of triangle

CLS
INPUT " Enter base ";b
INPUT " Enter height "; h
A = 1/ 2 * b * h
PRINT " Area of triangle";A
END

Area of circle

CLS
INPUT " Enter radius";R
A = 22/ 7* R ^ 2
PRINT " Area of circle";A
END

Area of rectangle

CLS
INPUT " Enter length";l
INPUT " Enter breadth";b
A= l×b
PRINT " Area of rectangle";A
END

                                      MY FATHER

Every one has a hero so i do. he is non other than my very close  friend my father. His name is Babu Ram Shrestha. he is 41 years old. He lives with us in sipaghat bazzar. he is a doctor by occupation. He is a guy with a very cool personality i never hide anything to him. He supports me and my family at and condition and moment of life. My father is an ideal person of my life. He is my real hero and my best friend ever. He always helps me a lot in my any difficulty. He is an internet marketing manager in a limited company in New Delhi. He is very famous person in his office as well as in the society because of his gentleness and politeness.

He is very intelligent man and always helps others in their problems. He is the boss of my family and gives advice and instruction to every family member. He solves problems of the neighbors. My father is very kind-hearted person and my real hero and best friend. He always shares with me his all the bad an happy moments. He tells me that he discuss his all life events to me to give me experience and take right steps in the absence of him. He wants to make me a good person in the life and most importantly a successful person by following all the etiquette, humanity and ethics of the life. He is the person who always helps the needy people in the society or anywhere on the way. He teaches me about how to get fit, healthy, happy and a peaceful person all through the life.

He is the good adviser in my family, every family member takes advice from him whenever they get problem. He is the head of the family and always takes first seat while eating food at dining table.

Finally I can say that my father is the best father in the world. I see him as my role model and like to be like him in my life. He taught me lot of things to carry out my burdens and also show the path of success. He also focused on the opportunity that are given by the life in a person’s life and described how to grab it. He put himself as an example and wanted to us to follow the same in our life. All the time he told us to attain the path of truth and righteousness. I always want to see him happy throughout his life and want to fulfill his dreams as he imagined in me. In his happiness truly lies my prosperity.