Module: 서브루틴: 절차 및 기능 - 1


Problem

7/12

프로그램 코드 단축

Problem

토끼 클로버는 계속해서 프로그래밍을 배웁니다. 그는 이미 대사를 공부했습니다. 최근에 그는 서브루틴, 즉 절차에 대한 연구로 옮겼습니다. 그러나 그는 그것들을 사용하는 방법을 이해하지 못합니다. 최근에 Clover는 열에 있는 두 문장 중 가장 긴 단어를 인쇄하는 프로그램을 작성하고 싶었습니다(이러한 단어가 여러 개 있는 경우 처음 만나는 단어를 사용함). 그는 절차를 완전히 잊어버리고 매우 복잡한 프로그램을 작성했습니다.
그녀는 다음과 같습니다. <예비> var max, n: 정수; s1, s2, wordMax, 워드:문자열; 시작하다     readln(s1);     readln(s2);     최대 := 0;     s1 := s1 + ' '     길이(s1) > 시작하려면 0         n := pos(' ', s1);         단어 := 복사(s1, 1, n);         if 길이(단어) > 최대 다음 시작             최대 := 길이(단어);             워드맥스 := 워드;         끝;         삭제(s1, 1, n);     끝;     writeln(wordMax);          최대 := 0;     s2 := s2 + ' ';     길이(s2) > 시작하려면 0         n := pos(' ', s2);         단어 := 복사(s2, 1, n);         if 길이(단어) > 최대 다음 시작             최대 := 길이(단어);             워드맥스 := 워드;         끝;         삭제(s2, 1, n);     끝;     writeln(wordMax); 끝. 이해하기 다소 어려운 프로그램입니다. 
절차에서 동일한 작업을 선택하여 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!