Module: الروتين الفرعي: الإجراءات والوظائف - 1


Problem

7/12

اختصر كود البرنامج

Problem

يواصل Rabbit Clover تعلم البرمجة. لقد درس الخطوط بالفعل. في الآونة الأخيرة ، انتقل إلى دراسة الإجراءات الفرعية ، وهي الإجراءات. لكنه لا يفهم كيفية استخدامها. في الآونة الأخيرة ، أراد Clover كتابة برنامج يطبع أطول كلمة من جملتين في عمود (إذا كان هناك عدة كلمات من هذا القبيل ، فسيستغرق الأمر الأول الذي واجهته). لقد نسي الإجراءات تمامًا وكتب برنامجًا معقدًا للغاية.
ها هي: <قبل> فار ماكس ، ن: عدد صحيح ؛ s1، s2، wordMax، word: string؛ يبدأ نبسب ؛ نبسب ؛ readln (s1) ؛ نبسب ؛ نبسب ؛ readln (s2) ؛ نبسب ؛ نبسب ؛ الحد الأقصى: = 0 ؛ نبسب ؛ نبسب ؛ s1: = s1 + & # 39 ؛ & # 39 ؛؛ نبسب ؛ نبسب ؛ بينما الطول (s1) & GT. 0 للبدء نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ ن: = نقاط البيع (& # 39 ؛ & # 39 ؛ ، s1) ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ كلمة: = نسخ (s1، 1، n) ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ إذا كان الطول (كلمة) & GT. ماكس ثم تبدأ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ الحد الأقصى: = الطول (كلمة) ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ wordMax: = كلمة ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نهاية؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ حذف (s1، 1، n) ؛ نبسب ؛ نبسب ؛ نهاية؛ نبسب ؛ نبسب ؛ writeln (wordMax) ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ الحد الأقصى: = 0 ؛ نبسب ؛ نبسب ؛ s2: = s2 + & # 39 ؛ & # 39 ؛؛ نبسب ؛ نبسب ؛ بينما الطول (s2) & GT. 0 للبدء نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ ن: = نقاط البيع (& # 39 ؛ & # 39 ؛ ، s2) ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ كلمة: = نسخ (s2، 1، n) ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ إذا كان الطول (كلمة) & GT. ماكس ثم تبدأ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ الحد الأقصى: = الطول (كلمة) ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ wordMax: = كلمة ؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ نهاية؛ نبسب ؛ نبسب ؛ نبسب ؛ نبسب ؛ حذف (s2، 1، n) ؛ نبسب ؛ نبسب ؛ نهاية؛ نبسب ؛ نبسب ؛ writeln (wordMax) ؛ نهاية. موافق ، هذا برنامج يصعب فهمه. & nbsp؛
ساعد Clover the Rabbit على تحسين البرنامج عن طريق تحديد نفس الإجراءات في الإجراء.

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!