Qbasic Program Solutions For Class Ix And X 3u4d68
This document was ed by and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this report form. Report 2z6p3t
Overview 5o1f4z
& View Qbasic Program Solutions For Class Ix And X as PDF for free.
More details 6z3438
- Words: 1,432
- Pages: 8
QBASIC PROGRAM SOLUTIONS FOR CLASS IX AND X [SLC STUDENTS NEPAL] Wednesday, January 22, 2014 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 Posted by Deepak Shrestha at 6:19 PM Email ThisBlogThis!Share to TwitterShare to FacebookShare to Pinterest
No comments: Post a Comment Newer PostOlder PostHome Subscribe to: Post Comments (Atom)
About Me
Deepak Shrestha View my complete profile
qbasic program solutions
► 2015 (41)
▼ 2014 (72)
o
► December (3)
o
► November (1)
o
► October (29)
o
► August (6)
o
▼ January (33)
123456789 1234567 12345 123 ...
N NE NEP NEPA NEPAL PATTERN
CONVERSION DECIMAL TO BINARY, DECIMAL TO OCTAL, DE...
LONGEST, SHORTEST WORD ASCENDING, DESCENDING STRIN...
input any string and check whether the first chara...
count vowel, consonant, word, sentences
input any string and reverse it, palindrome
the series 55555,5555,555,55,5 + OTHERS
FIBONACCI AND OTHER SERIES
sum of square of odd numbers up to 100 AND OTHERS
DISPLAY ALL NATURAL NOS FROM 1 TO 100, ODD, EVEN, ...
ASCENDING AND DESCENDING OF 10 INPUT NUMBERS
DIVISIBLE, PRDUCT AND SUM OF 10 NUMBERS
TRAIANGLE CAN BE FORMED OR NOT, EQUILATERAL, RIGHT...
PRODUCT OF DIGITS, PRODUCT OF EVEN DIGITS AND PROD...
PERFECT NUMBER, PERFECT SQUARE NUMBER, MULTIPLICAT...
FACTOR, FACTORIAL , PRIME FACTOR AND PRIME FACTORI...
PRIME AND COMPOSITE QBASIC PROGRAMS
PALINDROME AND ARMSTRONG PROGRAMS
COUNT AND DISPLAY THE DIGITS, ODD DIGITS EVEN DIGI...
SUM OF [DIGITS, ODD DIGITS, EVEN DIGITS, SQUARE OF...
GREATEST SMALLEST AND MIDDLE NUMBER
CHECK DIVISIBLE, ODD EVEN, POSITIVE, NEGATIVE, ZER...
CONVERT KILOMETER TO MILES, PAISA TO RUPEES + OTHE...
CONVERT DAYS - CONVERT SECONDS - CALCULATE DISTANC...
CONVERT CENTIGRADE INTO FARENHEIT, FARENHEIT INTO ...
DISPLAY PROFIT, LOSS, PROFIT PERCENTAGE, LOSS PERC...
DISPLAY SIMPLE INTEREST, AMOUNT
VOLUME AND TOTAL SURFACE AREA OF SPHERE, CYLINDER,...
AREA OF TRIANGLE, FOUR WALLS AND PARALLELOGRAM
AREA AND PERIMETER OF RECTANGLE, SQUARE AND CIRCLE...
PROGRAM TO FIND SQUARE, CUBE, SQUARE ROOT AND CUBE...
PROGRAM TO DISPLAY SUM, PRODUCT, DIFFERENCE AND PR...
Watermark template. Powered by Blogger.
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 Posted by Deepak Shrestha at 6:19 PM Email ThisBlogThis!Share to TwitterShare to FacebookShare to Pinterest
No comments: Post a Comment Newer PostOlder PostHome Subscribe to: Post Comments (Atom)
About Me
Deepak Shrestha View my complete profile
qbasic program solutions
► 2015 (41)
▼ 2014 (72)
o
► December (3)
o
► November (1)
o
► October (29)
o
► August (6)
o
▼ January (33)
123456789 1234567 12345 123 ...
N NE NEP NEPA NEPAL PATTERN
CONVERSION DECIMAL TO BINARY, DECIMAL TO OCTAL, DE...
LONGEST, SHORTEST WORD ASCENDING, DESCENDING STRIN...
input any string and check whether the first chara...
count vowel, consonant, word, sentences
input any string and reverse it, palindrome
the series 55555,5555,555,55,5 + OTHERS
FIBONACCI AND OTHER SERIES
sum of square of odd numbers up to 100 AND OTHERS
DISPLAY ALL NATURAL NOS FROM 1 TO 100, ODD, EVEN, ...
ASCENDING AND DESCENDING OF 10 INPUT NUMBERS
DIVISIBLE, PRDUCT AND SUM OF 10 NUMBERS
TRAIANGLE CAN BE FORMED OR NOT, EQUILATERAL, RIGHT...
PRODUCT OF DIGITS, PRODUCT OF EVEN DIGITS AND PROD...
PERFECT NUMBER, PERFECT SQUARE NUMBER, MULTIPLICAT...
FACTOR, FACTORIAL , PRIME FACTOR AND PRIME FACTORI...
PRIME AND COMPOSITE QBASIC PROGRAMS
PALINDROME AND ARMSTRONG PROGRAMS
COUNT AND DISPLAY THE DIGITS, ODD DIGITS EVEN DIGI...
SUM OF [DIGITS, ODD DIGITS, EVEN DIGITS, SQUARE OF...
GREATEST SMALLEST AND MIDDLE NUMBER
CHECK DIVISIBLE, ODD EVEN, POSITIVE, NEGATIVE, ZER...
CONVERT KILOMETER TO MILES, PAISA TO RUPEES + OTHE...
CONVERT DAYS - CONVERT SECONDS - CALCULATE DISTANC...
CONVERT CENTIGRADE INTO FARENHEIT, FARENHEIT INTO ...
DISPLAY PROFIT, LOSS, PROFIT PERCENTAGE, LOSS PERC...
DISPLAY SIMPLE INTEREST, AMOUNT
VOLUME AND TOTAL SURFACE AREA OF SPHERE, CYLINDER,...
AREA OF TRIANGLE, FOUR WALLS AND PARALLELOGRAM
AREA AND PERIMETER OF RECTANGLE, SQUARE AND CIRCLE...
PROGRAM TO FIND SQUARE, CUBE, SQUARE ROOT AND CUBE...
PROGRAM TO DISPLAY SUM, PRODUCT, DIFFERENCE AND PR...
Watermark template. Powered by Blogger.
Related Documents c2h70
Qbasic Program Solutions For Class Ix And X 3u4d68
December 2019 29
Important Essays For Class Ix-x 313n2m
October 2019 70
Formulas For Class X Chemistry 1gj
November 2020 0
Qbasic 3t232i
November 2019 36
Physics Practicals For Class X 3q3c1m
December 2019 46
Qbasic Programming For Kids 4n2i45
December 2019 39More Documents from "Ardie Gucci" 701b6w
Berikut Adalah Daftar Lengkap Kumpulan Akun Vpn Lifetime Gratis Terbaru 2016 2353i
October 2019 54
Qbasic Program Solutions For Class Ix And X 3u4d68
December 2019 29
6g3p1u
December 2022 0
Cuenta De Cobro No1 Bucaros Burger.pdf 5s1e4r
December 2022 0
Laporan Mingguan.xls 1o1i38
July 2020 0