“Opportunities don’t happen, you create them.”

Qbasic to find area  of rectangle CLS INPUT "Enter the length"; L INPUT "Enter the breadth"; B A = L*B PRINT "Area of rectangle="; 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,……..up to 10 th  term CLS A = 5 FOR I = 1 TO 10 PRINT A A = A+5 NEXT I  END

1, 4, 9, 16,……..up to 10 th  term CLS FOR I = 1 TO 10 PRINT I ^ 2 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

Qbasic to display multiplication table CLS INPUT "Enter any number"; N FOR I = 1 TO 10 PRINT N ; "X' ; I ; "=" ; N*I NEXT I END

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

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

Qbasic to display 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

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

Qbasic to display 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

Qbasic to find the 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

Qbasic to find the 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

Qbasic to find the 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

Qbasic to display 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

Qbasic to display 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 E ND

Qbasic to display 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

Qbasic to find 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

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

Qbasic to find 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

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

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

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