Discussion :

[lilouk10]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program long;
uses wincrt;
var ch,ch1:string;
i,r:integer;
 
 
Begin
readln(ch);
 
 
for i:=1 to length(ch) do
 
if ch[i] = ' ' then
begin
ch1:=copy(ch,1,i);
delete(ch,1,i);
end;
write(ch1);
 
 
end.

De l'aide SVP.

[anapurna]

Salut

Bon on va reprendre du début.

Que veux-tu faire :
- Chercher le mot le plus long de la phrase.
1°) Premièrement parcourir toute la phrase
2°) Comparer les longueurs de mots
- donc sauvegarder le mot le plus long et le comparer au mot courant
- définir la fin d'un mots ici ' '

Je pense que le pseudo-code suivant devrait t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Position = 1
TANSQUE  Position < LONGUEUR(Phrase) Faire 
DEBUT
  Caractere = Lire(Phrase[Position])
  SI  Caractere =' ' ALORS
  BEGIN
    SI LONGUEUR(Mots) > LONGUEUR(MotsSauve) ALORS 
    DEBUT
        MotsSauve = Mots
    FIN
    Mot = ''
  SINON
    Mots = Mots+ Caractere
  FIN
FIN
 RETOURNE = Mots

[sofiane bendiab]

Bonjour
Ce programme marche à 100% :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program long;
uses wincrt;
var ch,mg,ch1:string[100];
i,l:integer;
Begin
WriteLn('ecrire la phrase');
readln(ch);
l:=Length(ch);
mg:=' ';
for i:=1 to length(ch) do
Begin
if (ch[i]= ' ' )OR(i=l ) then
begin
ch1:=copy(ch,1,i-1);
Delete(ch,1,i);
End;
if Length(ch1)>Length(mg) Then
Begin
mg:=ch1;
end;
End;
WriteLn('le mot le plus grand est ',mg);
end.

[droggo]

Bonjour,

bonjour
ce progarm marche a 100%

Le but du forum est de fournir de l'aide, pas de donner les solutions