Discussion :

[maitremechant]

On dispose de la fonction suivante :

Code :

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

1
2
3
4
function g(n:integer):integer;
begin
g:=n-2*int(n/2);
end;

et il faut écrire un programme utilisant cette fonction g qui demande un entier naturel N non nul, calcule d (d=int(ln(N)/ln(2)) et affiche successivement les valeurs de U0, U1, ..., Ud, sachant que U0=0 si N est pair et 1 si N est impair et Uk+1=g(Nk+1), avec Nk+1=(Nk-Uk)/2

Si vous pouviez m'aider, ce serait gentil... merci =)

[CapJack]

Aide-toi, le forum t'aidera... Propose-nous déjà le fruit de tes cogitations !

[droggo]

Tao,

Technique traditionnelle : une feuille, un crayon.

Tu prends un entier correspondant aux conditions (pas trop grand quand même, ne pas passer 3 ans à écrire des données ) et faire les calculs nécessités par le résultat désiré, en notant (au moins de tête) l'enchaînement des calculs ...

... et tu as ton algorithme, en tout cas une première version.

Il ne reste qu'à traduire en Pascal, c'est la partie facile.

[maitremechant]

Si j'ai besoin d'aide, c'est justement que je ne trouve pas grand chose de concluant... le langage Pascal et moi ça fait deux déjà, il y une erreur "type mismatch" sur le n/2 dans la partie de déclaration de la fonction, je ne vois pas d'où ça vient, et ensuite, j'aimerais avoir une explication concernant la méthode lorsque l'on fait appel à la fonction dans le programme principal (par exemple, s'il faut faire un for...to...do, ou autre chose)
merci de votre aide

[CapJack]

Montre-nous le code que tu as réalisé, et on pourra t'aider en le commentant.

Edit : si la fonction g est vraiment définie comme ça, il y a une erreur dans l'énoncé. le symbole "/" est pour la division en virgule flottante, pour la division euclidienne il faut utiliser "div" et supprimer le "int" inutile, sinon certains compilateurs couinent ("type mismatch") :

Code :

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

1
2
3
4
function g(n:integer):integer;
begin
g:=n-2*(n div 2);
end;

En plus, il y a d'autres façons bien plus performantes d'implémenter cette fonction, mais passons...

[maitremechant]

Alors, voilà ce que j'ai fait :

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
VAR
N,d,u,k:integer;
 
FUNCTION g(n:integer):integer;
begin
  g:=n-2*(n div 2);
end;
 
BEGIN
  writeln('donnez un entier N non nul');
  readln(N);
  d:=ln(N) div ln(2);
  k:=N;
  u:=g(k);
  repeat
    k:=(k-u)/2;
    u:=g(k);
  until k=d;
  readln(u:4);
END.

il y a encore une erreur sur le "ln(N) div ln(2)"

[droggo]

Lao,

si la fonction g est vraiment définie comme ça, il y a une erreur dans l'énoncé. le symbole "/" est pour la division en virgule flottante, pour la division euclidienne il faut utiliser "div" et supprimer le "int" inutile, sinon certains compilateurs couinent ("type mismatch")

Tu as un exemple de compilateur faisant ça ?

Car Pascal autorise parfaitement l'utilisation de / pour diviser 2 entiers, le résultat étant réel, et ceci est standard depuis la création du langage.

Donc, si un compilateur couine là-dessus, il est bon pour la poubelle.

[CapJack]

J'ai pas testé, en réalité.