Module: 子程序：过程和函数 - 1


Problem

7/12

缩短程序代码

Problem

兔子四叶草继续学习编程。他已经研究过这些台词。最近，他开始研究子程序，即程序。但他不明白如何使用它们。最近，Clover 想写一个程序，打印一列中两个句子中最长的单词（如果有几个这样的单词，那么它会打印它遇到的第一个）。他完全忘记了程序，写了一个非常复杂的程序。
她在这： <前> var max, n: 整数； s1, s2, wordMax, word:string; 开始    读（s1）；    读（s2）；    最大值：= 0；     s1 := s1 + ' ';    而长度（s1）>; 0开始         n := pos(' ', s1);        单词 := 复制 (s1, 1, n);        如果长度（字）>;最大然后开始            最大：=长度（字）；             wordMax := 单词;        结尾;        删除（s1，1，n）；    结尾;     writeln（wordMax）；         最大值：= 0；     s2 := s2 + ' ';    而长度（s2）>; 0开始         n := pos(' ', s2);        单词 := 复制 (s2, 1, n);        如果长度（字）>;最大然后开始            最大：=长度（字）；             wordMax := 单词;        结尾;        删除（s2，1，n）；    结尾;     writeln（wordMax）； 结尾。 同意，这是一个很难理解的程序。 
通过在程序中选择相同的操作，帮助四叶草兔子改进程序。

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!