Fonction ord

mimi2601 Messages postés 8 Statut Membre -  
mimi2601 Messages postés 8 Statut Membre -
Bonjour,
je veux l"algorithme de la fonction ORD en pascal
merci de votre attention :)
Configuration: Windows XP / Firefox 3.5.8

1 réponse

  1. mimi2601 Messages postés 8 Statut Membre
     
    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