Raccourcir le code du programme
Problem
Rabbit Clover continue d'apprendre la programmation. Il a déjà étudié les lignes. Récemment, il est passé à l'étude des sous-programmes, à savoir les procédures. Mais il ne comprend pas comment les utiliser. Récemment, Clover a voulu écrire un programme qui imprimerait les mots les plus longs sur deux phrases dans une colonne (s'il y a plusieurs mots de ce type, alors il prendrait le premier qu'il rencontrerait). Il a complètement oublié les procédures et a écrit un programme très complexe.
Elle est là:
var max, n : entier ;
s1, s2, motMax, mot:chaîne ;
commencer
readln(s1);
readln(s2);
max := 0;
s1 := s1 + ' ';
tandis que longueur(s1) > 0 pour commencer
n := pos(' ', s1);
mot := copier(s1, 1, n);
si longueur(mot) > max puis commencer
max := longueur(mot);
motMax := mot;
fin;
supprimer(s1, 1, n);
fin;
writeln(wordMax);
max := 0;
s2 := s2 + ' ';
tandis que longueur(s2) > 0 pour commencer
n := pos(' ', s2);
mot := copier(s2, 1, n);
si longueur(mot) > max puis commencer
max := longueur(mot);
motMax := mot;
fin;
supprimer(s2, 1, n);
fin;
writeln(wordMax);
fin.
D'accord, c'est un programme assez difficile à comprendre.
Aidez Clover le lapin à améliorer le programme en sélectionnant les mêmes actions dans la procédure.