1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Detection du mot le plus long

Detection du mot le plus long

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 141 fois - Téléchargée 29 fois

Commenter

Contenu du snippet

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.

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_peecota)