Discussion :

[cocobongo]

Je dois écrire un programme ou l'utilisateur entre un nombre n une base k et ou l'ordi renvoie le nombre n en base k (ex:128 donne 1003 en base 5)

J'ai écris le programme suivant mais il y a une erreur, l'ordi me renvoie une erreur pour le modulo en me disant que l'opérande est <= 0 c ki est faux (à moins ke je n'ai pas vu qque chose...
Quelqu'un pourrait il me dire si il voit l'erreur ?

Merci !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program numbase;
var
n,k,r,q,a,x,z:integer;
y:real;
begin
writeln('Taper le nombre a transformer...');
Readln(n);
Writeln('en base ?');
Readln(k);
r:=n mod k;
q:=(n-r) div k;
while n<>0 do 
begin
for a:=q downto 0 do
begin
y:=exp(a*(ln(k)));
z:=trunc(y);
x:=trunc(n/y);
n:=n mod z;
writeln(x);
end;
end;
readln;
end.

[Balises CODE rajoutées par sub0]

[M.Dlb]

merci de lire les les règles du forum

[haypo]

Pour décoder l'énervement de wormful_sickfoot : . Tu peux éditer ton message pour ça. Pour ton pb, je te déconseille très vivement de passer par des nombres flottants. Il y a beaucoup plus simple : tu extrais un chiffre après l'autre jusqu'à ce que le nombre soit nul. Algo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
TantQue x<>0
  chiffre = x modulo BASE
  x =  x/BASE { division entière pas flottante }
  chaine = chaine + chiffre
FinTantQue
Inverse(chaine) { cba -> abc }

Ou voir l'algo: http://www.haypocalc.com/manuel/1.6/fct/basen.php

@+ Haypo

[cocobongo]

le problème c'est que je programme en pascal et qu'à ma connaissance il n'y a pas moyen d'inverser la chaine dans ce langage... non ?

[Giovanny Temgoua]

le problème c'est que je programme en pascal et qu'à ma connaissance il n'y a pas moyen d'inverser la chaine dans ce langage... non ?

Le type string (je suppose que tu le sais déjà) est en fait un tableau de caractères. Ainsi mot[j] renverra à l'élément j de la chaine mot (si mot est de type string bien sût).

Donc il est alors facile de créer une petite procédure pour inverser une chaîne.

Personnellement, je te conseillerai d'essayer de réecrire toutes (ou presque toutes) les fonctions de la bibliothèque string, cà te permettra d'une part de comprendre mieux comment ces fonctions fonctionnent et d'autre part de pouvoir concevoir facilement une procédure qui traite les chaînes...

[cocobongo]

d'accord mais n'est il pas possible d'écrire un programme qui effectue la composition dans l'ordre au lieu de la faire à l'envers puis de la retourner ? c'était l'idée du programme que j'avais proposé...

[Giovanny Temgoua]

Oui on peut le faire dans l'ordre.

Voilà ce que je propose.
Etant donné que le premier chiffre obtenu (par division entière) est le plus significatif, tu peux créer un indicateur de "significativité" 8) et qui sera incrémenté au fur et à mesure que de nouveaux chiffres seront trouvés. La valeur courante étant donc le chiffre trouvé multipliée par l'indicateur et ainsi de suite on fera la somme des valeurs jusqu'à la dernière.

Bon je n'ai pas essayé pour voir si cà marche mais à mon avis, l'approche ets bonne.

[cocobongo]

j'ai fini par trouver une méthode. Merci de vos conseils !

[Eric Sigoillot]

Oui, l'inversion de la châine n'est pas vraiment nécessaire. Dans l'algo de Haypo, il suffit de remplacer le chaine = chaine + chiffre par chaine = chiffre + chaine. Et plus d'inversion à faire...

A+