QBASIC PROGRAMMING *WAP TO FIND SUM OF DIGIT . (SUB) DECLARE SUB SUM (N) CLS INPUT"ENTER ANY NUMBER ";N CALL SUM (N) END SUB SUM (N) S=0 WHILE N< >0 R= N MOD 10 S= S+R N= N\10 WEND PRINT "SUM OF DIGIT ";S END SUB
QBASIC PROGRAMMING *WAP TO FIND AREA OF CIRCLE. (SUB) DECLARE SUB CIR (R) CLS INPUT" Enter radius ";R CALL CIR (R) END SUB CIR (R) A= 22/ 7* R ^ 2 PRINT "area of circle" ; A END SUB
Comments
Post a Comment