COBOL (भाग 4.) - IF और उसके दोस्त ...

कार्यक्रम की संरचना (http://habrahabr.ru/blogs/atnikvariat/115813/), सरल अंकगणितीय कार्य (http://habrahabr.ru/blogs/atnikvariat/115821) और चर का विवरण (http: //habrahabr.ru/blogs/atnikvariat/115849/) हम और आगे बढ़ेंगे!

इस बार हम परिस्थितियों की अच्छाइयों से परिचित होंगे (और अंत में ज्ञान के लिए अतिरिक्त छोटा उपहार भी प्राप्त करेंगे)।

इसलिए, मुझे लगता है कि हर कोई जो प्रोग्रामिंग में थोड़ा सा भी रुचि रखता है, उसे याद होगा कि लगभग सभी YaP में शायद ऐसा है - जैसे कि IF (if) जैसे ऑपरेटर, यह निश्चित रूप से COBOL में है।


यह कैसे दर्ज किया जाता है?

यदि <हालत>
<Action1>
(वैकल्पिक ELSE)
अंत हो।

चेतावनी। यह महत्वपूर्ण है:

COBOL में प्रत्येक एक्सप्रेशन एक "।" (डॉट) के साथ समाप्त होता है, आप पहले से ही जानते हैं, लेकिन BUT IF को एक एक्सप्रेशन माना जाता है, इसलिए यहां डॉट को END-IF के बाद ही डाला जाता है।

सावधान!

संभावित परिस्थितियां हैं:

1. एक चर में डेटा प्रकार के लिए जाँच करें:
संख्यात्मक (IS NUMERIC) - यह जाँचता है कि चर में एक संख्या है।
वर्णमाला (IS ALPHABETIC) - यह जाँच की जाती है कि चर में केवल अक्षर और स्थान होते हैं।
एल्फाबेटिक (अपरकेस) और अल्फाबेटिक (अपरकेस) (IS ALPHABETIC-UPPER और ALPHABETIC-LOWER) - इसकी क्रमशः जाँच की जाती है, कि केवल अपरकेस अक्षर या केवल लेपरकेस अक्षर और रिक्त स्थान समाहित हैं।
इसका उपयोग किया गया था और दर्ज की गई त्रुटियों की शुद्धता और जांच की गई त्रुटियों के संबंधित प्रसंस्करण को सत्यापित करने के लिए इसका उपयोग किया जा रहा है।
उदाहरण के लिए

अगर WS-A IS NUMERIC है
WS-A को WS-B से मोवे करें
वरना
प्रदर्शन "त्रुटि!"
अंत हो।

2. तुलना:
संचालक (पूर्ण संकेतन), संक्षिप्त संकेतन, अर्थ
महान शिक्षक है> अधिक से अधिक है
से महान नहीं है> नहीं से अधिक नहीं है
कम से कम है <कम से कम है
कम से कम नहीं है <नहीं से कम है
IS EQUAL TO IS = बराबर है
नहीं के बराबर नहीं है = नहीं के बराबर है
महान है या समान है = = से अधिक या इसके बराबर है
कम या कम करने के लिए <या उससे कम = के बराबर है

और यदि संख्याओं की तुलना के साथ सब कुछ स्पष्ट है, तो पत्र चर की तुलना स्पष्ट की जानी चाहिए। COBOL, दायें छोर से जोड़े गए रिक्त स्थान का उपयोग करके तुलनात्मक मानों को समान आकार में समायोजित करता है। उसके बाद, एक चरित्र-दर-वर्ण तुलना ASCII, EBCDIC (मेनफ्रेम पर), या संकलक द्वारा निर्दिष्ट एक अन्य एन्कोडिंग के अनुसार सबसे बाएं चरित्र से शुरू होती है।

IF TEXT-INPUT IS> "ऑरेंज"

प्रदर्शन "ऑरेंज"

प्रदर्शन पाठ-INPUT

वरना

प्रदर्शन पाठ-INPUT

प्रदर्शन "ऑरेंज"

अंत हो।


यदि आप Apple में प्रवेश करते हैं, तो यह ऑरेंज की तुलना में "छोटा" होगा, लेकिन सेब "बड़ा" होगा।

3. संख्या के संकेत के लिए जाँच करें:
सकारात्मक है - एक सकारात्मक संख्या;
नकारात्मक है - संख्या नकारात्मक है;
शून्य है - संख्या शून्य है;
सकारात्मक नहीं है - संख्या सकारात्मक नहीं है (0 या नकारात्मक);
नकारात्मक नहीं है - संख्या नकारात्मक नहीं है (0 या सकारात्मक);
शून्य नहीं है - संख्या शून्य के बराबर नहीं है।

उदाहरण के लिए:

डब्ल्यूएस-रिजल्ट में 100 से आगे बढ़ें।

प्रदर्शन "WS-RESULT IS", WS-RESULT।

अगर WS- परिणाम शून्य नहीं है

प्रदर्शन "शून्य परिणाम शून्य नहीं है!"

अंत हो।

यदि WS- परिणाम शून्य है

प्रदर्शन "शून्य-परिणाम शून्य है!"

अंत हो।

अगर WS-RESULT पॉज़िटिव नहीं है

प्रदर्शन "डब्ल्यूएस-नतीजा संभावित नहीं है!"

अंत हो।

अगर WS- परिणाम नगण्य नहीं है

प्रदर्शन "WS- परिणाम नम्र नहीं है!"

अंत हो।

यदि WS-RESULT पॉज़िटिव है

प्रदर्शन "WS- परिणाम संभावित है!"

अंत हो।

अगर WS-RESULT NEGATIVE है

प्रदर्शन "शून्य परिणाम शून्य नहीं है!"

अंत हो।

इस मामले में आउटपुट जैसा दिखेगा:

WS-RESULT IS 000100 है

WS- परिणाम शून्य नहीं है!

WS- परिणाम नगण्य नहीं है!

WS- परिणाम स्थिति है!

4. शर्तों के साथ एक चर का उपयोग करना:

पिछले पाठों में से एक में, हमने चर 88 के स्तर का उल्लेख किया है। अब इससे अधिक निकटता से निपटने का समय आ गया है। इस प्रकार के एक चर का कोई विवरण नहीं है, यह घोषणा पर तुरंत आरम्भ कर दिया जाता है और केवल दूसरे चर का एक प्रकार हो सकता है। इसका उपयोग अन्य प्रोग्रामिंग भाषाओं से CASE के एक निश्चित एनालॉग के रूप में किया जाता है और इसके मान को IF स्टोर किया जाता है। उदाहरण के लिए:

हम डेटा प्रभाग में वर्णन करते हैं और आरंभ करते हैं।

01 नंबर-चेक तस्वीर S9।
88 नेकां-वन मूल्य 1।
88 नेकां-शून्य मूल्य 0।
88 NC-MINUS VALUE -1।

हम प्रक्रिया प्रभाग में उपयोग करते हैं।

ACCEPT NUMBER-CHECK।
अगर नेकां-वन
प्रदर्शन "नंबर-चेक एक है"
अंत हो।
यदि NC-MINUS
प्रदर्शन "नंबर-चेक मिनट है"
अंत हो।
अगर नेकां-शून्य
प्रदर्शन "नंबर-चेक शून्य है"
अंत हो।

यह कैसे काम करता है:
NC-ONE, NC-MINUS और NC-ZERO वे चर हैं जिन्हें NUMBER-CHECK को सौंपा गया है, जब हम IF NC-ONE का उपयोग करते हैं, तो कंपाइलर वास्तव में "विकल्प" होता है।
IF NUMBER-CHECK = 1।

VALUE के अतिरिक्त, VALUES <value-of> THRU <value-to> का उपयोग किया जा सकता है, जिसमें 88 NC-ONE VALUES 1 THRU 10 के साथ, 1 से 10 के बीच में NUMBER-CHECK में संग्रहीत मान की जाँच की जाएगी।

उपरोक्त के अलावा, IF, NOT, AND और OR का समर्थन करता है, उदाहरण के लिए, IF NOT WS-A = WS-B या IF ((WS-A = WS-B) और (WS-A = WS-RESULT)) या (WS-RESP =) WS-बी)।

टिप्पणियों में प्रश्नों और सुझावों की प्रतीक्षा है।
अगली मुलाकात तक! आगे और भी कई दिलचस्प बातें होंगी)

Vorontsov "nerfur" व्याचेस्लाव। 2011।