education is the light of life

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

1, 4, 9, 16,……..up to 10 th  term CLS FOR I = 1 TO 10 PRINT I ^ 2 NEXT I  END

5, 10, 15, 20,……..up to 10 th  term CLS A = 5 FOR I = 1 TO 10 PRINT A A = A+5 NEXT I  END

1, 1, 2, 3, 5,……..up to 10 th  term CLS A = 1 B = 1 FOR I = 1 TO 10 PRINT A C = A +  B A = B B = C NEXT I END

Multiplication table CLS INPUT "Enter 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

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

The given number is 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

The greatest among three number CLS INPUT "Enter any three 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

The given number is 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

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

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

T he given number is palindrome or no t 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 number is palindrome" ELSE PRINT "The number is not palindrome" END IF END

Products 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

The given number is odd or even CLS INPUT "Enter any number"; N IF N MOD 2 = 0 THEN PRINT "The number is even number" ELSE PRINT "The number is odd number" END IF END

The given number is positive or 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 the radisu"; r INPUT "Enter the height"; h V =  22/7*r^2*h PRINT "Volume of cylinder="; V END

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

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

area of square CLS INPUT "Ente the length"; l A = l^2 PRINT "Area of square="; A END

 area of four walls CLS INPUT "Enter the length"; l INPUT "Enter the breadth"; b INPUT "Enter the height"; h A = 2*h*(l+b) PRINT "Area of four walls="; 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 the radius"; r A = 22/7*r^2 PRINT "Area of circle="; A END

                Area of rectangle CLS INPUT "Enter the length"; L INPUT "Enter the breadth"; B A = L*B PRINT "Area of rectangle="; A END