Discussion :

[osquem]

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
program ;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var n:real;
 
begin
  writeln('Entrez le code:');
  readln(n);
  repeat
   n MOD 8
  until n DIV 8 = 0 ;
end.

Salut a tous,
J'ai un problème lors de la compilation il me met une erreur au niveau de n MOD 8, précisément au niveau du chiffre 8. Je voudrais savoir pourquoi et avoir d'autres propositions de codes si possible.
Merci d'avance.

[tourlourou]

Code :

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

1
2
3
repeat
   n := n MOD 8 ; // corrigé
until n DIV 8 = 0 ;

mais que doit faire ce code ?

[osquem]

merci tourlourou, mais il reste toujours 1 problème lors de l'exécution du programme, il affiche: Le projet ..... à levé une exception de class 'RunError(106)'.
In file '.....lpr' at line 15:
readln(n);

PS: Ce code doit convertir un nombre de 15 chiffres en octal.

[tourlourou]

Ph; B. a raison ; et je n'ai pas vu le type Real car lu trop vite... Mais choisir n pour un réel, est-ce judicieux ?

Si c'est un entier, autant le déclarer integer ou int64, histoire de pouvoir appliquer div et mod !

Reste à avoir un algorithme qui fonctionne à traduire en Pascal.

[thewolf]

Bonjour,

à mon avis, plusieurs erreurs dans le code proposé :

1) mod s'applique à des entiers donc déclarer n comme tel

2) "n mod 8" n'a pas de sens car mod ne modifie pas n et il faut affecter le résultat à une variable (entière également).
Par exemple : p:= n mod 8
Mais dans ce cas, il y a une boucle infinie puisque n n'est pas modifié (sauf si n inférieur à 8).

3) il est possible d'écrire n:= n mod 8

4) inutile alors de mettre une clause repeat. En effet, mod renvoie le reste de la division entière du nombre à gauche par le nombre à droite.
Dans notre cas, division de n par 8, le résultat est compris entre 0 et 7 et la condition d'arrêt du repeat sera toujours vraie.

5) je ne vois pas comment cela peut transformer un nombre en octal. La première étape est de définir l’algorithme adéquat.

[Dr.Who]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function DecToOct(N: integer): integer;
var
  LS, LP : Integer;
begin
  result := 0;
  LS := 0;
  LP := 1;
  repeat
    result := result + ((N shr (3*LS)) and $7) * LP;
    LS := LS + 1;
    LP := LP * 10;
  until LS >= 10;
end;

shr 3 = DIV 8
and $7 = mask b0111

(10|3041) = (8|5741) = (16|BE1) = (2|101111100001)

Code :

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

1
2
3
//101 111 100 001
//401 421 400 001 
//  5   7   4   1

Code :

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

writeln(DecToOct(3041)); // 5741

[Ph. B.]

Bonjour,

J'ai un problème lors de la compilation il me met une erreur au niveau de n MOD 8, précisément au niveau du chiffre 8.

Indiquer le message d'erreur n'est pas interdit, mais même fortement conseillé !

Quand je vois le code, je m'interroge...
Hormis sa finalité comme l'a dit @tourlourou, je vois :

• que program n'est pas suivi d'un identificateur,
• que n est de type real alors que mod et div opèrent sur des entiers.