Tuesday, September 26, 2017

Debug the Qbasic Programs [SEE Qbasic Practice PART II]

1.      REM multiples of 3 and 5 between any two supplied numbers
DECLARE SUB DISPLAY (A, B)
CLS
INPUT “Type any two numbers”; A, B
PRINT DISPLAY(A, B)
END

SUB DISPLAY (X, Y)
IF X < Y THEN SWAP X, Y
FOR I% = X TO Y
IF I% MOD 3 = 0 OR I% MOD 5 = 0 THEN
PRINT X;
END IF
NEXT I%
END SUB

2.      REM To print multiplication table
DECLARE SUB MUL()
CLS
INPUT ”Enter a number “; N
CALL MUL(M)
END

SUB MUL(NUM)
CLS
FOR K = 1 TO 10
PRINT N; ”*”; K; “=”; N*K
NEXT K
SUB END

3.      REM to display multiplication table       
DECLARE FUNCTION MULTIPLY(N,K)
CLS
INPUT C
FOR I = 1 TO 10
M=MULTIPLY(N,I)
PRINT S;"x";I;"="M"
NEXT
END

FUNCTION MULTIPLY(C,K)
T=N*K
T=MULTIPLY
END FUNCTION
4.      REM ‘to calculate sum of digits of a number’
DECLARE FUNCTION XYZ (N)
CLS
INPUT “ANY NUMBER”; N
DISPLAY XYZ (N)
END

FUNCTION XYZ (N)
S=0
WHILE N>0
R=N MOD 10
S=S+R
N=(N/10)
LOOP
S=XYZ
END FUNCTION

5.      DECLARE FUNCTION Digit(N)
CLS
INPUT”Enter any number=”;Num
S=Digit(N)
PRINT “Sum of Digits=”;S
END

FUNTION Digit(N)
SI=0
DO WHILE N>0
R=N MODE 10
SI=SI+R
N=INT(N/10)
LOOP
Digit=SI
END FUNCTION

6.      DECLARE SUB SUM (N)
INPUT "Any Number"; N
PRINT SUM (N)
END

SUB SUM (N)
S = 0
WHILE N = 0
R = R MOD 10
S = S+R
N = N/10
WEND
PRINT "Sum of digits"; s
END

7.      REM To find the sum of even digits of multi digits number
DECLARE FUNCTION SUM (N)
CLS
INPUT “ENTER MULTI-DIGITS NUMBER  ”; N
PRINT “SUM  = ” ; SUM(N)
END

FUNCTION SUM(N)
WHILE N=0
R= N MOD 10
IF R MOD 2 = 1 THEN S=S+R
N = N / 10
WEND
SUM (N) =S
END FUNCTION

8.      DECLARE FUNCTION SUMEVEN (N())
DIM N(10)
CLS
FOR J = 1 TO 10
INPUT "Enter Any Number"; X(J)
LOOP
PRINT "Sum Of Even Numbers:"; SUMEVEN(())
END

FUNCTION SUMEVEN (N())
S = 0
FOR K = 1 TO 10
IF N(K) MOD 2 = 0 THEN
S = S + N(K)
END
NEXT K
S=SUMEVEN
END FUNCTION

9.      REM SUM OF EVEN DIGITS
DECLARE FUNCTION RESULT (N)
CLS
INPUT "ENTER ANY NUMBER"; NUM
PRINT RESULT (N)
END

FUNCTION RESULT (N)
DO UNTIL N = 0
R = N MOD 10
IF R MOD 2 <> 0 THEN
S = S - R
END IF
N = N \ 10
LOOP
S = RESULT
 END FUNCTION

10.   REM TO FIND SUM OF EVEN NUMBERS
DECLARE FUNCTION CHECK$(N)
CLS
FOR I = 1 TO 6
READ A
IF CHECK(N) = 0 THEN
S = S + 1
END IF
NEXT I
PRINT “Sum of even numbers=”; S
DATA 34, 55, 67, 89, 90, 32
END

FUNCTION CHECK(N)
IF N MOD 2 = 0 THEN
CHECK = 1
ELSE
CHECK = 0
END IF
END FUNCTION

11.   REM TO DISPLAY THE SERIES 43 10 25 11 7
DECLARE FUNCTION TAKE (A, B)
DECLARE SUB PROCESS(A)
CLS
FOR I = 1 TO 5
READ C, D
A = TAKE(C, D)
CALL PROCESS(A)
NEXT J
DATA 78, 57, 34, 53, 22, 34, 76, 56, 44, 31
END

SUB PROCESS(X)
IF X MOD 3 = 0 THEN
PRINT X * 2 + C;
ELSE
PRINT X \ 2 +1;
IF END
END SUB

