Module: सबरूटीन्स: प्रक्रियाएं और कार्य - 1


Problem

7/12

प्रोग्राम कोड छोटा करें

Problem

रैबिट क्लोवर प्रोग्रामिंग सीखना जारी रखता है। उन्होंने पहले ही लाइनों का अध्ययन कर लिया है। हाल ही में, वह उपनेमकाओं, अर्थात् प्रक्रियाओं के अध्ययन पर चले गए। लेकिन उन्हें समझ नहीं आ रहा है कि उनका इस्तेमाल कैसे किया जाए। हाल ही में, क्लोवर एक ऐसा प्रोग्राम लिखना चाहता था जो एक कॉलम में दो वाक्यों में से सबसे लंबे शब्दों को प्रिंट करेगा (यदि ऐसे कई शब्द हैं, तो यह पहले वाले को ले जाएगा)। वह पूरी तरह से प्रक्रियाओं के बारे में भूल गया और एक बहुत ही जटिल कार्यक्रम लिखा।
ये रही वो: <पूर्व> var max, n: पूर्णांक; एस 1, एस 2, वर्डमैक्स, शब्द: स्ट्रिंग; शुरू     रीड्लन (एस 1);     रीड्लन (एस 2);     अधिकतम: = 0;     s1 := s1 + ' ';     जबकि लंबाई(s1) > 0 शुरू करने के लिए         n := स्थिति (' ', s1);         शब्द : = प्रतिलिपि (s1, 1, n);         अगर लंबाई (शब्द) > अधिकतम फिर शुरू करें             अधिकतम: = लंबाई (शब्द);             वर्डमैक्स: = शब्द;         अंत;         हटाएं (एस 1, 1, एन);     अंत;     राइटलन (वर्डमैक्स);          अधिकतम: = 0;     s2 := s2 + ' ';     जबकि लंबाई(s2) > 0 शुरू करने के लिए         n := स्थिति (' ', s2);         शब्द : = प्रतिलिपि (s2, 1, n);         अगर लंबाई (शब्द) > अधिकतम फिर शुरू करें             अधिकतम: = लंबाई (शब्द);             वर्डमैक्स: = शब्द;         अंत;         हटाएं (एस 2, 1, एन);     अंत;     राइटलन (वर्डमैक्स); अंत। सहमत हूं, यह समझने के लिए काफी कठिन कार्यक्रम है। 
प्रक्रिया में समान क्रियाओं का चयन करके कार्यक्रम को बेहतर बनाने के लिए क्लोवर द रैबिट की मदद करें।

time 1000 ms
memory 256 Mb
Rules for program design and list of errors in automatic problem checking

Teacher commentary

Insert the missing code snippets
Pascal
Write the program below 
var max, n: integer;
s1, s2, wordMax, word: string;

procedure printMaxWord(s: string);
begin 
end;

begin
    readln(s1);
    readln(s2);
    printMaxWord(s1);
    printMaxWord(s2);
end.

     

Program check result

To check the solution of the problem, you need to register or log in!