Pascal > TURBO V

Fermé
gvanessa Messages postés 5 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 19 juin 2016 - 26 oct. 2013 à 12:09
Bonjour,
Bonsoir, Qui peut me convertir ces qq lignes en PASCAL vers TURBO V

Type str2 = string[2];
var adresse, donnees: byte;
ch : char;
function cbhex (b: byte): str2;

const hexsigns: array [0..15] of char ='0123456789ABCDEF';

begin
cbhex := hexsigns [b shr 4] + hexsigns [b and $0F]
end;

Merci d'avance.


A voir également: