my experience in herbals plants in nepal

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

CLS INPUT "Enter any number"; N S = 0 WHILE N <> 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND PRINT "Reverse of digits="; S END

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

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

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

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

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