FUNCTION TAKE(A,B)
IF A < B THEN DOSWAP A, B
TAKE = A MOD B
END FUNCTION


12.   DECLARE SUB Krypt(x,y)
CLS
REQ=Krypt (5,10)
END

SUB Cad (x,y)
Z=18
FOR I = P TO Q
IF I MOD 2=0 THEN
PRINT Z/2
ELSE
PRINT Z*2+i
END IF
NEXT I
END



13.   CLS
DECLARE SUB SERIES(A)
A=20
B=SERIES(A)
END

SUB SERIES(B)
FOR I=1 TO 10
DISPLAY B
IF B MOD 2 = 0 THEN
B = B / 2
ELSE
B = B * 3 + 1
END IF
NEXT I
END FUNCTION

     
14.   REM to get hCF and LCM of given three numbers except 0
DECLARE function hcf(m,n)
Declare function LCM (m,n)
CLS
INPUT “Enter three positive numbers:”; a,b
If a>b then swap a,b
If a>c  then swap a,e
X=a:y=b
C=hcf(m,n)
D=LCM()
Print “hcfs =”;hcf
Print “LCM of given values =”;LCM
END

Function hcf(a,b)
For I = 1 to a
If a mod I = 0 and b mod I = 0 then
Hcf =i
Endif
Next
END FUNCTION

Function LCM(a,b)
Pro = (a*b)
LCM=pro/hcf(a,b)
End function

15.   REM T to get hcf and LCM of given numbers
DECLARE  functionhcf(m,n)
CLS
Input "Enter two positive numbers";a,b
C=hcf (m,n)
PRINT"HCF of given values=" ,hcf
END

Function hcf(m,n)
AB:
If m mod n = 0 then
Hcf = n
Else
M = n
N = m mod n
Gotoabc
END FUNCTION

16.   DECLARE FUNCTION hcf! (a!, b!)
INPUT a, b
PRINT hcf(x, y)
END

FUNCTION hcf$(x, y)
Top:
IF a < b THEN SWAP a, b
IF b = 0 THEN GOTO last
A = a mod b
GOTO Top
Last:
Hcf = a
END FUNCTION

17.   DECLARE FUNCTION arm (a)
INPUT” enter number”; n
FOR I = 1 TO n
a = I
b = arm (a)
IF b = I THEN
PRINT b
NEXT J
END

FUNCTION arm (n)
S = 0
WHILE a <> 0
r = n MOD 10
s = s + r ^ 3
n = n \ 10
up
arm = a
END FUNCTION

18.   DECLARE SUB ARM(NN)
CLS
INPUT “ENTER A NUMBER”; N
CALL ARM(N)
END

SUB ARM(A)
A = NN
WHILE A < > 0
R = A MOD 10
ACC = ACC + R ^ 10
A = A \ 3
WEND
IF ACC = A THEN PRINT “ARMSTRONG” ELSE PRINT “NOT ARMSTRONG”
END SUB
19.   DECLARE GREAT SUB(a,b,c)
CLS
INPUT "ENTER 3 NUMBER", X,Y,Z
SUB GREAT (a,b,c)
END

SUB GREAT (a,b,c)
IF a>b and a>c THEN g=a
ELSEIF b>a and b>c THEN
b=g
ELSE
g=c
END IF
PRINT g
SUB END

20.   REM To find the greatest number
DECLARE GREAT SUB(A, B, C)
ACCEPT “Enter three numbers”; A, B, C
PASS GREAT(A, B, C)
END

SUB GREAT(A, B, C)
IF A > B OR A > C THEN
G = A
ELSEIF B > A OR B > C THEN
G = B
ELSE
G = C
END IF
PRINT G; “is the greatest number”
END SUB
By on No comments:

Debug the Qbasic Programs [SEE Qbasic Practice PART I]

1.      DECLARE SUB SUM (A, B, C)
PRINT A, B, C
PRINT SUM (A, B, C)
END

SUB SUM (A, B, C)
D=A+B+C
PRINT A
END

2.      DECLARE FUNCTION SUB (a, b, c)
CLS
INPUT a
INPUT b
INPUT c
PRINT “Average=SUB (a, b, c)
END

FUNCATION SUB (a, b, c)
S=a+b+c
AVEG= (a+b+c)/3
PRINT Aveg
SUB END

3.      DECLARE SUB correct( )
CLS
REM to calculate the area of rectangle
CALL SUB
END

SUB Correct
INPUT “enter length”;L
INPUT “enter breadth”;B
A= LENGTH* BREADTH
PRINT “area of rectangle=”;Area
SUB END

