Be Positive

=> CLS FOR I= 1 To 5 FOR J= 1 To I PRINT J; NEXT J PRINT NEXT I END

=> CLS FOR I =1 To 5 FOR J =1 To I NEXT I; NEXT J PRINT NEXT I END

=> CLS FOR I = 1 to 10 PRINT I^2 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 C=0 For I = 1 To N IF N MOD I = 0 THEN C= C+1 NEXT I IF C=2  THEN PRINT " The number is prime" ELSE PRINT " The number is composite" END IF END

=> CLS FOR I =1 To 5 FOR J =1 To I NEXT I; NEXT J PRINT NEXT I END

=>CLS FOR I = 1 to 10 PRINT I^2 NEXT I END

=> CLS FOR I= 1 To 5 FOR J= 1 To I PRINT I; NEXT J PRINT 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

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

=> CLS INPUT "Enter any length";L INPUT "Enter any breadth";B INPUT "Enter any height ";H A= 2*H*(L+B) PRINT "Area of four walls";A END

=>CLS INPUT "Enter any number"; N A=N S=0 WHILE N<>0 THEN R=N MOD 10 S= S*10+R N=N\10 WEND IF A=S THEN PRINT " The number is  palindrome " ELSE PRINT " The number is not palindrome " 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 IF N MOD 2=0 THEN PRINT "The number is odd" ELSE PRINT "The number is even" END IF 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"; A,B,C IF A>B and B>C THEN PRINT " The greatest number is";A ELSE IF 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 IF N>0 THEN PRINT " The number is positive" ELSE IF N<0 THEN PRINT " The number is negative " ELSE PRINT " The  number is zero" END IF END

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

=> CLS INPUT "Enter any length";L INPUT " Enter any breadth";B A=L*B Area of rectangle";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 A=L^2 PRINT "area of square ";A END

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

● WAP to find  the Area of circle. => CLS INPUT "Enter radius";r A=22/7*r^2 PRINT "Area of circle";A END