× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 !


Les bons plans du moment PC Astuces

Tous les Bons Plans
159,99 €Tablette Lenovo TAB M10 Plus X606 (FullHD, 8 coeurs, 4 Go RAM, 64 Go stockage, Android 9) à 159,99 €
Valable jusqu'au 24 Novembre

Amazon fait une promotion sur la tablette Lenovo M10 Plus qui passe à 159,99 € alors qu'on la trouve ailleurs autour de 199 €. Cette tablette possède un écran FullHD de 10,3 pouces IPS (1920x1200), un processeur octo-core MediaTek Helio P22T, 4 Go de mémoire vive, ainsi que 64 Go de stockage interne extensible par MicroSD. La tablette dispose d'une grande batterie de 7 000 mAh et d'un port USB-C, du Bluetooth 5.0 et du WiFi AC. Le tout tourne sous Android 9.0. La livraison est gratuite.


> Voir l'offre
18,90 €Switch Gigabit TL-SG105E 5 ports administrables à 18,90 €
Valable jusqu'au 25 Novembre

Amazon fait une promotion sur le switch Gigabit TL-SG105E 5 ports administrables qui passe à 18,90 € alors qu'on le trouve ailleurs à partir de 29 €. Ce switch est administrable : vous pouvez créer des sous réseaux isolés VLAN, limiter la bande passante par port, etc. 


> Voir l'offre
74,58 €Ecouteurs intra-auriculaires sans fil Bluetooth Jabra Elite 65t à 74,58 € livrés
Valable jusqu'au 25 Novembre

Amazon Allemagne fait une promotion sur les écouteurs intra-auriculaires sans fil Bluetooth Jabra Elite 65t qui passent à 69,58 € (avec la TVA ajustée). Comptez 5 € pour la livraison en France soit un total de 74,58 € livrés. On les trouve ailleurs à partir de 100 €. Pensés pour vous permettre de vivre votre musique comme vous l'entendez et pour assurer des conversations d'une grande clarté, les écouteurs Jabra Elite 65t ont tout pour vous séduire ! Côté son, l'égaliseur personnalisable vous permet d'ajuster le rendu sonore tandis que la technologie avancée à quatre microphones supprime les bruits de fond lors des appels pour des conversations limpides. Au quotidien, ces écouteurs Jabra restent parfaitement en place et proposent même une fonction de commande vocale simplifiée. Enfin, vous apprécierez les 5 heures d'autonomie avec une seule charge, qui se transforment en 15 heures avec l'étui de recharge compact.  Le Jabra Elite 65t est certifié IP55 et offre une garantie de 2 ans contre l’humidité et la poussière. Où que vous soyez et quelle que soit votre activité, vous profitez d’une liberté absolue pour les appels et la musique. 


> 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