Practice make man perfect

Display 1,11,111,1111,11111 CLS A = 1 TO 5 PRINT A A = A * 10 + 1 NEXT I END

Display 1, 22,333,4444,55555 CLS FOR I = 1 TO 5 FOR J = 1 TO  I PRINT I ; NEXT  J PRINT NEXT I END

Display 1, 12, 123, 1234,  12345 CLS FOR I  = 1 TO 5 FOR J  = 1 TO I PRINT J ; NEXT J PRINT NEXT I END

Display 5,10,15,20....... 10th term CLS A = S For I = 1 To 10 PRINT  A A = A + 5 Next I END

Display 1,4,9,16....... 10th term CLS FOR I  = 1 To 10 PRINT  I ^ 2 NEXT I END

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

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

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

WAP the given number is factors. CLS INPUT " Enter any number " ; N FOR = 1 TO N IF N MOD I = 0 THEN  PRINT I NEXT I END

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

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

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

WAP to display 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  " Sum of digits = " ; S END

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

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

WAP to display greatest among three number. CLS INPUT " Enter first number " ; A INPUT " Enter second number " ; B INPUT " Enter third number " ; 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

WAP  to display  odd or even. 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

WAP to display  positive and negative or 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

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

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

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

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

WAP to find the area of four wall. INPUT " Enter length " ; L INPUT  " Enter breadth " ; B INPUT  " Enter height " ; H A = 2 * H * (L + B) PRINT  " Area of 4 wall " ; A END

WAP to fond the area of triangle. 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

OBASiC program Dashain and TIhar Homework WAP to find the area of rectangle.  CLS INPUT  " Enter length" ; L INPUT  " Enter breadth " ; B A =  L * B PRINT " Area of rectangle = " ; A END