Exercice clé de contrôle

Version imprimable

Salut;
Je suis une étudiante en première année informatique et j'ai cet exercice. Je ne trouve pas où est l'erreur.
Svp svp j'ai besoin d'aide, voilà l'anoncé de l'exo :

Citation:

Dans un hôpital, on donne à chaque malade un numéro (indicatif) pour l'identifier et, afin d'éviter toute erreur, on associe une clé de contrôle à chaque indicatif. Dans notre cas, la clé de contrôle est un caractère alphabéthique dont le rang dans l'alphabet est donné par :
(le reste de la division de l'indicatif par 26 ) +1
Exemple : si l'indicatif d'un malade est 1624, la clé de controle est M et on ecrira 1624M.

A) Construire la solution qui consistera à associer une clé de contrôle à chaque indicatif, au moment de sa création puis chaque à chaque fois que l'indicatif est utilisé. Il faudra vérifier s'il est correct ou non; pour cela, on recalcule la clé de controle et on la compare à celle qui a été associée à l'indicatif au départ; si c'est la même, l'indicatif a été écrit correctement; sinon, il y erreur.
Exemple : soient l'indicatif et sa clé 1264M. La clé de contrôle après son recalcul est Q, il y a donc erreur.

B) Construire la solution qui nous permet de retrouver toute erreur dans
la manipulation des indicatifs.

Et voila le programme :
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 PROGRAM exo62; uses crt; var Id:integer; cl,xx: char; function cle ( A: integer): char; var i :integer; cc:char; begin cc:='A'; for i:=2 to (a mod 26)+1 do cc:= succ(cc); cle:=cc; end; function vercle (A:integer; cc:char):boolean; var i: integer; var cc1: char; var test: boolean; begin i:=0; for cc1:= cc to cle(A) do i:=i+1; if i=0 then test:=true else test:= false; vercle:=test; end; BEGIN clrscr; textcolor(15); writeln ('Si vous voulez calculer un clé tapez A'); writeln ('Si vous voulez vérifiez un clé tapez Z'); readln (xx); if xx='a' then begin writeln ( 'Entrez l''indicatif'); readln (id); writeln( 'La clé est: ', cle (id) ); end; if xx= 'z' then begin writeln ('Entrez l''indicatif et sa clé'); readln (id,cl); if vercle(id,cl)=false then begin textcolor(4 + blink); writeln('Erreur'); textcolor(15); writeln ( cle( id),' c''est la clé'); end else begin textcolor(10); writeln (' votre cle est juste'); end; end; readln; END.
Pouvez-m'aider ?

20/02/2007, 23h38
Ultima

1 pièce(s) jointe(s)

Element de solution

salut,

petits conseils:
tu fais des indentations après un (begin, var, else)
si tu veux en mettre plus, tu les met après (function, procedure, …) .
il est préférable de faire la déclaration des variables globales juste avant le BEGIN principale.

La fonction cle est farfelue car elle fait des affectations inutiles :
tu dois simplement utiliser chr() ou char(), ça fait la même chose.
même problème dans vercle.

Je crois que les fonctions read() et readln() ne permettent pas de saisir plusieurs variables de types différents.
Pour une meilleur gestion des erreurs dû à la casse, utilise Upcase() :
exemple : if vercle(id,upcase(cl))=false then …

Remarque : je n’ais aucune connaissance sur la procédure textcolor() ;
le programme comme je l'ai fait fonctionne sur freePascale 2.0.4

Bonne jounée.

1 pièce(s) jointe(s)

le code

Resalut:

voici le code:

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
 
PROGRAM exo62;
uses crt;
var Id:integer;
    cl,xx: char;
function cle ( A: integer): char;
  begin
    cle:= chr((ord('A')-1) + (A mod 26)+1);
  end;
function vercle (A:integer; cc:char):boolean;
  begin
    vercle:= cle(A) = cc;
  end;
BEGIN
  clrscr;
