Comprendre la fonction ord en pascal [Résolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comprendre la fonction ord en pascal [Résolu]

bossgama

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

Publicité

antp

Super Administrateur
Champion des excuses bidons

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

bossgama

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?

antp

Super Administrateur
Champion des excuses bidons

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

bossgama

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 :

function GetInt() : integer;
{Permet d'utiliser des bibliothèques de fonctions existantes}
uses crt,sysutils;
{définition des variables}
var
c : char;
valeur : integer;
variable : string;
X,Y,L : byte;
{définition du programme}
begin
variable := '';
writeln('Rentrer un entier');
Y := whereY; {On récupère les coordoonées du pointeur}
X := whereX;
repeat
repeat
c := readkey;
gotoXY(X,Y); {Affichage du pointeur aux coordonnées X et Y}
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}
write(c);
if c = #45 then {Teste si le caractère est négatif}
begin
signe := false;
inc(X);
end;
if c = #8 then {Si appui sur backspace alors on supprime le dernier caractère}
begin
L := length(variable); {Récupère la taille de la chaine}
delete ( variable, L, 1 ); {Efface 1 caractère à partir de L dans variable}
dec(X); {Décremente X}
gotoXY(X,Y);
clreol;
end;
if ((c = #13) and (variable <> '')) then {Si appui sur return et un entier a été rentré on termine la boucle}
begin
break;
end;
if ((c <> #8) and (c <> #13) and (c <> #45)) then {On incrémente la chaine du caractère entré}
begin
if (variable = '') then
begin
variable := c;
end
else
begin
variable := variable + c;
end;
inc(X); {On incrémente X}
end;
until ((c = #13) and (variable <> ''));
valeur := StrToInt(variable); {On convertit la chaine de caractères variable en un integer}
if signe = false then
begin
GetInt := 0 - valeur;
end
else
begin
GetInt := valeur;
end;
writeln;
end;

FORUM HardWare.fr

Programmation

Delphi/Pascal

Comprendre la fonction ord en pascal [Résolu]

Sujets relatifs
[resolu] Access ??	Comment inclure une fonction "spoilers" dans un script de news
[Resolu]preg_replace	[resolu] manipulation d'image TIFF
Macro excel de sauvegarde [resolu]	Coment écrire dans une case d'un tableau [Résolu ]
[Résolu] unhandled exception class System.SecurityE	fichier non accessible pr un visiteur, mais oui pr le serveur [resolu]
supprimer contour image cliquable [RESOLU]	Appel dynamique à une fonction ou sub
Plus de sujets relatifs à : Comprendre la fonction ord en pascal [Résolu]

Page générée en 0.064 secondes