Exercice sur une chaîne de caractères

Version imprimable

Voir 40 message(s) de cette discussion en une page

20/05/2007, 17h28
mah00

[QUOTE=droggo]
Mais il te faut apprendre à tenir compte des réponses.
[QUOTE]
c'est ce que j'essaye de faire mais je ne peux pas accepter une remarque sans la comprendre c'est pour cela.Donc mais réponses sont un forme de demande d'explication.
est ce que tu peux m'aider sur l'autre sujet que j'ai crée?http://www.developpez.net/forums/sho...d.php?t=340169
20/05/2007, 17h32
droggo

Jau,
[QUOTE=mah00][QUOTE=droggo]
Mais il te faut apprendre à tenir compte des réponses.

Citation:

c'est ce que j'essaye de faire mais je ne peux pas accepter une remarque sans la comprendre c'est pour cela.Donc mais réponses sont un forme de demande d'explication.
est ce que tu peux m'aider sur l'autre sujet que j'ai crée?http://www.developpez.net/forums/sho...d.php?t=340169

Là, tu pousses un peu, je t'ai répété plusieurs fois ce qui n'allait pas
20/05/2007, 17h39
mah00

desoler droggo,j'ai des défauts comme tout le monde:oops:
je sais que je suis tetu mais je veux apprendre.:roll:
20/05/2007, 17h56
droggo
Poa,

Citation:

Envoyé par mah00

desoler droggo,j'ai des défauts comme tout le monde:oops:
je sais que je suis tetu mais je veux apprendre.:roll:

Alors, fais au moins une partie de ce que je t'ai dit :

Les variables locales doivent toujours être initialisées.

Ce qui, pour ta procédure trans, conduit à
Code:

1 2 3 4 5 6 7 8 9 procedure trans(ch1:shortstring;i1:integer; var r:shortstring); var j1,j2:shortstring; begin j1 :=''; j2 :=''; j1:=j1+ch1[i1]; j2:=ch1[length(ch1)-i1+1]+j2; r:=j1+j2; end;
Et regarde le résultat
20/05/2007, 18h03
mah00

mais si je fais comme cela,il va me vider j1 et j2 a chaque fois qu'il recommence la boucle,et ce n'est pas ca que je veux.Je ne sais pas quoi faire!parce que ma procedure est faite pour ne fonctionner que si on lui donne l'indice i1 (en locurrence dans une boucle).Donc qu'est ce que tu proposes?
20/05/2007, 18h37
droggo

Hei,

Citation:

Envoyé par mah00

mais si je fais comme cela,il va me vider j1 et j2 a chaque fois qu'il recommence la boucle,et ce n'est pas ca que je veux.Je ne sais pas quoi faire!parce que ma procedure est faite pour ne fonctionner que si on lui donne l'indice i1 (en locurrence dans une boucle).Donc qu'est ce que tu proposes?

As-tu lu toutes mes réponses ?

Rien, absolument rien ne garantit que des variables locales conservent leurs valeurs entre 2 appels, c'est plutôt le contraire qui est le plus probable.

Ce que je propose est évident : réécris ta procédure.

alor si maintenant droggo n'est pa satisfait,je vais me suicider je crois :(

Code:

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
program chaine;
uses wincrt;
type tab=array [1..50] of string;
var ch:string;
    r:string;
    j:integer;
    t:tab;
procedure saisie(var ch1:string);
begin
write('donner la chaine:');
read(ch1);     
end;
 
procedure trans(ch1:string; var t1:tab);
var  i1:integer;
     j1,j2:string;
begin
 j1:='';
 j2:='';
 r:='';
  for i1:=1 to length(ch) do
    begin
     j1:=j1+ch1[i1];
     j2:=ch1[length(ch1)-i1+1]+j2;
     r:=j1+j2;
     t1[i1]:=r;
    end;
end;
 
begin
 saisie(ch);
 trans(ch,t);
  for j:=1 to length(ch) do
    writeln(t[j]);
end.

21/05/2007, 09h51
M.Dlb

Je crois que tu ne comprends pas trop ce que tu fais. Premièrement, ton algorithme est faux, car ce que tu fais dans ta boucle n'est pas correct. Déjà tu parcours ta boucle de 1 à length(ch), or il ne faut en prendre qu'un certain nombre. Dans "tubo", ce nombre est égal à 2, par exemple.

Ensuite, pour les variables, tu ne les utilises pas correctement. Dans ta procédure trans, tu utilises la variable r, mais tu ne l'utilises que dans cette procédure, donc il convient de la déclarer en variable locale. De la même façon, trans n'est pas censé connaître la variable ch, donc il ne faut pas l'utiliser, mais utiliser ch1 que tu lui passes.

Première étape, revois ton algo, car il est clair qu'il n'est pas bon. Petit indice :
Pour n = 1, on reçoit la première et la dernière lettre -> "to"
Pour n = 2, première + deuxième + avant dernière + dernière -> "tubo"
Pour n = x, 1 + 2 + 3 + ... + x - 3 + x - 2 + x - 1 + x

Tu peux utiliser les modulos pour parcourir ta chaîne en entrée, ca peut servir.

Gag,

Citation:

Envoyé par mah00

alor si maintenant droggo n'est pa satisfait,je vais me suicider je crois :(

[humour noir]
J'ai de la corde à vendre, pas chère, solide :)
[/humour noir]

Bref, soyons un peu sérieux.

Je vais vous étonner, car je ne fait pas ça souvent, mais voici une version de ce qu'on peut faire:

Code:

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
program chaine;
 
