Problem

8 /13


सभी पात्रों के माध्यम से लूप करें

Theory Click to read/hide

चूँकि किसी वर्ण को अनुक्रमणिका द्वारा एक्सेस किया जा सकता है, आप सभी वर्णों पर पुनरावृति करने के लिए एक चर लूप का उपयोग कर सकते हैं, जो संभावित सूचकांक मान लेगा। उदाहरण के लिए, एक प्रोग्राम जो स्ट्रिंग एस के सभी वर्ण कोड प्रदर्शित करता है वह इस तरह दिखेगा <पूर्व> for i := 1 to length(s) करते हैं राइटलन (एस [i], ऑर्ड (एस [i])) कार्यक्रम के लिए स्पष्टीकरण:
1) <कोड> लंबाई फ़ंक्शन एक स्ट्रिंग की लंबाई पाता है। पहले वर्ण की अनुक्रमणिका 1 है और अंतिम की अनुक्रमणिका लंबाई है। लूप वेरिएबल i केवल 1 से लंबाई तक मान लेगा।
2) प्रत्येक पंक्ति में, प्रतीक स्वयं पहले प्रदर्शित होगा, और उसके बाद उसका कोड, जो अंतर्निहित फ़ंक्शन ord()
द्वारा वापस किया जाता है
उसी गणना को छोटा लिखा जा सकता है: <पूर्व> सी इन एस के लिए      राइटलन (सी, ऑर्ड (सी)); इस फ़्रैगमेंट में, लूप हेडर सभी वर्णों के बीच से गुजरता है, उन्हें बदले में वेरिएबल c में रखता है।

तार के साथ काम करते समय पास्कल की ख़ासियत यह है कि तार परिवर्तनशील वस्तुएँ हैं। दूसरे शब्दों में, हम एक स्ट्रिंग के अलग-अलग वर्णों को बदल सकते हैं।
उदाहरण के लिए, निम्न कथन काम करेगा <पूर्व> s[5] := 'a'; आप आवश्यक परिवर्तनों के साथ वर्णों से एक नई स्ट्रिंग भी बना सकते हैं।
उदाहरण के लिए, एक प्रोग्राम जो 'a' अक्षरों के लिए 'बी' इस तरह दिखेगा: <पूर्व> पढ़ें (ओं);     i := 1 से लंबाई के लिए शुरू करते हैं         अगर s[i] = 'a'तो s[i] := 'b';     अंत; लेख; इस उदाहरण में, हम स्ट्रिंग s के सभी वर्णों के माध्यम से लूप करते हैं। लूप की बॉडी में, हम वेरिएबल s[i] के मान की जांच करते हैं: यदि कैरेक्टर 'a' से मेल खाता है, तो हम इसे 'b' से बदल देते हैं। />  

Problem

एक प्रोग्राम लिखें जो स्ट्रिंग में सभी अवधियों को शून्य और सभी अक्षरों "X" से बदल देता है इकाइयां। 

उदाहरण <टेबल क्लास = "टेबल टेबल-कंडेंस्ड टेबल-होवर"> <सिर> <वें># <वें>इनपुट <वें>आउटपुट <शरीर> 1 ..X..XX 0010011