किसी संख्या के अंकों के साथ कार्य करते समय शेष भाग की गणना करने की क्रिया को लागू करने की आवश्यकता दिखाई देती है।
आइए निम्नलिखित कार्य का विश्लेषण करें:
तीन अंकों की एक संख्या दी गई है। इस संख्या के सभी अंक प्रदर्शित करें और इकाइयों और सैकड़ों को परिवर्तित करके एक नई संख्या प्राप्त करें
नौसिखियों के लिए सबसे कठिन प्रश्न उठता है कि किसी संख्या से उसके अंकों को कैसे लिया और प्राप्त किया जाए।
वास्तव में, अगर आपको गणित याद है तो सब कुछ काफी सरलता से हल हो जाता है। और गणित हमें बताता है कि किसी भी संख्या को अंकों के योग में तोड़ा जा सकता है।
उदाहरण के लिए:
365=3*100+6*10+5*1 । हम देखते हैं कि प्रत्येक अंक संख्या के संगत अंक का गुणक होता है।
कॉलम को संख्या 10 से विभाजित करने के उदाहरण का उपयोग करके हम दिखाएंगे कि किसी संख्या के प्रत्येक अंक को एक अलग चर में कैसे प्राप्त किया जाए। (हम संख्या 10 लेते हैं, क्योंकि हमारे पास एक दशमलव संख्या प्रणाली है और, तदनुसार, हमारे पास अंकों की शर्तें हैं 1, 10, 100, आदि।)
आंकड़े का विश्लेषण करते हुए, आप देख सकते हैं कि
<पूर्व>
<कोड> ई: = एन मॉड 10; // ऑपरेशन n mod 10 - संख्या n के अंतिम अंक की गणना करता है (अर्थात, संख्या की इकाइयाँ)
365 mod 10 = 5
डी: = एन डिव 10 मॉड 10; // ऑपरेशन n div 10 - संख्या को 10 गुना कम कर देता है, यानी संख्या के अंतिम अंक को हटा देता है (
365 div 10 = 36),
// अब हम परिचित ऑपरेशन को परिणाम में लागू करके दहाई की संख्या की गणना कर सकते हैं - संख्या 10 से विभाजन के बाद शेष की गणना करें,
36 mod 10 = 6
एस: = एन div 100; // सैकड़ों प्राप्त करने के लिए, संख्या के दाईं ओर से दो अंकों को छोड़ना पर्याप्त है, अर्थात, 10 को दो बार विभाजित करें (
n div 10 div10 या
n div 100< के समान) /मजबूत>) 365 div 100 = 3
संख्या के सहेजे गए अंक होने से, हम वांछित अंक को संबंधित अंक से गुणा करके उनमें से कोई भी संख्या बना सकते हैं:
उदाहरण के लिए, नीचे दी गई पंक्ति को मूल संख्या n से एक नई संख्या मिलेगी, जिसमें सैकड़ों और एक को पुनर्व्यवस्थित किया जाएगा:
1) उनकी पुरानी संख्या (चर e) गुणा 100
2) दसियों की पुरानी संख्या (चर d में संग्रहीत) 10
से गुणा करें
3) हम सैकड़ों की पुरानी संख्या को 1 से गुणा कर सकते हैं, या केवल वेरिएबल s
में संग्रहीत मान ले सकते हैं
फिर बस अंक 1, 2 और 3 से मान जोड़ें और एक नया नंबर प्राप्त करें:
n1 := e * 100 + d * 10 + s;
कुछ इस तरह रहेगा पूरा कार्यक्रम:
<पूर्व>
<कोड>var n, e, d, s: पूर्णांक;
शुरू
पढ़ें (एन);
ई: = एन मॉड 10;
डी: = एन डिव 10 मॉड 10;
एस: = एन div 100;
राइटलन (ई, ' ', डी, ' ', एस, ' ', ई * 100 + डी * 10 + एस);
अंत।