Discussion :

[aminemen]

Bonjour, j'ai fait ce programme simple pour chiffrer son nom à l'aide d'une vesion du 'code de césar' qui consiste à remplacer chaque caractère du nom à crypter par le caractère qui le suis selon l'ordre ASCII :

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
program Chiffr;
uses wincrt;
var ch,ch1:string;r,i:integer;
begin
writeln('Entrez votre nom : ');
readln(ch);
for i:=1 to length(ch) do
begin
r:=ord(ch[i])+1;
if r=256 then r:=0;
ch1[i]:=chr(r)
end;
writeln('Le cryptage de votre nom donne : ');
writeln(ch1);
end.

Ce programme ne fonctionne pas tel qu'il est, plus précisement il n'affiche pas le nom chiffré, pour le faire fonctionner je doit remplacer dans la boucle

Code :

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

i:=1 to length(ch)

par

Code :

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

i:=0 to length(ch)

.

Alors pourquoi ma boucle doit-elle commencer par i:=0 ?
Le premier caractère de la chaine 'ch' étant 'ch[1]' et non 'ch[0]'.

Merci

[M.Dlb]

Le problème vient de ch1. Tu affectes ch1[i] à chaque tour de boucle, mais la taille de la chaine ch1 est pas modifiée en laissant ta boucle commencer à i=1.

Ainsi, ch1[0] vaut 0, et comme tu affectes ch1[1] à ch1[n] sans modifier ch1[0], le compilateur ne vaut pas ta chaine entière car ch1[0] reste à 0. En faisant commencer ta boucle à i=0, tu modifies ch1[0], mais ce n'est pas bon non plus puisque tu affectes ch1[0] := ch[0] + 1, alors que les chaines ont la même taille. Donc deux possibilités:
- Soit tu modifies ch1[0] pour qu'il soit égal à ch[0], mais c'est sale, car on est pas censé manipuler les chaines de caractères de cette façon, car tu bypasses les mécanismes d'allocation de mémoire du compilateur.
- Soit tu ajoutes les caractères un à un à la suite de la chaine ch1. ch1:=ch1+ord(r).

[paskal++]

salut,
tu peux aussi utiliser la fonction prédéfini succ

Code :

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

1
2
3
 
for i:=1 to length(ch) do
  ch[i] := succ(ch[i]) ;

si tu veux coder uniquement les caractères alphabétiques

Code :

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

1
2
 
if upcase(ch[i]) in ['A'..'Z'] then

[aminemen]

Merci à tous d'avoir répondu, vos réponses ont été satisfaisantes même si je ne comprend pas comment je "...tu bypasses les mécanismes d'allocation de mémoire du compilateur." dans la réponse de "wormful_sickfoot"

Toujours dans la réponse de "wormful_sickfoot" à la fin je pense que c'est plutôt : ch1:=ch1+chr(r)

joli clin d'œil pour la fonction "succ" de la part de "paskal++", j'y avait pas pensé.
Merci encore

[M.Dlb]

En fait "bypasser les mécanismes d'allocation de mémoire", c'est pas tout à fait vrai, puisque une chaîne de caractères si on précise rien fait 256 octets en mémoire en pascal, lorsqu'elle est allouée en mémoire, donc même si ta chaine fait 1 caractère de long, elle prendra 256 octets quand même. Ce que je voulais dire, c'est que tu bypasses le mécanisme qui modifie la longueur de la chaîne automatiquement, qui est correctement utilisé dans le cas où tu fais des ajouts successifs de caractères à la suite.

Et du coup, c'est bien ch1:=ch1+chr(r)... et non pas ord.