vous cherchez le mot le plus long d'une phrase? ce program va vous le trouver .les mots doivent etre séparés par des espaces .
Source / Exemple :
program MotPlusLong;
var i,j,k,l,n:integer;
text:string;
begin
writeln('entrez un text dont les mots sont seprares par des espaces :');
readln(text);
writeln;
j:=1;
i:=1;
k:=0;
l:=length(text);
while j<=l do
begin
while (i<=l)and(text[i]<>' ')and(text[i]<>'''') do i:=i+1;
if i-j>k then
begin
k:=i-j;
n:=i;
j:=i;
end;
j:=j+1;
i:=j;
end;
write('le mot le plus long est : ');
for i:=n-k to n-1 do write(text[i]);
readln;
end.
Conclusion :
merci de me signaler les erreurs.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.