> Tous les forums > Forum Autres langages
 pascal vers turbo cSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jacquesis
  Posté le 14/10/2013 @ 11:03 
Aller en bas de la page 
Petit astucien

bonjour, quelqu'un peut-il m'aider a convertir ces qq lignes pascal en turbo c

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 de votre aide,

JM

Publicité
rdany62
 Posté le 14/11/2013 à 11:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Cà fait longtemps que je n'ai pas fait de Pascal (depuis le lycée !).

Cependant, j'ai l'impression que les variables adresse, donnees et ch ne sont pas utilisées dans ton code.

En langage C, il n'y a pas de type string défini, les strings sont donc des tableaux de char et doivent être terminées par 0 pour pouvoir être utilisées correctement (affichage).

Puisque que tu ne travailles qu'avec des données de type byte (octet), le type str2 est défini comme un tableau de chars faisant un octet (quartet de poids fort) + un octet (quartet de poids faible) + 1 octet (caractère terminal = 0).

J'ai essayé d'indenter le code mais çà passe mal avec le forum.

Si la fonction cbhex est à appeler depuis le main (sous Turbo C, donc en langage C), çà devrait donner quelque chose comme çà:

#include

#define MAXLEN 3

typedef str2 char[MAXLEN];

typedef byte unsigned char;

const char[] hexsigns = "0123456789ABCDEF";

str2 cbhex(byte b)

{

str2 tmp;

tmp[0] = hexsigns[b >> 4];

tmp[1] = hexsigns[b & 0Fh];

tmp[2] = 0;

return tmp;

}

int main(void)

{

printf("Exemple: 127 = %s (hexa)", cbhex(127));

return 0;

}



Modifié par rdany62 le 14/11/2013 11:37
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
turbo pascal tpw 1.5
Turbo pascal TPW
turbo pascal ,aider moi;;;svp
turbo pascal
différence entre pascal et turbo pascal
Convertisseur C++ vers java
Lien html vers fenetre javascript
Problème java (algorithme vers java)
Exportation vers Excel 2007 en VB6
Calculatrice en Pascal
Plus de sujets relatifs à pascal vers turbo c
 > Tous les forums > Forum Autres langages