PL/SQL में किसी संख्या में विषम और सम अंक गिनें

हमें अंकों का एक धनात्मक पूर्णांक दिया जाता है और कार्य PL/SQL का उपयोग करके किसी संख्या में विषम और सम अंकों की गणना करना है।

पीएल/एसक्यूएल प्रोग्रामिंग भाषाओं की प्रक्रियात्मक विशेषताओं के साथ एसक्यूएल का एक संयोजन है। इसे Oracle कार्पोरेशन द्वारा 90 के दशक की शुरुआत में SQL की क्षमताओं को बढ़ाने के लिए विकसित किया गया था।

PL/SQL, SQL और Java के साथ, Oracle डेटाबेस में एम्बेड की गई तीन प्रमुख प्रोग्रामिंग भाषाओं में से एक है।

इनपुट - इंट नंबर =23146579

आउटपुट

count of odd digits in a number are : 5
count of even digits in a number are : 3

स्पष्टीकरण - दी गई संख्या में, हमारे पास सम अंक के रूप में 2, 4, 6 हैं इसलिए एक संख्या में सम अंकों की संख्या 3 है और हमारे पास विषम अंकों के रूप में 3, 1, 5, 7 और 9 हैं, इसलिए एक में विषम अंकों की गणना संख्या 5 हैं।

इनपुट - इंट नंबर =4567228

आउटपुट

count of odd digits in a number are : 2
count of even digits in a number are : 5

स्पष्टीकरण - दी गई संख्या में, हमारे पास एक विषम अंक के रूप में 5 और 7 हैं, इसलिए एक संख्या में विषम अंकों की संख्या 2 है और हमारे पास 4, 6, 2, 2 और 8 सम अंक हैं, इसलिए एक संख्या में सम अंकों की गणना है 5.

नीचे दिए गए प्रोग्राम में इस्तेमाल किया गया तरीका इस प्रकार है

• PL/SQL में प्रयुक्त डेटाटाइप NUMBER के एक पूर्णांक प्रकार चर में एक संख्या इनपुट करें।

• VARCHAR(50) प्रकार की लंबाई लें जो अधिकतम आकार लंबाई को स्टोर कर सकती है।

• विषम अंकों की गणना के रूप में दो चर लें और सम अंकों के लिए गिनें और शुरू में उन्हें 0 पर सेट करें

• लूप फॉर को 1 से लंबाई तक शुरू करें, जबकि इसमें एक नंबर पास करें

• लूप के अंदर, लंबाई को पदार्थ के रूप में सेट करें (संख्या, i, 1)

• अब, जांचें कि IF मोड लंबाई 2 से 0 के बराबर नहीं है, तो किसी संख्या में विषम अंकों की संख्या बढ़ाएं

• नहीं तो, किसी संख्या में सम अंकों की संख्या बढ़ाएँ

• परिणाम प्रिंट करें।

उदाहरण

DECLARE
   digits NUMBER := 23146579;
   length VARCHAR2(50);
   count_odd NUMBER(10) := 0;
   count_even NUMBER(10) := 0;
BEGIN
   FOR i IN 1..Length(digits)
   LOOP
      length := Substr(digits, i, 1);
      IF mod(length, 2) != 0 THEN
         count_odd := count_odd + 1;
      ELSE
         count_even := count_even + 1;
      END IF;
   END LOOP;
   dbms_output.Put_line('count of odd digits in a number are : ' || count_odd);
   dbms_output.Put_line('count of even digits in a number are : ' || count_even);
END;

आउटपुट

यदि हम उपरोक्त कोड चलाते हैं तो यह निम्न आउटपुट उत्पन्न करेगा -

count of odd digits in a number are : 5
count of even digits in a number are : 3