4.      Rem program to find the cube of the cube of a given number
DECLARE FUNCTION CUBE(R)
ENTER R
DISPLAY CUBE(R)
END

FUNCTION CUBE(R)
S=P^3
PRINT S
COMPLETE

5.      DECLARE FUNCTION Namaste(X,Y)
CLS
INPUT “Enter first number”; X
IMPUT ”Enter second number”; Y
Z=Namaste(X,Y)
PRINT “The sum of the given two numbers=”; W
END

FUNCTION Namaste(X,Y)
SUM=X+Y
RETURN SUM
END FUNCTION


6.      DECLARE FUNCTION SUM(a,b)
REM Program to sum given two numbers
Input ”Enter first number”; x
Input “Enter second number”; y
PRINT SUM(a,b)
END

FUNCTION SUM(x,y)
SUM=a+b
END

7.      FUNCTION SUM (m,n)
Rem to print sum of two numbers
a= 6
b= 7
DISPLAY SUM (a, b)
END

FUNCTION SUM (m,n)
S = m +n
S = SUM
END SUM

8.      CREATE FUNCTION Square(A)
Rem to print square of a number
CLS
Get “a number”; A
CALL square(A)
END

FUNCTION square(A)
Ans=A^2
Square=Ans
END Square(A)

9.      REM TO FIND THE SQUARE ROOT OF GIVEN NUMBER
DECLARE SUB SQUARE(N)
INPUT R
CALL SQUARE(A)
END
SUB SQUARE(A)
SQ = SQROOT(N)
PRINT S
FINISH


10.   DECLARE FUNCTION AREA (X)
CLS
REM TO FIND THE AREA OF CIRCLE
INPUT “ENTER THE VALUE OF RADIUS”;R
CALL  AREA (R)
END

FUNCTION AREA (X)
 AR=    (22/7)* R^2
AR=AREA
FUNCTION END

11.   REM to display the cube of supplied number.
CLS
DECLARE    FUNCTION   CUB(N)
INPUT “Number”;C
PRINT “Cube value of inserted number”;CUB(C)
END                                                                                                                

FUNCTION CUB(A)
C = A3
C = CUB
END FUNCTION

12.   FUNCTION SUM (m,n)
Rem to print sum of two numbers
a= 6
b= 7
DISPLAY SUM (a, b)
END

FUNCTION SUM (m,n)
S = m +n
S = SUM
END SUM


13.   DECLARE SUB series ( )
CLS
EXECUTE Series
END

SUB Series
A=2
B=2
FOR ctr=1 to 5
DISPLAY A; B
A=A+B
Loop ctr
END    series ( )

14.   DECLARE SUB Series()
CLS
EXECUTE Series
END

SUB Series()
REM program to generate  3 3 4 9 15 upto 20th terms.
A=3
B=3
FOR ctr= 10 to 1
DISPLAY A;B;
A=A+B
B=A+B
NEXT ctr
END Series()

15.   DECLARE SUB Fibonic ()
REM *Fibonic series*
CALL SUB Fibonic
END

SUB Fibonic
A=1
B=1
FOR x=1 to 10
DISPLAY a;
a=a+b
b=a+b
END Fibonic

16.   DECLARE SUB Series(.)
CLS
EXECUTE Series
END

SUB Series
REM  to generate 2 2 4 6 10….. upto 10th term
P=2
Q=2
FOR           Ctr=1 TO 5
DISPLAY P,Q,
P=P+Q
Q=P+Q
WEND
END Series()

17.   DECLARE SUB Series()
CLS
EXECUTE Series
END

SUB Series()
REM program to generate 1 1 2 3 5…. Up to 20th terms
A=1
B=1
FOR ctr= 10 TO 1
DISPLAY A;B;
A=A+B
B=A+B
NEXT ctr
END Series()

18.   REM to display the fibonacci series (1, 1, 2, 3, 5 upto 10th terms)
DECLARE FUNCTION fabi(x,y)
CLS
A=1
B=1
CALL (x,y)
END

SUB fabi(a, b)
FOR I = 1 to 10
C = A + B
A = B
B = C
PRINT A
NEXT I
SUB END

19.   DECLARE SUB series( )
CALL series ( )
END

SUB series ( )
B = 1
WHILE B <10
PRINT B CUBE 2
B = B + 2
NEXT
END SUB
FINISH

20.   DECLARE SUB SERIES( )
CLS
CALL SERIES
END

SUB SERIES ( )
REM  *Program to find the sum of integers up to 10*
S = 0
C = 1
WHILE C >=10
S = S + C
C + 1 = C
DISPLAY S
END
END SUB
By on No comments:
Subscribe to: Posts (Atom)