Comprendre la fonction ord en pascal [Résolu]

Comprendre la fonction ord en pascal [Résolu] - Delphi/Pascal - Programmation

Marsh Posté le 06-11-2005 à 12:53:20    

Salut, je viens de me mettre au pascal, et j'ai un problème sur du code. Je m'explique.
Je cherche à réaliser une fonction qui détecte si à l'entrée d'un caractère, on a bien un integer. J'ai récupérer un morceau de code sur le net, mais je n'arrive pas à le comprendre.
 

(*  Teste si le caractère passe‚ en paramètre renvoie    *)
(*  … une fonction d'après la table ASCII.              *)
function IsFunct(c:char):boolean;
begin
IsFunct:=((ord(c) in [0..27]));
end;
 
d'apres ce que j'ai trouvé sur le net, la fonction ord trouve la place de c, mais je vois pas en quoi ca teste une fonction?


Message édité par bossgama le 09-11-2005 à 14:08:26
Reply

Marsh Posté le 06-11-2005 à 12:53:20   

Reply

Marsh Posté le 06-11-2005 à 13:35:27    

Dans ce code ça regarde si le code ASCII est entre 0 et 27 (Ord renvoie la valeur numérique correspondant à un caractère ou une enum)
Mais dans ton cas tu devrais plutôt faire
Result := c in ['0'..'9']
si tu veux voir si le caractères est un chiffre.


Message édité par antp le 06-11-2005 à 13:36:15

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 06-11-2005 à 13:48:50    

je suis d'accord pour tester la nature du caractère, mais il faut ensuite convertir le char en integer, et ce n'est possible que si on a le code ascii correspondant.
Par contre je ne comprends toujours pas pourquoi le code ascii entre 0 et 27 est considéré comme mauvais, vu que dans la table ascii que j'ai regardé (http://www.lookuptables.com/) ca serait plutot entre 48 et 57.
Non?

Reply

Marsh Posté le 06-11-2005 à 14:10:01    

La fonction que t'as mise dans le premier post ne teste pas si le caractère est un chiffre mais si il s'agit d'un caractère de contrôle je suppose (bien que, ça devrait aller jusqu'à 31 et non 27 dans ce cas).
De toute façon pas besoin d'aller voir les codes ASCII, tu peux directement utiliser des caractères comme je l'ai mis dans mon post précédent. C'est mieux de faire comme ça que de taper 48..57 qui sont nettement moins "parlant".


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 09-11-2005 à 14:07:50    

Bon j'ai fini ma fonction et elle marche, merci pour ton aide antp.
 
Pour ceux qui sont intéressés, voila ma fonction  :) :

Code :
  1. function GetInt() : integer;
  3. {Permet d'utiliser des bibliothèques de fonctions existantes}
  4. uses crt,sysutils;
  6. {définition des variables}
  7. var
  8.    c : char;
  9.    valeur : integer;
  10.    variable : string;
  11.    X,Y,L : byte;
  13. {définition du programme}
  14. begin
  15.      variable := '';
  16.      writeln('Rentrer un entier');
  17.      Y := whereY;                                               {On récupère les coordoonées du pointeur}
  18.      X := whereX;
  19.      repeat
  20.            repeat
  21.                  c := readkey;
  22.                  gotoXY(X,Y);                                   {Affichage du pointeur aux coordonnées X et Y}
  23.            until ((c in ['0'..'9']) or ((c = #45) and (signe = true) and (variable = '')) or (((c = #8) or (c = #13)) and (variable <> '')));  {Tant que le caractère n'est pas un nombre, un backspace, un moins ou un return}
  24.            write(c);
  25.            if c = #45 then              {Teste si le caractère est négatif}
  26.               begin
  27.                    signe := false;
  28.                    inc(X);
  29.               end;
  30.            if c = #8 then                                      {Si appui sur backspace alors on supprime le dernier caractère}
  31.               begin
  32.                    L := length(variable);                       {Récupère la taille de la chaine}
  33.                    delete ( variable, L, 1 );                   {Efface 1 caractère à partir de L dans variable}
  34.                    dec(X);                                      {Décremente X}
  35.                    gotoXY(X,Y);
  36.                    clreol;
  37.               end;
  38.            if ((c = #13) and (variable <> '')) then             {Si appui sur return et un entier a été rentré on termine la boucle}
  39.               begin
  40.                    break;
  41.               end;
  42.            if ((c <> #8) and (c <> #13) and (c <> #45)) then    {On incrémente la chaine du caractère entré}
  43.               begin
  44.                    if (variable = '') then
  45.                       begin
  46.                            variable := c;
  47.                       end
  48.                    else
  49.                        begin
  50.                             variable := variable + c;
  51.                        end;
  52.                    inc(X);                                      {On incrémente X}
  53.               end;
  54.      until ((c = #13) and (variable <> ''));
  55.                valeur := StrToInt(variable);                              {On convertit la chaine de caractères variable en un integer}
  56.                if signe = false then
  57.                   begin
  58.                        GetInt := 0 - valeur;
  59.                   end
  60.                else
  61.                    begin
  62.                         GetInt := valeur;
  63.                    end;
  64.                writeln;
  65. end;

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed