BlUe skies, HiGh tiDes aNd goOd vibEs!!!

26) 1,12,123,1234,12345 => CLS FOR I= 1 To 5 FOR J= 1 To I PRINT J; NEXT J PRINT NEXT I END

25) 1,1,2,3,5....10th term. => CLS FOR I =1 To 5 FOR J =1 To I NEXT I; NEXT J PRINT NEXT I END

24) 5,10,15,20...10th term. => CLS A=5 FOR I=1 To 10 PRINT A A= A+5 NEXT I END

23) 1,4,9,16.....10th term. => CLS FOR I = 1 to 10 PRINT I^2 NEXT I END

22) 1,11,111,1111,11111 => CLS A=1 FOR I = 1 To 5 PRINT A A = A*10+1 NEXT I END

21) 1,22,333,4444,55555. => CLS FOR I= 1 To 5 FOR J= 1 To I PRINT I; NEXT J PRINT NEXT I END

20) WAP to display multiplication table. => CLS INPUT " Enter any number"; N FOR I = 1 TO 10 PRINT N; "X" ; I ;"=" ; N*I NEXT I END

19) WAP to display factors. => CLS INPUT " Enter any number"; N FOR I =1 TO N IF N MOD I= 0 THEN PRINT I NEXT I END

18) WAP to check factorial. => CLS INPUT "Enter any number";N F=1 FOR I = 1 TO N F= F*I NEXT I PRINT " Factorial";F END

17)  WAP  to check 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 number is prime" ELSE PRINT " The number is composite" END IF END

16) WAP to check 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 number is Armstrong " ELSE PRINT " The number is not Armstrong " END IF END

15) WAP to check palindrome or not. => 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 " EMD

13) Product of digits. => 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

14) 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 " Reverse of digits ";S END

12) 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 digit"; S END

11) Greatest among 3 numbers. => 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

10)  Display odd or even. => 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

9) WAP to find the positive,negative, zero. => 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

8) WAP to find volume of cylinder. => CLS INPUT "Enter radius"; r INPUT "Enter height"; H V=22/7*r^2*H PRINT "Volume of cylinder ";V END

7) WAP to find  volume of cube. => CLS INPUT " Enter length";L V= L^3 PRINT " Volume of cube "; V END

6) WAP  to find 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

5) WAP to find area of 4 walls. => 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

4) WAP to find area of square. => CLS INPUT "Enter length";L A=L^2 PRINT "area of square ";A END

3) WAP to find area of triangle. => ClS INPUT "Enter breadth";b INPUT "Enter height";h A=1/2*b*h PRINT "Area of triangle ";A END

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

1)WAP to find area of rectangle. => CLS INPUT "Enter any length";L INPUT " Enter any breadth";B A=L*B Area of rectangle ";A END