Module: Subrutinas: procedimientos y funciones - 1


Problem

7/12

Acortar el código del programa

Problem

Rabbit Clover continúa aprendiendo programación. Ya ha estudiado las líneas. Recientemente, pasó al estudio de las subrutinas, a saber, los procedimientos. Pero él no entiende cómo usarlos. Recientemente, Clover quería escribir un programa que imprimiera las palabras más largas de dos oraciones en una columna (si hay varias de esas palabras, tomaría la primera que encontrara). Se olvidó por completo de los procedimientos y escribió un programa muy complejo.
Aqui esta ella: var max, n: entero; s1, s2, maxpalabra, palabra:cadena; comenzar     readln(s1);     readln(s2);     máx := 0;     s1 := s1 + ' ';     mientras longitud(s1) > 0 para comenzar         n := pos(' ', s1);         palabra := copiar(s1, 1, n);         si longitud (palabra) > Max entonces comienza             max := longitud(palabra);             palabraMax := palabra;         fin;         eliminar (s1, 1, n);     fin;     writeln(palabraMax);          máx := 0;     s2 := s2 + ' ';     mientras longitud(s2) > 0 para comenzar         n := pos(' ', s2);         palabra := copiar(s2, 1, n);         si longitud (palabra) > Max entonces comienza             max := longitud(palabra);             palabraMax := palabra;         fin;         eliminar (s2, 1, n);     fin;     writeln(palabraMax); fin. De acuerdo, este es un programa bastante difícil de entender. 
Ayuda a Clover the Rabbit a mejorar el programa seleccionando las mismas acciones en el procedimiento.

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!