Qbasic programs solutions(part 3) for class 8, class 9 and class 10

REM PROGRAM TO COST OF PAINTING THE FOUR WALLS OF  A ROOM 
CLS 
INPUT “ENTER LENGTH”; L 
INPUT “ENTER BREADTH”; B 
INPUT “ENTER HEIGHT”; H 
INPUT “ENTER COST OF A PAINTING”; C 
A = 2 * H * (L + B) 
T = C * A 
PRINT “COST OF PAINTING A ROOM“; T 
END 


REM PROGRAM TO DISPLAY SIMPLE INTEREST 
CLS 
INPUT “ENTER PRINCIPAL”; P 
INPUT “ENTER TIME”; T 
INPUT “ENTER RATE”;R 
I = P* T * R / 100 
PRINT “SIMPLE INTEREST =”; I 
END 

CLS 
      INPUT "Enter paisa "; P 
      RS = P / 100 
      PRINT "Rupees value = "; RS 
      END 

REM PROGRAM TO CALCULATE PROFIT OR LOSS PERCENTAGE 
CLS 
INPUT “ENTER COST PRICE”; CP 
INPUT “ENTER SELLING PRICE”; SP 
IF CP > SP THEN 
LP = ((CP - SP)/CP) * 100 
PRINT "LOSS PERCENTAGE="; LP 
ELSEIF SP > CP THEN 
PP = ((SP - CP)/CP) * 100 
PRINT "PROFIT PERCENTAGE"; PP 
ELSE 
PRINT "NEITHER PROFIT NOR LOSS" 
END IF 
END 

CLS 
INPUT”Enter the todays day”;d$ 
IF d$=”SATURDAY” 
THEN PRINT”TODAY IS SATURDAY” 
ELSE 
PRINT”TODAY IS NOT SATURDAY” 
END 

REM CALCULATE TOTAL AMOUNT 
CLS 
INPUT “ENTER QUANTITY OF PEN”;QP 
INPUT “ENTER RATE OF PEN”; RP 
INPUT “ENTER QUANTITY OF COPY”; QC 
INPUT “ENTER RATE OF COPY”; RC 
INPUT “ENTER QUANTITY OF PENCIL”; QPC 
INPUT” ENTER RATE OF PENCIL”; RPC 
TA = (QP * RP) + (QC * RC) + (QPC * RPC) 
PRINT “TOTAL AMOUNT =”; TA 
END 


CLS 
INPUT "ENTER DECIMAL NUMBER"; D 
WHILE D   < >0 
R = D MOD 8 
S$ = STR$(R) + S$ 
D = D \ 8 
WEND 
PRINT "OCTAL EQUIVALENT VALUE="; S$ 
END 

REM 
CLS 
INPUT "ENTER ANY NUMBER"; N 
S = 0 
WHILE N < > 0 
R = N MOD 10 
IF R MOD 2 = 1 THEN S = S + R ^ 3 
N = N \ 10 
WEND 
PRINT "SUM OF CUBE OF ODD DIGITS"; S 
END 


CLS 
 
FOR I = 1 TO 5 
FOR J = 1 TO I 
PRINT J MOD 2; 
NEXT J 
PRINT 
NEXT I 
END  


CLS 
FOR I = 1 TO 100 
S = S + I 
NEXT I 
PRINT “SUM OF ALL NATURAL NUMBERS FROM 1 TO 100=”; S 
END

CLS 
A# = 1 
FOR I = 1 TO 5 
PRINT A# ^ 2 
A# = A# * 10 + 1 
NEXT I 
END 


REM PROGRAM TO DISPLAY SUM OF CUBE  
    CLS 
    INPUT “ENTER FIRST NUMBER”; A 
    INPUT “ENTER SECOND NUMBER”; B 
    C = A ^ 3 + B ^ 3 
    PRINT “SUM OF CUBE OF TWO NUMBERS ”; C 
    END 

CLS 
    A = 1 
    FOR I = 1 TO 5 
    PRINT A / 10 ^ I 
    NEXT I 
    END 

CLS 
    CALL SERIES 
    FOR I = 50 TO 150 STEP 25 
    PRINT I, 
    NEXT I 
    END 

CLS 
    INPUT "ENTER ANY WORD"; S$ 
    FOR I = 1 TO LEN(S$) 
    B$ = MID$(S$, I, 1) 
    IF I MOD 2 = 1 THEN 
    W$ = W$ + LCASE$(B$) 
    ELSE 
    W$ = W$ + UCASE$(B$) 
    END IF 
    NEXT I 
    PRINT W$ 
    END

    CLS 
    FOR I = 1 TO 50 
    PRINT I ^ 3, 
    NEXT I 
    END  

    CLS 
    INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C 
    IF A = B AND B = C THEN 
    PRINT “IT IS A EQUILATERAL TRIANGLE” 
    ELSE 
    PRINT “IT IS NOT A EQUILATERAL TRIANGLE” 
    END IF 

    CLS 
    DIM N(20) 
    FOR I = 1 TO 20 
    INPUT "ENTER THE NUMBERS"; N(I) 
    NEXT I 
    G = N(1) 
    FOR I = 2 TO 20 
    IF N(I) > G THEN G = N(I) 
    NEXT I 
    PRINT “THE GREATEST NUMBER IS”; G 
    END 

CLS 
    FOR I = 1 TO 9 
    PRINT I ^ 2 
    NEXT I 
    END  

">  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 A; "IS ARMSTRONG" 
    ELSE 
    PRINT A; "IS NOT ARMSTRONG" 
    END IF 
    END