To find volume hemisphere. (Qbasic code)
To find volume hemisphere. (Qbasic code)
CLS
LET pi = 3.14
INPUT "Enter the value of radius"; r
vh = 2 / 3 * pi * r ^ 3
PRINT "The volume of hemisphere is"; vh
END
CLS
LET pi = 3.14
INPUT "Enter the value of radius"; r
vh = 2 / 3 * pi * r ^ 3
PRINT "The volume of hemisphere is"; vh
END
To find volume cylinder (Qbasic code)
To find volume cylinder (Qbasic code)
CLS
LET pi = 3.14
INPUT "Enter the value of radius"; r
INPUT "Enter the height"; h
v = pi * r ^ 2 * h
PRINT "The volume of the cylinder is"; v
END
CLS
LET pi = 3.14
INPUT "Enter the value of radius"; r
INPUT "Enter the height"; h
v = pi * r ^ 2 * h
PRINT "The volume of the cylinder is"; v
END
Program to check the given number is divisible by 3 & 5 or not.
Program to check the given number is divisible by 3 & 5 or not. (Qbasic Code)
CLS
INPUT "Enter a number"; n
x = n MOD 3
y = n MOD 5
IF x = 0 AND y = 0 THEN
PRINT "The given number is exactly divisible 3 and 5";
ELSE
PRINT "The given number is not exactly divisible by 3 and 5";
END IF
END
CLS
INPUT "Enter a number"; n
x = n MOD 3
y = n MOD 5
IF x = 0 AND y = 0 THEN
PRINT "The given number is exactly divisible 3 and 5";
ELSE
PRINT "The given number is not exactly divisible by 3 and 5";
END IF
END
A Program to input a word and count total number of alphabet 'A' in the input word.
A Program to input a word and count total number of alphabet 'A' in the input word. (Qbasic Code)
CLS
INPUT "Enter a word"; w$
w$ = UCASE$(w$)
x = LEN(w$)
FOR i = 1 TO x
x$ = MID$(w$, i, 1)
IF x$ = "A" THEN
c = c + 1
ELSE
END IF
NEXT i
PRINT "The total number of A is"; c
END
CLS
INPUT "Enter a word"; w$
w$ = UCASE$(w$)
x = LEN(w$)
FOR i = 1 TO x
x$ = MID$(w$, i, 1)
IF x$ = "A" THEN
c = c + 1
ELSE
END IF
NEXT i
PRINT "The total number of A is"; c
END
Program to classify the type of triangles. (i.e. equilateral, isosceles, or scalene).
Program to classify the type of triangles. (i.e. equilateral, isosceles, or scalene). (Qbasic Code)
CLS
top:
INPUT "Enter the length of the first side of triangle"; a
INPUT "Enter the length of the second side of triangle"; b
INPUT "Enter the length of the third side of triangle"; c
IF a + b < c OR b + c < a OR c + a < b THEN
PRINT "Triangle can not be formed"
GOTO 1:
ELSEIF a = b AND b = c AND c = a THEN
PRINT "Equilateral Triangle"
ELSEIF a = b OR b = c OR c = a THEN
PRINT "Isosceles Triangle"
ELSE
PRINT "Scalene Triangle"
END IF
1:
PRINT
INPUT "Do you want to check more (Y/N)?"; ans$
IF UCASE$(ans$) = "Y" THEN
GOTO top:
ELSE
SYSTEM
END IF
END
CLS
top:
INPUT "Enter the length of the first side of triangle"; a
INPUT "Enter the length of the second side of triangle"; b
INPUT "Enter the length of the third side of triangle"; c
IF a + b < c OR b + c < a OR c + a < b THEN
PRINT "Triangle can not be formed"
GOTO 1:
ELSEIF a = b AND b = c AND c = a THEN
PRINT "Equilateral Triangle"
ELSEIF a = b OR b = c OR c = a THEN
PRINT "Isosceles Triangle"
ELSE
PRINT "Scalene Triangle"
END IF
1:
INPUT "Do you want to check more (Y/N)?"; ans$
IF UCASE$(ans$) = "Y" THEN
GOTO top:
ELSE
SYSTEM
END IF
END
To input the sides of triangle and to check whether a triangle can be formed or not.
To input the sides of triangle and to check whether a triangle can be formed or not. (Qbasic Code)
CLS
top:
INPUT "Enter the length of the first side of triangle"; a
INPUT "Enter the length of the second side of triangle"; b
INPUT "Enter the length of the third side of triangle"; c
IF a + b > c AND b + c > a AND c + a > b THEN
PRINT "Triangle can be formed"
ELSE
PRINT "Triangle can not be formed"
END IF
PRINT
INPUT "Do you want to check more (Y/N)?"; ans$
IF UCASE$(ans$) = "Y" THEN
GOTO top:
ELSE
SYSTEM
END IF
END
CLS
top:
INPUT "Enter the length of the first side of triangle"; a
INPUT "Enter the length of the second side of triangle"; b
INPUT "Enter the length of the third side of triangle"; c
IF a + b > c AND b + c > a AND c + a > b THEN
PRINT "Triangle can be formed"
ELSE
PRINT "Triangle can not be formed"
END IF
INPUT "Do you want to check more (Y/N)?"; ans$
IF UCASE$(ans$) = "Y" THEN
GOTO top:
ELSE
SYSTEM
END IF
END
Celebrities of Political Family
बहुत बड़े राजनेता है इन 5 बॉलीवुड सेलिब्रिटी के पिता, मुख्यमंत्री रह चुके है एक के पिता
आपने बहुत से बॉलीवुड सितारों को किसी राजनेता के लिए चुनाव प्रचार करते देखा होगा. अक्सर राजनीती में नेता अभिनेताओं को चुनाव प्रचार के लिए बुलाते है. लेकिन आज हम आपको आज उन बॉलीवुड कलाकारों के बारे में बताने जा रहे है जो किसी राजनेतिक परिवार से ताल्लुक रखते है. इन सितारों ने अपने पिता की तरह राजनीती के बजाय बॉलीवुड में अपनी किस्मत आजमाना चाहा और बॉलीवुड में खूब नाम कमाया है.
1. प्रतीक बब्बर
1. प्रतीक बब्बर
बहुत बड़े राजनेता है इन 5 बॉलीवुड सेलिब्रिटी के पिता, मुख्यमंत्री रह चुके है एक के पिता 1
प्रतीक बॉलीवुड में कई फिल्मे बतौर लीड एक्टर कर चुके है. इन्होने फिल्म एक दीवाना था में बहतरीन एक्टिंग की थी. जिसे उनके काफी पहचान मिली थी. प्रतीक के पिता का नाम राज बब्बर है और वे अब एक राजनेता है. वे कांग्रेस पार्टी के एक बड़े नेता है. गौरतलब है की राज बब्बर भी बॉलीवुड एक्टर रह चुके है और अब भी कई फिल्मो में नजर आते है.
2. रितेश देशमुख
बहुत बड़े राजनेता है इन 5 बॉलीवुड सेलिब्रिटी के पिता, मुख्यमंत्री रह चुके है एक के पिता 2
कॉमेडी फिल्मों में अभिनय से अपनी पहचान बनाने वाले रितेश देशमुख महाराष्ट्र के बड़े नेता स्वर्गीय विलासराव देशमुख के पुत्र हैं. विलासराव देशमुख 1999 से 2003 और 2004 से 2008 तक महाराष्ट्र के मुख्यमंत्री भी रहे.
3. संजय दत्त
बहुत बड़े राजनेता है इन 5 बॉलीवुड सेलिब्रिटी के पिता, मुख्यमंत्री रह चुके है एक के पिता 3
संजय दत्त सुनील दत्त और नरगिस दत्त के बेटे है. सुनील दत्त एक बड़े राजनेता रह चुके है. सुनील और नरगिस दोनों ही बॉलीवुड के फेमस एक्टर्स भी थे. सुनील दत्त की बेटी व संजय दत्त की बहन प्रिया दत्त भी सांसद रह चुकी हैं.
4. चिराग पासवान
बहुत बड़े राजनेता है इन 5 बॉलीवुड सेलिब्रिटी के पिता, मुख्यमंत्री रह चुके है एक के पिता 4
2011 में रिलीज हुई फ़िल्म ‘मिले ना मिले हम’ चिराग पासवान की पहली फ़िल्म थी. चिराग लोक जनशक्ति पार्टी से लोकसभा सांसद हैं. उनके पिता रामविलास पासवान इस वक्त मोदी सरकार में केंद्रीय मंत्री हैं.
5. नेहा शर्मा
बहुत बड़े राजनेता है इन 5 बॉलीवुड सेलिब्रिटी के पिता, मुख्यमंत्री रह चुके है एक के पिता 5
बॉलीवुड की ये खूबसूरत अदाकारा भी एक राजनेतिक परिवार से ताल्लुक रखती है. इनके पिता का नाम अजित शर्मा है और वे भागलपुर से विधायक है. नेहा बॉलीवुड में कई फिल्मे बतौर लीड एक्ट्रेस कर चुकी है.
To display the pattern. 1 2 4 3 6 9 4 8 12 16 5 10 15 20 25
To display the pattern. (Qbasic Code)
1
2 4
3 6 9
4 8 12 16
5 10 15 20 25
CLS
FOR i = 1 TO 5
FOR j = 1 TO i
x = i * j
PRINT x;
NEXT j
PRINT
NEXT i
END
1
2 4
3 6 9
4 8 12 16
5 10 15 20 25
CLS
FOR i = 1 TO 5
FOR j = 1 TO i
x = i * j
PRINT x;
NEXT j
NEXT i
END
To find the grade of a student using SELECT CASE. (Qbasic Code)
- To find the grade of a student using SELECT CASE. (Qbasic Code)
INPUT "Enter the Marks Scored"; m
SELECT CASE m
CASE IS >= 90
PRINT "Your Grade is A+"
CASE IS >= 80
PRINT "Your Grade is A"
CASE IS >= 70
PRINT "Your Grade is B+"
CASE IS >= 60
PRINT "Your Grade is B"
CASE IS >= 50
PRINT "Your Grade is C+"
CASE IS >= 40
PRINT "Your Grade is C"
CASE IS >= 32
PRINT "Your Grade is D"
CASE ELSE
PRINT "Your Grade is E"
END SELECT
END
Alternate Method
CLS
INPUT "Enter the Marks Scored"; m
SELECT CASE m
CASE 90 TO 100
PRINT "Your Grade is A+"
CASE 80 TO 89
PRINT "Your Grade is A"
CASE 70 TO 79
PRINT "Your Grade is B+"
CASE 60 TO 69
PRINT "Your Grade is B"
CASE 50 TO 59
PRINT "Your Grade is C+"
CASE 40 TO 49
PRINT "Your Grade is C"
CASE 32 TO 39
PRINT "Your Grade is D"
CASE ELSE
PRINT "Your Grade is E"
END SELECT
END
Subscribe to:
Posts (Atom)













