PRACTICAL-4



PRACTICAL-4
OBJECT: Write a program to the numbers 13,8,28,18,23,3  in  
(a)  Ascending Order              


10  REM * PROGRAM TO ARRANGE NUMBERS *
20  CLS
30  PRINT  TAB(25)“NUMBERS IN ASCENDING ORDER”
40  PRINT  TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~”
50  FOR  A = 3 TO 28 STEP 5
60  PRINT   TAB(38); A
70  NEXT  A
80  PRINT  TAB(25) STRING$(26, “~”)
90  END
 

(b)  Descending Order



10  REM * PROGRAM TO ARRANGE NUMBERS *
20  CLS
30  PRINT  TAB(25)“NUMBERS IN DESCENDING ORDER”
40  PRINT  TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~”
50  FOR  D = 28 TO 3 STEP -5
60  PRINT   TAB(38); D
70  NEXT  D
80  PRINT  TAB(25) STRING$(26, “~”)
90  END

0 comments:

Post a Comment