> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
11,89 €Hub 4 ports USB 3.0 à 11,89 €
Valable jusqu'au 18 Janvier

Amazon propose actuellement le hub Anker 4 ports USB 3.0 à 11,89 € alors qu'on le trouve habituellement autour de 15 €. 


> Voir l'offre
176,66 €Disque dur portable externe WD Black P10 Game Drive 8 To à 176,66 €
Valable jusqu'au 19 Janvier

Amazon Allemagne fait une promotion sur le disque dur externe WD Black P10 Game Drive 8 To qui passe à 169,99 € grâce à un coupon de réduction automatiquement appliqué dans le panier. Comptez 6,67 € pour la livraison en France soit un total de 176,66 € livré. On le trouve ailleurs à partir de 200 €. Ce disque dur USB 3.1 est dédié pour gérer et transporter votre bibliothèque de jeux sur PC ou sur console.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane.


> Voir l'offre
12,54 €Micro clé USB 3.1 Sandisk Ultra Fit 64 Go à 12,54 €
Valable jusqu'au 18 Janvier

Amazon fait une promotion sur la micro clé USB Sandisk Ultra Fit d'une capacité de 64 Go qui passe à 12,54 €. La minuscule taille de cette clé USB va vous permettre de la laisser brancher en permanence sur votre portable, votre TV ou votre autoradio sans qu'elle dépasse de manière disgracieuse. Sa compatibilité USB 3.1 lui permet d'atteindre des débits jusqu'à 130 Mo/s. 


> Voir l'offre

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