séquence des voyelles

Code:

program plusLgSequenceV;
uses wincrt;

(* fontion: vérifie si une lettre est voyelle ou non *)
function isVowel(c: char):boolean;
begin
  isVowel := (Upcase(c)='A') or (Upcase(c)='E') or (Upcase(c)='I') or
              (Upcase(c)='O') or (Upcase(c)='U') or (Upcase(c)='Y');
end;

(* fonction: retourne la plus longue séquence de voyelles *)
function getLonguestSeqV(ch:string):string;
var
  curSeq : string;  (* la séquence en cours de construction *)
  lgSeq  : string;  (* la plus longue séquence trouvée *)
  i      :integer;
begin
  lgSeq  := '' ;
  curSeq := '' ;
  for i:=1 to length(ch) do
  begin
    if (isVowel(ch[i])) then
        curSeq := curSeq + ch[i]
    else
    begin
      if (length(curSeq)>length(lgSeq)) then
          lgSeq := curSeq;
      curSeq := ''; 
    end;
  end;
  if (length(curSeq)>length(lgSeq)) then
    lgSeq := curSeq;
  getLonguestSeqV := lgSeq;
end;


(* PROGRAMME PRINCIPAL *)
VAR
  chaine: string;

BEGIN
  write('Donner une séquence de lettres: ');
  readln(chaine);
  Write('Plus longue séq de VoyL: ',getLonguestSeqV(chaine));
END.

Code:


 if (length(curSeq)>length(lgSeq)) then
          lgSeq := curSeq;
      curSeq := ''; 
    end;
  end;
  if (length(curSeq)>length(lgSeq)) then
    lgSeq := curSeq;
  getLonguestSeqV := lgSeq;
end;


manianis a écrit:La boucle for ... to pourra se terminer alors que le test s'il s'agit de la plus longue séquence n'a pas été exécuté.

Exemple :
iuytrrrrroiuyoiuyoiuy
si vous ne faites pas ce test le programme considérera iuy comme étant la séquence la plus longue.