کوتاه کردن کد برنامه
Problem
Rabbit Clover به یادگیری برنامه نویسی ادامه می دهد. او قبلاً خطوط را مطالعه کرده است. اخیراً او به مطالعه زیر روال ها یعنی رویه ها رفته است. اما او نمی داند چگونه از آنها استفاده کند. اخیراً Clover می‌خواست برنامه‌ای بنویسد که طولانی‌ترین کلمات را از بین دو جمله در یک ستون چاپ کند (اگر چندین کلمه از این قبیل وجود داشته باشد، اولین کلمه‌ای را که با آن مواجه می‌شود می‌گیرد). او کاملاً مراحل را فراموش کرد و یک برنامه بسیار پیچیده نوشت.
او اینجاست:
<پیش>
var max, n: عدد صحیح;
s1, s2, wordMax, word:string;
شروع
readln(s1);
readln(s2);
حداکثر := 0;
s1 := s1 + ' ';
در حالی که طول(s1) > 0 برای شروع
n := pos(' ', s1);
کلمه := کپی(s1, 1, n);
اگر طول (کلمه) > حداکثر سپس شروع کنید
حداکثر := طول (کلمه);
wordMax := word;
پایان؛
حذف (s1, 1, n);
پایان؛
writeln(wordMax);
حداکثر := 0;
s2 := s2 + ' ';
در حالی که طول(s2) > 0 برای شروع
n := pos(' ', s2);
کلمه := کپی(s2, 1, n);
اگر طول (کلمه) > حداکثر سپس شروع کنید
حداکثر := طول (کلمه);
wordMax := word;
پایان؛
حذف (s2, 1, n);
پایان؛
writeln(wordMax);
پایان.
موافقم، درک این برنامه نسبتاً دشواری است.
با انتخاب اقدامات مشابه در رویه به Clover the Rabbit کمک کنید تا برنامه را بهبود بخشد.