CONVERSION DECIMAL TO BINARY, DECIMAL TO OCTAL, DECIMAL TO HEXADECIMAL AND VICE VERSA




245. WAP to convert decimal number to binary number.
CLS
INPUT "ENTER DECIMAL NUMBER"; D
WHILE D < > 0
R = D MOD 2
S$ = STR$(R) + S$
D = D \ 2
WEND
PRINT "BINARY EQUIVALENT VALUE="; S$
END

USING SUB PROCEDURE
DECLARE SUB CONV(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
CALL CONV(D)
END

SUB CONV(D)
WHILE D  < > 0
R = D MOD 2
S$ = STR$(R) + S$
D = D \ 2
WEND
PRINT "BINARY EQUIVALENT VALUE="; S$
END

USING FUNCTION PROCEDURE
DECLARE SUB CONV$(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
PRINT "BINARY EQUIVALENT VALUE=";  CONV$(D)
END

SUB CONV$(D)
WHILE D  < > 0
R = D MOD 2
S$ = STR$(R) + S$
D = D \ 2
WEND
CONV$ = S$
END FUNCTION


246. WAP to convert binary number to decimal number.

CLS
INPUT "ENTER BINARY NUMBER"; N$
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
S = S + VAL(B$) * 2 ^ P
P = P + 1
NEXT I
PRINT "DECIMAL EQUIVALENT VALUE="; S
END
USING SUB PROCEDURE
DECLARE SUB CONV(N)
CLS
INPUT "ENTER BINARY NUMBER"; N
CALL CONV(N)
END
SUB CONV(N)
P = 0: S = 0
WHILE N <> 0
R = N MOD 10
S = S + R * 2 ^ P
P = P + 1
N = N \ 10
WEND
PRINT "DECIMAL EQUIVALENT VALUE="; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONV(N)
CLS
INPUT "ENTER BINARY NUMBER"; N
PRINT "DECIMAL EQUIVALENT VALUE="; CONV(N)
END
FUNCTION CONV(N)
P = 0: S = 0
WHILE N <> 0
R = N MOD 10
S = S + R * 2 ^ P
P = P + 1
N = N \ 10
WEND
CONV = S
END FUNCTION

247. WAP to convert decimal number to octal number.

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

USING SUB PROCEDURE
DECLARE SUB CONV(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
CALL CONV(D)
END

SUB CONV(D)
WHILE D  < > 0
R = D MOD 8
S$ = STR$(R) + S$
D = D \ 8
WEND
PRINT "OCTAL EQUIVALENT VALUE="; S$
END

USING FUNCTION PROCEDURE
DECLARE SUB CONV$(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
PRINT "OCTAL EQUIVALENT VALUE=";  CONV$(D)
END

SUB CONV$(D)
WHILE D  < > 0
R = D MOD 8
S$ = STR$(R) + S$
D = D \ 8
WEND
CONV$ = S$
END FUNCTION

248. WAP to convert octal number to decimal number.
CLS
INPUT "ENTER OCTAL NUMBER"; N$
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
S = S + VAL(B$) * 8 ^ P
P = P + 1
NEXT I
PRINT "DECIMAL EQUIVALENT VALUE="; S
END
OR

USING SUB PROCEDURE
DECLARE SUB CONV(N)
CLS
INPUT "ENTER OCTAL NUMBER"; N
CALL CONV(N)
END
SUB CONV(N)
P = 0: S = 0
WHILE N <> 0
R = N MOD 10
S = S + R * 8 ^ P
P = P + 1
N = N \ 10
WEND
PRINT "DECIMAL EQUIVALENT VALUE="; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONV(N)
CLS
INPUT "ENTER OCTAL NUMBER"; N
PRINT "DECIMAL EQUIVALENT VALUE="; CONV(N)
END
FUNCTION CONV(N)
P = 0: S = 0
WHILE N <> 0
R = N MOD 10
S = S + R * 8 ^ P
P = P + 1
N = N \ 10
WEND
CONV = S
END FUNCTION


249. WAP to convert decimal number to hexadecimal number.

CLS
INPUT "ENTER DECIMAL NUMBER"; D
WHILE D <> 0
R = D MOD 16
IF R < 10 THEN
S$ = STR$(R) + S$
ELSE
S$ = CHR$(R + 55) + S$
END IF
D = D \ 16
WEND
PRINT "HEXADECIMAL EQUIVALENT VALUE="; S$
END
USING SUB PROCEDURE
DECLARE SUB CONV(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
CALL CONV (D)
END
SUB CONV(D)
WHILE D <> 0
R = D MOD 16
IF R = 10 THEN
S$ = "A"
ELSEIF R = 11 THEN
S$ = "B"
ELSEIF R = 12 THEN
S$ = "C"
ELSEIF R = 13 THEN
S$ = "D"
ELSEIF R = 14 THEN
S$ = "E"
ELSEIF R = 15 THEN
S$ = "F"
ELSE
S$ = STR$(R) + S$
END IF
D = D \ 16
WEND
PRINT "HEXADECIMAL EQUIVALENT VALUE="; S$
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONV$ (D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
PRINT "HEXADECIMAL EQUIVALENT VALUE=";  CONV$ (D)
END
FUNCTION CONV$(D)
WHILE D < > 0
R = D MOD 16
IF R = 10 THEN
S$ = "A"
ELSEIF R = 11 THEN
S$ = "B"
ELSEIF R = 12 THEN
S$ = "C"
ELSEIF R = 13 THEN
S$ = "D"
ELSEIF R = 14 THEN
S$ = "E"
ELSEIF R = 15 THEN
S$ = "F"
ELSE
S$ = STR$(R) + S$
END IF
D = D \ 16
WEND
CONV$ = S$
END FUNCTION


250. WAP to convert hexadecimal number to decimal number.

CLS
INPUT "ENTER HEXADECIMAL NUMBER"; N$
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
IF B$ = "A" THEN B$ = "10"
IF B$ = "B" THEN B$ = "11"
IF B$ = "C" THEN B$ = "12"
IF B$ = "D" THEN B$ = "13"
IF B$ = "E" THEN B$ = "14"
IF B$ = "F" THEN B$ = "15"

S = S + VAL(B$) * 16 ^ P

P = P + 1
NEXT I
PRINT "DECIMAL EQUIVALENT VALUE="; S
END

USING SUB PROCEDURE
DECLARE SUB CONV(N$)
CLS
INPUT "ENTER HEXADECIMAL NUMBER"; N$
CALL CONV(N$)
END
SUB CONV(N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
IF B$ = "A" THEN B$ = "10"
IF B$ = "B" THEN B$ = "11"
IF B$ = "C" THEN B$ = "12"
IF B$ = "D" THEN B$ = "13"
IF B$ = "E" THEN B$ = "14"
IF B$ = "F" THEN B$ = "15"
S = S + VAL(B$) * 16 ^ P
P = P + 1
NEXT I
PRINT "DECIMAL EQUIVALENT VALUE="; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONV(N$)
CLS
INPUT "ENTER HEXADECIMAL NUMBER"; N$
PRINT "DECIMAL EQUIVALENT VALUE="; CONV(N$)
END
FUNCTION CONV(N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
IF B$ = "A" THEN B$ = "10"
IF B$ = "B" THEN B$ = "11"
IF B$ = "C" THEN B$ = "12"
IF B$ = "D" THEN B$ = "13"
IF B$ = "E" THEN B$ = "14"
IF B$ = "F" THEN B$ = "15"
S = S + VAL(B$) * 16 ^ P
P = P + 1
NEXT I
CONV = S
END FUNCTION

Comments

Unknown said…
I SEARCHED ALOT...BUT UR PROGRAM WAS HELPFUL.
THANKS ..
January 23, 2018 at 11:37 PM
Unknown said…
how to convert binary to octal?
February 15, 2018 at 6:30 AM
Jitendra limbu said…
Rem to convert binary to octal
cls
input "enter binary no"; b$
for i = len(b$) to 1 step 1
d$= mid$(b$,i,1)
d=val(d$)*2^a
dec=dec+d
a=a+1
next i
while dec<>0
p=dec mod 8
dec= fix(dec/8)
a$=str$(p)+a$
wend
print a$; "=" b$ ;
end
November 30, 2018 at 11:48 PM
Unknown said…
sir you missed minus in STEP -1
December 18, 2018 at 6:51 PM
Safal Khatiwada said…
How to convert binary number to hexadecimal number?
August 25, 2019 at 8:54 AM
Puspa Wosti said…
how to convert binary to octal number using sub procedure
September 6, 2019 at 10:15 PM
Niraj Regmi said…
This comment has been removed by the author.
September 2, 2020 at 5:26 AM
Niraj Regmi said…
I have developed a QBasic program to convert Octal to Binary.

Here it is
CLS
INPUT "Enter octal number"; N$
FOR I = 1 TO LEN(N$)
A$ = MID$(N$, I, 1)
IF A$ = "0" OR A$ = "1" OR A$ = "2" OR A$ = "3" OR A$ = "4" OR A$ = "5" OR A$ = "6" OR A$ = "7" THEN
GOTO Start
ELSE
GOTO Terminate
END IF
NEXT I
Start:
PRINT "THE OCTAL EQUIVALENT NUMBER = ";
FOR J = 1 TO LEN(N$)
A$ = MID$(N$, J, 1)
IF A$ = "0" THEN
PRINT "000";
ELSEIF A$ = "1" THEN
PRINT "001";
ELSEIF A$ = "2" THEN
PRINT "010";
ELSEIF A$ = "3" THEN
PRINT "011";
ELSEIF A$ = "4" THEN
PRINT "100";
ELSEIF A$ = "5" THEN
PRINT "101";
ELSEIF A$ = "6" THEN
PRINT "110";
ELSEIF A$ = "7" THEN
PRINT "111";
END IF
NEXT J
END
Terminate:
PRINT "Invalid Input"
END
September 2, 2020 at 5:30 AM
Komal Adhikari said…
the output of the "DECIMAL TO BINARY" using function procedure is not coming.
What is the mistake?
September 27, 2020 at 3:57 AM
Unknown said…
How to convert decimal number into octal and hexadecimal in one program.
March 23, 2022 at 6:57 PM
Post a Comment

Popular posts from this blog

PROGRAM TO FIND SQUARE, CUBE, SQUARE ROOT AND CUBE ROOT OF GIVEN NUMBER

7. Display square of an input number. REM PROGRAM TO DISPLAY SQUARE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N S = N ^ 2 PRINT “SQUARE OF NUMBER ”; S END USING SUB PROCEDURE DECLARE SUB SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL SQUARE(N) END SUB SQUARE (N) S = N ^ 2 PRINT “SQUARE OF NUMBER “; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N S = SQUARE(N) PRINT “SQUARE OF NUMBER “; S END FUNCTION SQUARE (N) SQ= N ^ 2 SQUARE = SQ END FUNCTION 8. Display cube of an input number. REM PROGRAM TO DISPLAY CUBE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N C = N ^ 3 PRINT “CUBE OF NUMBER ”; C END USING SUB PROCEDURE DECLARE SUB CUBE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL CUBE(N) END SUB CUBE (N) C = N ^ 3 PRINT “CUBE OF NUMBER “; C END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION CUBE (N) CLS INP
Read more

PROGRAM TO DISPLAY SUM, PRODUCT, DIFFERENCE AND PRODUCT OF TWO / THREE NUMBERS

1. Enter any two numbers and display its sum. REM PROGRAM TO DISPLAY SUM OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = A + B PRINT “SUM OF TWO NUMBERS”; S END USING SUB PROCEDURE DECLARE SUB SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B CALL SUM(A, B) END SUB SUM (A, B) S = A + B PRINT “SUM OF TWO NUMBERS”; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = SUM(A, B) PRINT “SUM OF TWO NUMBERS”; S END FUNCTION SUM (A, B) SU = A + B SUM = SU END FUNCTION 2. Enter any two numbers and display its difference. REM PROGRAM TO DISPLAY DIFFERENCE OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B D = A - B PRINT “DIFFERENCE OF TWO NUMBERS”; D END USING SUB PROCEDURE DECLARE SUB DIFF (A, B) CLS INPUT “ENTER FIRST NUM
Read more

PALINDROME AND ARMSTRONG PROGRAMS

120.  WAP to input any number and check whether the given no. is 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 A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END USING SUB PROCEDURE DECLARE SUB PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N CALL PALIN (N) END SUB PALIN (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 A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N P = PALIN ((N)) IF P = N THEN PRINT N; "IS PALINDROME" ELSE PRINT N; "IS NOT PALINDROME" END IF END FUNCTION PALIN (N) S = 0 WHILE N < > 0 R = N MOD 10
Read more