Algorithme sous-séquence en Pascal

Citation :
Soit un vecteur à éléments entiers naturels. On veut réordonner ce vecteur de sorte que tous les entiers pairs soient placés en tête et tous les impairs en queue, l'ordre relatif des éléments étant conservé à l'intérieur de chaque groupe

Citation :
Program tri;

uses dos,crt;

Const n=10;

Type vecteur=array[0..n] of integer;

var u:vecteur;

Procedure Permute(var v:vecteur; taille:integer);

var i,j,k:integer;
    w:vecteur;

begin
j:=0;
     for i:=0 to taille do
     begin
          if v[i] mod 2 = 0 then
          begin
               w[j]:=v[i];
               j:=j+1;
          end;
     end;
     for i:=0 to taille do
     begin
          if v[i] mod 2 <> 0 then
          begin
               w[j]:=v[i];
               j:=j+1;
          end;
     end;
for k:=0 to taille do v[k]:=w[k];
end;

begin

initialisation(u,n); (*C'est une procédure qui génère aléatoirement un vecteur*)
writeln;
Permute(u,n);
writeln;
readln;

end.

Citation :
let test b =
  if b then
    print_endline "Vrai";
    print_endline "Vrai bis"
  else
    print_endline "Faux";
    print_endline "Faux bis";;

Citation :
let test b =
  if b then
    begin    
      print_endline "Vrai";
      print_endline "Vrai bis"
    end
  else
    begin    
      print_endline "Faux";
      print_endline "Faux bis"
    end;;

Citation :
let test b =
  if b then
    (print_endline "Vrai";
    print_endline "Vrai bis")
  else
    (print_endline "Faux";
    print_endline "Faux bis");;

Citation :
But du problème : On possède deux séquences d'ADN formée des bases G,T,A,C. Soit Séquence celle dont la longueur est la plus grande et Extrait l'autre. On cherche à écrire un algorithme qui teste si Extrait est une sous-séquence de Séquence.

Pour fixer les idées, on dit que v est une sous-séquence de u si on retrouve les bases de v dans u et ceci dans le même ordre.

Exemple : u = GTACGTTA et v = GCTA alors on a bien v sous-séquence car u = GTACGTTA

Citation :
Program genome;

uses dos,crt;

Type Seq=array[1..20] of char;

var i,j,LgSequence, LgExtrait : integer;
    Sequence, Extrait : Seq;
    baseseq, baseext : char;

Function EstSousSeq (LgSequence, LgExtrait : Integer; Sequence, Extrait : Seq) : Boolean;
Var IndiceSequence, IndiceExtrait : Integer;
Begin
  IndiceSequence := 1;
  IndiceExtrait := 1;
  while (IndiceExtrait <= LgExtrait) and (IndiceSequence <= LgSequence) do
    begin
      if Extrait[IndiceExtrait] = Sequence[IndiceSequence]
         then
           Inc(IndiceExtrait);
      Inc(IndiceSequence);
    end;
  EstSousSeq := (IndiceExtrait > LgExtrait);
End;

begin
     writeln('Entrez la longueur de la sequence');
     readln(LgSequence);
     writeln('Entrez la longueur de l extrait');
     readln(LgExtrait);
          for i:=1 to LgSequence do
          begin
               writeln('Entrez dans la sequence le terme ',i);
               readln(baseseq);
               Sequence[i]:=baseseq;
          end;
          for j:=1 to LgExtrait do
          begin
                writeln('Entrez dans l extrait le terme ',j);
                readln(baseext);
                Extrait[j]:=baseext;
          end;
     for i:=1 to Lgsequence do write(Sequence[i],' ');
     writeln;
     for j:=1 to LgExtrait do write(Extrait[j], ' ');
     writeln;
     EstSousSeq(LgSequence,LgExtrait,Sequence,Extrait);
     writeln;
     readln;
end.

Citation :
Je pensais que puisque c'était une fonction le résultat s'afficherait sans rien demander non ?

Citation :
if EstSousSeq(LgSequence,LgExtrait,Sequence,Extrait);
then
  writeln('C'est une sous-séquence, youpi !!');
else
  writeln('Ah bah non, c'est pas une sous-séquence, tant pis...');

Citation :
if EstSousSeq(LgSequence,LgExtrait,Sequence,Extrait);
then
  writeln('C'est une sous-séquence, youpi !!');
else
  writeln('Ah bah non, c'est pas une sous-séquence, tant pis...');

Citation :
Ca me rappelle en MPI en seconde, on avait trouvé un truc pour se parler d'un ordi à l'autre sous ms dos ^^

Citation :
Une séquence w est sous-séquence commune maximale de u et v si w est sous-séquence de u et v, et de longueur maximale. On note L(i,j) la longueur d'une sous-séquence commune maximale aux mots u(i) = a1...ai et v(j) = b1...bj.

J'ai montré que

Citation :
Function LongSSC(n,m:integer;u,v:Seq):integer;

Var i,j,k,l:integer;w:array[0..Nmax,0..Nmax] of integer;

Begin

for k:=0 to n do
begin
     for l:=0 to n do w[k,l]:=0;
end;

for i:=1 to n do
begin
     for j:=1 to m do
     begin
          if (u[i-1]=v[j-1]) then
             w[i,j]:=1+w[i-1,j-1]
          else
          begin
             if (w[i,j-1]<w[i-1,j]) then
                w[i,j]:=w[i-1,j]
             else
                w[i,j]:=w[i,j-1];
          end;  
     end;
end;
LongSSC:=w[n,m];
End;

Citation :
Function bit2(a,p : integer) : LongInt;

begin
if p>0 then bit2(a,p):=bit2(a div 2, p-1) else bit2(a,p):=a mod 2
end;

Citation :
for k:=0 to n do
begin
     for l:=0 to n do w[k,l]:=0;
end;