//  textcolor(15);
  writeln ('Si vous voulez calculer une clé tapez A');
  writeln ('Si vous voulez vérifiez une clé tapez Z');
  readln (xx);
  if xx='a' then
    begin
      writeln ( 'Entrez l''indicatif');
      readln (id);
      writeln( 'La clé est:  ', cle (id) );
    end;
  if xx= 'z' then
    begin
      writeln ('Entrez l''indicatif et sa clé');
 
      readln (id);
      readln (cl);
      if vercle(id,cl)=false then
         begin
//           textcolor(4 + blink);
           writeln('Erreur');
//           textcolor(15);
           writeln ( cle( id),'  c''est la clé');
         end
      else
        begin
//          textcolor(10);
          writeln (' votre cle est juste');
        end;
      end;
      readln;
END.

21/02/2007, 18h06
safa-ini

Citation:

Envoyé par Ultima

salut,

petits conseils:
tu fais des indentations après un (begin, var, else)
si tu veux en mettre plus, tu les met après (function, procedure, …) .
il est préférable de faire la déclaration des variables globales juste avant le BEGIN principale.

La fonction cle est farfelue car elle fait des affectations inutiles :
tu dois simplement utiliser chr() ou char(), ça fait la même chose.
même problème dans vercle.

Je crois que les fonctions read() et readln() ne permettent pas de saisir plusieurs variables de types différents.
Pour une meilleur gestion des erreurs dû à la casse, utilise Upcase() :
exemple : if vercle(id,upcase(cl))=false then …

Remarque : je n’ais aucune connaissance sur la procédure textcolor() ;
le programme comme je l'ai fait fonctionne sur freePascale 2.0.4

Bonne jounée.
21/02/2007, 18h18
safa-ini

salut
merci beaucoup pour vos conseilles
mais je dois faire des fonctions ou procédures, parce que j'ai pas le droit pour utiliser sertain des fonction qui sont déja en pascale.
merci pour tout.