uses  crt;
 
{ uniquement destinée pour remplacer le sempiternel
  "Readln" à la fin du programme principal.
  L'avantage est qu'on a automatiquement un message
  disant explicitement que c'est terminé, utile
  pour les programmes un peu longs à se terminer :) }
procedure waitFin;
var
  c : char;
begin
  Writeln;
  Write('fini, appuyez sur une touche pour sortir ');
  c := ReadKey;
  if c=Chr(0) then c := ReadKey; { pour vider le buffer }
end;
 
 
{ renvoie les n premiers caractères s }
function GetLeft(const s : string; n : integer) : string;
var
  res : string ;
  i,len : integer;
begin
  res := '';
  len := length(s);
  if (n > 0) and (n <= len)
  then
  begin
    for i:=1 to n do res := res + s[i];
  end;
 
  GetLeft := res;
end;
 
{ renvoie les n derniers caractères de s }
function GetRight(const s : string; n : integer) : string;
var
  res : string ;
  i,len : integer;
begin
  res := '';
  len := length(s);
  if (n > 0) and (n <= len)
  then
  begin
    for i:=len-n+1 to len do res := res + s[i];
  end;
 
  GetRight := res;
end;
 
{ renvoie une chaine contenant les n premiers caractères
  + les n derniers caractères de s }
function GetTotal(const s : string; n : integer) : string;
begin
  GetTotal := GetLeft(s,n) + GetRight(s,n);
end;
 
{ affiche toutes les chaines reconstruites à partir de s }
procedure Affiche(const s : string);
var
  i : integer;
begin
  writeln; { sauter une ligne avant de mettre le résultat }
  for i:=1 to length(s) do writeln(GetTotal(s,i));
end;
 
function Saisie : string;
var
  res : string;
begin
  write('Entrez la chaine a traiter : ');
  readln(res);
  Saisie := res;
end;
 
var
  s : string;
begin
  s := Saisie;
  Affiche(s);
 
  waitFin;
end.

21/05/2007, 16h01
gadalla
tu peut utiliser uns méthode plus facile
Code:

1 2 3 4 for i:= 2 to 2*lenth(ch) do; a:= copy(ch,i,1); writeln (a); end;
:salut:
21/05/2007, 16h39
droggo
Jui,
Citation:
Envoyé par gadalla

tu peut utiliser uns méthode plus facile

Code:

1 2 3 4 for i:= 2 to 2*lenth(ch) do; a:= copy(ch,i,1); writeln (a); end;

:salut:
Aïe, Aïe, Aïe, Aïe

Attention à la syntaxe.

Sais-tu ce que fait réellement ton programme ?

Euh.. j'vous trouve bien shadocks !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Program Y_a_de_l_air_dans_tuburbo;
 
var s : string;
    i : integer;
    n : integer;
 
begin
 write('Entrez votre chaîne de caractères : ');readln(s);
 n := length(s);
 for i := 1 to n do writeln(copy(s,1,i),copy(s,n-i+1,i));
 readln;
end.

:roll:

Pui,
Citation:
Envoyé par CapJack
Euh.. j'vous trouve bien shadocks !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Program Y_a_de_l_air_dans_tuburbo; var s : string; i : integer; n : integer; begin write('Entrez votre chaîne de caractères : ');readln(s); n := length(s); for i := 1 to n do writeln(copy(s,1,i),copy(s,n-i+1,i)); readln; end.
:roll:
C'est une autre manière de faire, évidemment plus simple, mais mah00 était parti pour faire ses propres fonctions, et comme il débute, il est bon qu'il le fasse effectivement.

Certes, il ne faut pas réinventer la roue chaque jour, mais il faut quand même apprendre à faire des routines élémentaires avant de se lancer dans plus complexe.

22/05/2007, 14h45
mah00

Citation:

Envoyé par droggo

C'est une autre manière de faire, évidemment plus simple, mais mah00 était parti pour faire ses propres fonctions, et comme il débute, il est bon qu'il le fasse effectivement.

En fait c'est notre progrmme scolaire qui nous l'impose!Et j'avoue que si ca n'étais pas dans notre programme de cette année,j'e ne me serais pas interesssé a la programmation en pascal.Mais maintenant j'y trouve un réel plaisir!

voilà la solution:

Code:

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
program chaine;
uses wincrt;
var ch:string;
    r:string;
    i,j:integer;
    t:array [1..50] of string;
procedure saisie(var ch1:string);
begin
write('donner la chaine:');
read(ch1);     
end;
 
procedure affiche(ch:string;i:integer);
 
begin
 
  write (copy(ch,1,i));
  writeln(copy(ch,length(ch)-i+1,i));
end;
 
begin
saisie(ch);
for i:=1 to length(ch)  do
affiche(ch,i);
 
 
end.

je suis pret pour n'importe qu'elle problème en pascal

ce programme permet d'afficher un mot sur la forme suivante:

Code:

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
program chaine;
uses wincrt;
var ch:string;
    ch3:string;
 
procedure saisie(var ch1:string);
begin
write('donner la chaine:');
read(ch1);     
end;
 
procedure trans(ch1:string; var ch2:string);
var i,z,j:integer;
begin
j:=1;z:=1;
 for i:=1 to length(ch) do
  begin
   writeln(copy(ch,z,j));
    j:=j+1;
  end;
end;
 
begin
writeln('***************************** Chaine de caratere *******************************');
saisie(ch);
trans(ch,ch3);
writeln('');
writeln('************************************ fin ***************************************');
end.

Voir 40 message(s) de cette discussion en une page