Discussion :

[Inf0phile]

J'ai réussi à faire entrer à l'utilisateur la séquence et l'extrait à tester, mais ensuite quand je tente d'appliquer la fonction à ces deux séquences celle-ci ne me retourne rien

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Program essaiii;
 
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.

Merci beaucoup !

[droggo]

Gie,

Je me suis renseigné pour "record", si j'ai bien compris à une variable on associe une "sous-variable" qu'on appelle champs. En particulier ici à chaque séquence on associe sa longueur.

Oui, c'est le principe même des record : associer des données qui le sont logiquement par le sujet qu'on traite.
Dans le cas de ton programme, un tableau contenant une séquence a une longueur maximale fixe, ET une longueur effective, qui est celle que les traitements doivent prendre ne compte, il est donc naturel de les regrouper, afin de toujours les manipuler ensemble.

Et effectivement la boucle For c'est pas terrible si par exemple pour IndiceExtrait=1 on ne trouve pas de lettre correspondante dans Séquence (je reprends les notations d'Alcatiz c'est plus clair c'est vrai). Peut-être peut-on utiliser un "break" pour stopper la boucle si on ne trouve pas de lettre dans la Séquence ?

Oui, on pourrait, mais il est plus "propre" de faire une boucle while qui va tourner tant que certaines conditions l'y autorisent (par exemple, on doit s'arrêter quand on a atteint la fin de la séquence OU la fin de la sous-séquence, OU qu'on a déjà trouvé la présence de la sous-séquence)

Enfin je n'ai jamais manipulé de boolean pour les fonctions, donc ici si je ne me trompe pas la fonction retourne "vrai" si IndiceExtrait = LgExtrait c'est-à-dire si la boucle n'a pas été stoppée ?

C'est bien ça.

[Inf0phile]

Merci pour ces précisions droggo !

Il y a quelque chose que je ne comprends pas bien dans la fonction d'Alcatiz :

if Extrait[IndiceExtrait] = Sequence[IndiceSequence] alors on incrémente.

Mais au départ les deux indices sont à 1, donc pour incrémenter il faudrait que la première base des deux séquences soit identique non ? Et ce n'est pas forcément ce que l'on veut ?

J'ai surement tord mais j'aimerais comprendre

[Alcatîz]

Il y a quelque chose que je ne comprends pas bien dans la fonction d'Alcatiz :

if Extrait[IndiceExtrait] = Sequence[IndiceSequence] alors on incrémente.

Mais au départ les deux indices sont à 1, donc pour incrémenter il faudrait que la première base des deux séquences soit identique non ? Et ce n'est pas forcément ce que l'on veut ?

J'ai surement tord mais j'aimerais comprendre

L'indice dans la séquence est incrémenté à chaque itération de la boucle tandis que celui de l'extrait ne l'est que si la base qui lui correspond est identique à la base dans la séquence. Tourné autrement : on s'arrête à chaque base de l'extrait d'ADN et on avance dans la séquence jusqu'à trouver une base identique. Si on arrive à la fin de la séquence alors qu'on est pas à la fin de l'extrait, c'est que l'extrait n'est pas inclus dans la séquence.

[Inf0phile]

D'accord je comprends mieux tourné de cette façon

Mais sauriez-vous me dire pourquoi mon test (/votre fonction) ne donne rien ? (Alors qu'aucune erreur n'est signalée à la compilation).

Merci encore !

[droggo]

Gio,

Vu ton programme pour lire une séquence, je suppose que maintenant tu comprends pourquoi il vaudrait mieux utiliser des string :

- Une seule lecture à faire,
ReadLn(chaine)

- et la longueur est ensuite obtenue par
longueur := Length(chaine)

[Inf0phile]

Oui vous avez raison, mais l'utilisation de array est imposée par l'énoncé

Une idée pourquoi la fonction ne retourne rien ?

PS : Ca veut dire quoi les Gio ? ...etc

[droggo]

Dae,

Oui vous avez raison, mais l'utilisation de array est imposée par l'énoncé

Tu pourrais contourner en lisant une chaîne, et en faisant une procédure pour initialiser ton tableau à partir de cette chaîne. Ça resterait plus simple que ton code.

PS : Ca veut dire quoi les Gio ? ...etc

Je l'ai déjà écrit plusieurs fois (en tout cas, au moins une fois), mais c'est chaque fois modéré "hors sujet".

En gros, c'est ma manière de dire Bonjour.

[Inf0phile]

C'est bon j'ai trouvé d'où vient le problème, j'avais oublié d'afficher le résultat tout simplement ^^

Je vous remercie à tous les deux pour votre patience

Gio !