un autre question:
dans cet exercice quant on vérifie l'indicatif et sa clé, comme entrée on a chaine de caractéres : ex: 1624M
comment je peut extraire caractère par caractère et transformer ces caractéres (par exemple le caractère '1' à l'entier 1).

merci pour vous.

Bonjour,
Je suis aussi en première année d'info et j'ai débuté avec le pascal cette année.
Je n'ais donc utilisé que la méthode qu'on m'a appris en classe.
Pour convertir une chaine en caractère, utilises la procédure val()
exemple:
Code:

1 2 val('124',n,e); // n= 124, e = 0
Normalement tu as eu des cour sur la manipulation des chaines : Tu sais donc utiliser length() et copy(), sinon le site des développeurs peut t'aider grâce à la FAQ.

voci une solution possible pour ce que tu veux 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 program exo66; function extract_id(s : STRING) : CARDINAL; var cls : STRING; // La chaine contenant le nombre rechercé err : INTEGER; // Code d'érreur de la procedure Val res : CARDINAL; // résultat begin cls:= copy(s,1,length(s)-1); val(cls, res, err); extract_id:= res; end; function extract_cl(s : STRING) : CHAR; begin extract_cl:= s[length(s)]; end; var test : STRING; BEGIN test:= '1624M'; writeln(test,', extract_id =',extract_id(test),', extract_cl=',extract_cl(test)); END.

Bonjour,
En utilisant une procédure tu peux avoir ceci :

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
 
program exo66;
 
procedure decompose(s : STRING;out i : INTEGER; out c : CHAR);
  var
    cls : STRING;    // La chaine contenant le nombre rechercé
    err : INTEGER;   // Code d'érreur de la procedure Val
    res : CARDINAL;  // résultat
  begin
    cls:= copy(s,1,length(s)-1);  // copie de la première à l'avant dernière caractère (les chiffres) dans cls
                                           // la dernière caractère étant une lettre
    val(cls, res, err);
    i:= res;
    c:= s[length(s)];
  end;
 
var
  test : STRING;
  id : INTEGER;
  cl : CHAR;
 
BEGIN
 
  writeln('entrez l''idendentifiant en entier exp: 1624M');
  readln(test);
 
  decompose(test, id, cl);
 
  writeln(test,', id =',id,', cl=',cl);
  // suposons que test= '1624M', alors: id= 1624 et cl='M'
END.

Attention si tu utilises Free Pascal car 'out' n'est pas géré :
au lieu de "fpc exo66 .pas" il faut faire "fpc –Mdelphi exo66.pas"

Salut!

Bonjour,
Tu disais vouloir une un programme qui utilise des fonctions "fait maison" ; vu que la procédure val() n’en est pas un , je te propose une fonction qui peut-être plus intéressante pour ton programme.
Ma fonction valeur() permet de calculer un nombre à partir d’une chaine de caractère :

Exemple :
Valeur('1624') = 1624 // attention à ne pas mettre de lettres en paramètre.

Si tu ne veux pas utiliser val() dans ton programme, tu n’as qu’à les remplacer par valeur().

Attention car val() est une procédure, et valeur() est une fonction.
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 program exo66; function valeur(s: STRING) : INTEGER; // s doit contenir uniquement un nomre entier: exemple '1624' ou '-1624' function vale(c : CHAR) : CARDINAL; begin vale:= ord(c) - ord('0'); (* On aurait put utiliser 'case': case c of '0' : vale:= 0; '1' : vale:= 1; '2' : vale:= 2; '3' : vale:= 3; '4' : vale:= 4; '5' : vale:= 5; '6' : vale:= 6; '7' : vale:= 7; '8' : vale:= 8; '9' : vale:= 9; end; *) end;//vale var s_aux : STRING; mult, res : INTEGER; i, j : CARDINAL; begin s_aux:= s; if s[1] = '-' then begin mult:= -1; s_aux:= copy(s,2,length(s)); end; res:= vale(s_aux[length(s_aux)]); j:= 1; for i:= length(s_aux)-1 downto 1 do begin j:= j*10; res:= res+j * vale(s_aux[i]); end; res:= res*mult; valeur:= res; end;//valeur Begin writeln(valeur('-01624')); // affiche -1624 End.
Citation:

comment je peut extraire caractère par caractère et transformer ces caractéres (par exemple le caractère '1' à l'entier 1)

La fonction vale() contenue dans valeur() permet de transformer un caractère en un chiffre, exemple '1' en 1;
Attention: vale() ne fonctionne pas avec une chaine de caractère
Salut.

Gros oubli

Bonjour,
à la variable "mult" de la fonction "valeur" n’a pas été initialisée ; conséquence, le programme retourne des valeurs aberrantes si son paramètre est un entier positif :
Correction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 : : : var s_aux : STRING; mult, res : INTEGER; i, j : CARDINAL; begin s_aux:= s; mult:= 1; if s[1] = '-' then begin mult:= -1; s_aux:= copy(s,2,length(s)); end; : : :
Désolé:oops:

01/03/2007, 17h13
Thekiller

je vois bien que tu es une etudiante de lini mais bon
je vais te donnais un contre exemple comme fais garici a chaque fois
voila si lutilisateur entre une clé invalide genre (12M32MLL)
il faut précisé a chaque fois ke le format de la clé est faux avant de passer a la verification de la clé
bon courage

moi jai proceder comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
function num(x:char):boolean;   {fonction qui va me permettre de savoir si m
le caracter x design un chiffre ou non (si num est true donc c'est un chiffre}
begin
  num:= ((ord(x)>=48) and (ord(x)<=57));
end;
 
function verifid(x:string):boolean; {cette fontion me permetra de verrifier que tout les caracter de la chaine x design des chiffre}
var j:integer;
  s:=boolean;
begin
s:=true;
   for j:=1 to length(x)-1 do   {donc je prend tout les caracter sauf le dernier et je test si il design un chiffre ,si c'est une lettre (not(num(x[i])) donc l id contien des lettre et verifid devien fausse}
     begin
     if not(num(x[i])) then s:=false;
     end;
verifid:=s;
end;

Bonjour,

Thekiller, ta fonction num est mal déclarée :
-1- c’est une booléenne et non un INTEGER .
-2- tu ne peux pas initialiser la valeur de la fonction à FALSE comme si c’été une simple variable
-3- Ta syntaxe est digne de quelqu’un qui à 10 doigts sur une même main.
De plus ; tu n’es pas supposé connaitre par coeur l’ordre des caractères ASCII donc même si ce que tu à fait été presque bon, c’été quand même maladroit.

Venons maintenant à ta fonction verifid :
-0- C’est un truck digne de quelqu’un qui manipule pour la première fois la programmation.
-1- tu ne peux pas initialiser la valeur de la fonction à TRUE comme si c’été une simple variable
tu dois utiliser une variable intermédiaire car tu n’as pas le droit d’affecter plusieurs fois une valeur à une même fonction.
-2- tu as oublié de déclarer ta variable j, (var j : INTEGER;)
-3- même si tu fais des trucks bizarre, n’oublis pas les " ;" (verifid:=true ;)
-4- d’où vient le s de (for j:=1 to length(s)-1 do ...)
-5- ta boucle for fait une affectation à chaque étape, non seulement c’est lourd, mais en plus et surtout, c’est interdit car tu fais cela à une fonction : cf.-1-

Un petit conseil, Thekiller, lis tes cours avant de poster une pseudo-solution aussi farfelu que celle que tu as proposé.

Voici un code qui pourrait t’aider à mieux voir :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 function num(x:CHAR):BOOLEAN; begin num:= ((ord(x)>=48) and (ord(x)<=57)); end; function verifid(x:STRING):BOOLEAN; var j,i:INTEGER; begin i:= 0; for j:=1 to (length(x)-1) do if not(num(x[i])) then inc(i); verifid:=i<>0; // c'est ce que tu fais non? tu vérifies s'il y a des chiffres dans x (12M32MLL est donc TRUE car il y a des chiffres); // pour etre correcte se serait plustôt: // verifid:= (i= (length(x)-1)); end;
Remarque: Je suis aussi en première année d'info et j'ai débuté avec le pascal cette année, comme Safa-ini.

02/03/2007, 14h54
guismoman33

Fais un tableau pour décomposer tes caractère c'est ce que j'ai fait en cour pour enlever la lettre e d'un mot
02/03/2007, 15h53
Thekiller

ok merci ultima
mais pour le code c'etais just pour donner une idée
je c que jai fais pas mal (bcp) de fautes mais c'est parceque comme je lai dit c'etais just pour donner une idée a safa-ini car je c que cette exo est celui de son TP et je voulais pas quelle propose un TP non complet
en plus jai pas reviser l'algorithme quon je lai ecrit
bon merci comme meme pour les conseille et tinquiet je serai plus prudent la prochaine fois de ne pas faires des faute debile
remarque : moi aussi je suis en premiere année et jai commencer cette année avec la programation donc je ss tjr un debutant.
et je croix bien que quon je fais des fautes maintenant je mensouviendrai pour plus tard.
(je v corriger mon code comme ca je v pas laisser quelque chose de faux sur le forum)

et pou le tableau mr guismoman33 , safa-ini na pas le droit de les utiliser car c prévu pour aprés les examen (merci comme meme)

remarque aussi pour ultima : je vien de bien lire ton code
je voulais pas verifier si il yavais des chiffre dans ma id (clé= id + une lettre)
mais plutot pour verifier quil n ya que des chifre dans ma clé sauf la dernier lettre pour kel soit de la forme ( DES CHIFFRES+une lettre) (ex : 23212P)
02/03/2007, 17h49
Ultima

Citation:

je voulais pas verifier si il yavais des chiffre dans ma id (clé= id + une lettre)
mais plutot pour verifier quil n ya que des chifre dans ma clé sauf la dernier lettre pour kel soit de la forme ( DES CHIFFRES+une lettre) (ex : 23212P)

Bonjour,
désolé TheKiller si je t'ais blessé, c’été pas mon intention :
pour ton code, il aurait donné que '12M12M' est bon car l’avant dernier caractère est un chiffre ;
en réalité c’est la seule chose qu’elle faisait, a la limite t’avais même pas besoins de la boucle for.
Courage pour tes études.