[LG]Probleme avec une fonction

Je voudrais écrire ceci :
Écrire en pascal (sous Delphi) une fonction decibase
description : transforme un nombre(nb) décimal en son équivalent dans une base b
paramètres in : le nombre entier et la base
Résultat : une chaine représentant le nombre en base b
CU: 1<b<37 et l'entier nb > -1

mais j'ai quelque probleme alor si quelqu'un avait un alogorithme, il pourrait me le passer
Merci d'avance

Quels sont ces problèmes ?
Qu'as-tu déjà tenté ?
Où est-ce que ça coince ?
As-tu fais une recherche sur le forum ? (Cette réponse là, je la connais déjà...)

Nous ne sommes pas là pour résoudre les exercices donnés

Merci de consulter les règles du forum.

@++

J'arrive a le faire en base 2 mais c'est pour les autres bases que je n'y arrive pas je ne sais pas ou mettre le reste de la division pour avoir a la fin une chaine de nombre

Il faut se servir d'une chaîne de caractères pour stocker le nombre dans la nouvelle base.
Pour ça, on récupère les restes de chacune des divisions successives et on les insère dans la chaîne "par le haut", autrement dit en faisant comme ça:

Code:

---

S := Reste + S;

---

Et ce à chaque étape...

Les restes s'obtiennent avec mod, le nouveau dividende avec div

@++

Merci

Voici l'algorithme de la fonction qui transforme une nombre décimal en base 2 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

function decibase1 (CONST nbre,base:cardinal):cardinal; var i,valeur,reste,nbre1:cardinal; begin i:=0; valeur:=0; nbre1:=nbre; while (nbre1<>0) do begin reste:=nbre1 mod 2; nbre1:=nbre1 div 2; if((reste=1) or (reste=0)) then valeur:=valeur + puissance(10,i); i:=i+1; end{while}; decibase1:=valeur; end{decibase};

---

Je voudrais généraliser pour n'importe qu'elle base compris entre 1 et 37
Ici je ne peut qu'aller que jusque 1023 pour que ce soit afficher en binaire correctement, au dessus ca ne marche plus
Merci d'avance

Puissance est une fonction definie comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function puissance(x: integer; y: integer):cardinal; var i,p: integer; begin p := 1; for i := 1 to y do begin p := p * x; end{for}; puissance := p; end{puissance};

---

8O
Tu stockes un nombre binaire dans un entier ? C'est original... Généralement, on se sert d'une chaîne de caractères (string). Sans ça, comment veux-tu coder les chiffres hexadécimaux (particulièrement A, B, ..., F) ?

Utilise donc une chaîne, ce sera plus simple. Ton algo a l'air correct en l'observant rapidement.

Au passage, le test Reste égal à 0 ou 1 est inutile. Reste ne peut valoir autre chose ! Quand tu divises un nombre par deux, tu peux difficilement avec un reste supérieur à 1...

@++

Je sais mais je n'arrive pas a le faire.
Si tu pouvais me donner des astuces comment faire ca serait sympa
Merci d'avance