Module: サブルーチン: プロシージャと関数 - 1


Problem

7/12

プログラムコードを短くする

Problem

Rabbit Cloverはプログラミングの学習を続けています。彼はすでにセリフを勉強しました。最近、彼はサブルーチン、つまりプロシージャの研究に移りました。しかし、彼はそれらの使い方を理解していません。最近、Clover は、2 つの文のうち最も長い単語を 1 列に出力するプログラムを書きたいと考えていました (そのような単語が複数ある場合は、最初に遭遇した単語が取得されます)。手順をすっかり忘れて非常に複雑なプログラムを書いてしまい
ました。 彼女が来た： <プレ> var max, n: 整数; s1、s2、wordMax、単語:文字列; 始める     readln(s1);     readln(s2);    最大:= 0;     s1 := s1 + ' ';     while length(s1) >>; 0で開始         n := pos(' ', s1);        単語:=コピー(s1、1、n);        長さ(単語) >の場合最大で開始            最大 := 長さ (ワード);             wordMax := ワード;        終わり;        削除 (s1、1、n);    終わり;     writeln(ワードマックス);         最大:= 0;     s2 := s2 + ' ';     while length(s2) >gt; 0で開始         n := pos(' ', s2);        単語:=コピー(s2、1、n);        長さ(単語) >の場合最大で開始            最大 := 長さ (ワード);             wordMax := ワード;        終わり;        削除 (s2、1、n);    終わり;     writeln(ワードマックス); 終わり。 同意します。これは理解するのがかなり難しいプログラムです。
手順内で同じアクションを選択して、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!