Fonction ord

mimi2601 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
mimi2601 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je veux l"algorithme de la fonction ORD en pascal
merci de votre attention :)
A voir également:

1 réponse

mimi2601 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
j'ai trouvé la solution :p

Function DOR (c : char) : integer;
var i : integer;
begin
i:=-1;
repeat
i:=i+1;
until chr(i)=c;
DOR:= i;
end;
0