[TP] Problème de conversion de base

**gadalla** · 01/05/2007, 16h18

Bonjour,
je viens de faire un programme qui permet de transformer une base donnée en une autre base.
L'idée que j'ai utilisée est de convertir chaque nombre en décimal puis le diviser sur la base désirée.
Mais ça n'a pas marché.
SVP aidez-moi à corriger ce programme ou donnez-moi une autre idée.
Merci d'avance

Voilà mon programme

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program base;
uses wincrt;
type
tab=array[1..100] of integer;
var
t:tab;
b1,b2,c,result:integer;
ch:string;
procedure lecture(var b1:integer;var b2:integer;var ch:string);
begin
writeln('donner la base a transferé');
readln(b1);
writeln ('donner la base auqelle  vous aller transformé');
readln(b2)  ;
writeln('donner le chiffre');
readln (ch);
end;
 
 
procedure som( ch:string;b1:integer);
var
  i, L, poid,Result : integer ;
begin
  L := Length(Ch) ;
  Poid := 1 ;
  Result := 0 ;
  for i := L downto 1 do
  begin
    Result := Result + ( Ord(Ch[i]) - Ord('0') ) * Poid ;
    Poid := Poid * b1 ;
  end ;
end ;
 
procedure divi(b1:integer;var result:integer) ;
var
  i,c : integer ;
begin
  c := 0 ;
 repeat
  c:=c+1;
  t[i]:= result mod b1;
  result:=result div b1;
  until result =0  
 
end;
procedure affichage(t:tab;c:integer);
var
i:integer;
begin
for i:= c downto 1 do
if t[i] in [1..9] then write (t[i])
else write(chr(ord('A')+t[i]-10) );
end;
 
begin
lecture(b1,b2,ch);
som(ch,b1);
divi(b1,result);
affichage(t,c);
end.

**krachik** · 01/05/2007, 17h37

bonjour

Envoyé par gadalla

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
program base;
uses wincrt;
type
       tab=array[1..100] of integer;
var
   t:tab;
   b1,b2,c,result:integer;
   ch:string;
procedure lecture(var b1:integer;var b2:integer;var ch:string);
begin
   writeln('donner la base a transferé');
   readln(b1);
   writeln ('donner la base auqelle vous aller transformé');
   readln(b2) ;
   writeln('donner le chiffre');
   readln (ch);
end;
 
 
procedure som( ch:string;b1:integer);
var
    i, L, poid,Result : integer ;
begin
   L := Length(Ch) ;
   Poid := 1 ;
   Result := 0 ;
   for i := L downto 1 do
   begin
        Result := Result + ( Ord(Ch[i]) - Ord('0') ) * Poid ;
        Poid := Poid * b1 ;
   end ;
end ;
 
procedure divi(b1:integer;var result:integer) ;
var
   i,c : integer ;
begin
    c := 0 ;
    repeat
       c:=c+1;
       t[i]:= result mod b1;
       result:=result div b1;
    until result =0
end;
procedure affichage(t:tab;c:integer);
var
   i:integer;
begin
    for i:= c downto 1 do
    if t[i] in [1..9] then write (t[i])
    else write(chr(ord('A')+t[i]-10) );
end;
 
begin
   lecture(b1,b2,ch);
   som(ch,b1);
   divi(b1,result);
   affichage(t,c);
end.

la prochaine fois pense à la balise "# code"
et indentes bien ton code
qu'est ce qui n'a paas marché ?

**droggo** · 01/05/2007, 18h09

Aik,

Je n'ai pas lu en détail, mais ta procédure

Code :

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

procedure som( ch:string;b1:integer);

ne renvoie aucun résultat.

Donc, regarde de son côté.

**gadalla** · 01/05/2007, 19h56

merci baucoup pour vos repense et je veut ajouter que mon probleme est que le programme n'est pas executable

merci a tous

**krachik** · 01/05/2007, 21h20

si ton programme n'est pas executable alors essaie de relever les erreurs que le compilateur te dit et corriges les petit à petit
@+

**gadalla** · 01/05/2007, 21h54

merci d'avoir lit mon message mais je veut te dire que l'ecriture de mon programme est correcte et lexiction se fait paticiel
@+

**krachik** · 01/05/2007, 22h11

le programme compile ou s'execute chez moi mais ça ne donne pas ce qu'on veut(comme tu peux t'en douter)

Envoyé par gadalla

lexiction se fait paticiel

ceci en français comprehensible m'aiderais a te repondre correctement
c'est à propros de l'exit?donc ça vient du faire de comment tu gere dans to code

**The future scientist** · 02/05/2007, 14h09

salut
gadalla a voulu dire : l'éxécution se fait partiellement

, ce n'est pas exit

**gadalla** · 02/05/2007, 20h45

merci pour avoir lit mon message
je veut ajouter que l'exection du programme se fait mais elle se bolque au cour de calqule
peutetre il ya une faite dans l'algoritheme
avp aider moi a la corigé
@+

**droggo** · 02/05/2007, 21h07

Aik,

Envoyé par gadalla

merci pour avoir lit mon message
je veut ajouter que l'exection du programme se fait mais elle se bolque au cour de calqule
peutetre il ya une faite dans l'algoritheme
avp aider moi a la corigé
@+

Lis-tu les réponses qu'on te fait ?

Envoyé par droggo

Aik,

Je n'ai pas lu en détail, mais ta procédure

Code :

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

procedure som( ch:string;b1:integer);

ne renvoie aucun résultat.

Donc, regarde de son côté.

En regardant, tu verras au moins une cause qui implique que ça ne marche pas.

Comme d'habitude, du coup je n'ai pas regardé le reste, ni les détails.

**gadalla** · 03/05/2007, 12h30

salut a tous
jai modifier mon programme mais rien de nouveau

quelle zst la solution
@+

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
program base;
uses wincrt;
type
tab=array[1..100] of integer;
var
t:tab;
b1,b2,c,result:integer;
ch:string;
procedure lecture(var b1:integer;var b2:integer;var ch:string);
begin
writeln('donner la base a transferé');
readln(b1);
writeln ('donner la base auqelle  vous aller transformé');
readln(b2)  ;
writeln('donner le chiffre');
readln (ch);
end;
 
 
procedure som( ch:string;b1:integer);
var
ta:tab;
  i,n,l,  poid,Result : integer ;
begin
  l := Length(Ch) ;
 if ch[i] in ['0'..'9'] then
 begin
 
 ta[i]:= ord(ch[i])-ord('0');
 end
 else
 begin
 ta[i]:= ord(ch[i])-ord('7');
 end;
 result:=0; poid:=1;
 for i:= l downto 1 do
 result:= ta[i] * poid;
 poid:=poid * b1;
 end;
 
 
 
procedure divi(b1:integer;var result:integer) ;
var
  i,c : integer ;
begin
  c := 0 ;
 repeat
  c:=c+1;
  t[i]:= result mod b1;
  result:=result div b1;
  until result =0  
 
end;
procedure affichage(t:tab;c:integer);
var
i:integer;
begin
for i:= c downto 1 do
if t[i] in [1..9] then write (t[i])
else write(chr(ord('A')+t[i]-10) );
end;
 
begin
lecture(b1,b2,ch);
som(ch,b1);
divi(b1,result);
affichage(t,c);
end.

**droggo** · 03/05/2007, 13h24

Lano,

Envoyé par gadalla

salut a tous
jai modifier mon programme mais rien de nouveau

quelle zst la solution

Fais-nous une belle présentation du code, ça compte, et surtout

tiens compte des réponses.

Deux fois déjà je t'ai déjà signalé au moins un problème dans ton code, tant qu'il ne sera pas résolu, ça ne marchera pas.

**gadalla** · 03/05/2007, 13h32

c 'est quoi le code??
voici une presentation un peut mieu
et merci d'avoir lit mon message

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
program base;
uses wincrt;
type
tab=array[1..100] of integer;
var
t:tab;
b1,b2,c,result:integer;
ch:string;
 
 
   {  **** procedure lecture   ****}
procedure lecture(var b1:integer;var b2:integer;var ch:string);
begin
writeln('donner la base a transferé');
readln(b1);
 
 
writeln ('donner la base auqelle  vous aller transformé');
readln(b2)  ;
 
 
writeln('donner le chiffre');
readln (ch);
end;
 
	 {  ****   procedure som , elle permet de convertir un nombre donné à la
			  base dicimale     ****   }
procedure som( ch:string;b1:integer);
var
ta:tab;
  i,n,l,  poid,Result : integer ;
begin
  l := Length(Ch) ;
						 if ch[i] in ['0'..'9'] then
 								begin
 
 								ta[i]:= ord(ch[i])-ord('0');
								 end
 						else
 								begin
								 ta[i]:= ord(ch[i])-ord('7');
									end;
 
 
 		result:=0; poid:=1;
 for i:= l downto 1 do
 		result:=result + (ta[i] * poid);
 		poid:=poid * b1;
 end;
 
 
	  {****  procedure divi , elle permet la divition du nombre dicimale
                     sur b2       ***}
procedure divi(b2:integer;var result:integer; var c:integer) ;
begin
  c := 0 ;
  repeat
 						 c:=c+1;
 						 t[c]:= result mod b2;
						 result:=result div b2;
  until result = 0  
 
end;
    {**** procedure affichage ****}
procedure affichage(t:tab;c:integer);
var
i:integer;
begin
						for i:= c downto 1 do
		if t[i] in [1..9] then write (t[i])
		else write(chr(ord('A')+t[i]-10) );
end;
 {     ****    le programme principale      ****}
 
begin
lecture(b1,b2,ch);
som(ch,b1);
divi(b2,result,c);
affichage(t,c);
end.

**droggo** · 03/05/2007, 14h21

Lap,

Voici ton code NON CORRIGÉ, mais mis en forme

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
program base;
 
uses wincrt;
 
type
  tab = array[1..100] of integer;
var
  t: tab;
  b1, b2, c, Result: integer;
  ch: string;
 
 
  {  **** procedure lecture   ****}
procedure lecture(var b1: integer; var b2: integer; var ch: string);
begin
  Writeln('donner la base a transferé');
  Readln(b1);
 
 
  Writeln('donner la base auqelle  vous aller transformé');
  Readln(b2);
 
 
  Writeln('donner le chiffre');
  Readln(ch);
end;
 
   {  ****   procedure som , elle permet de convertir un nombre donné à la
			  base dicimale     ****   }
procedure som(ch: string; b1: integer);
var
  ta: tab;
  i, n, l, poid, Result: integer;
begin
  l := Length(Ch);
  if ch[i] in ['0'..'9'] then
  begin 
    ta[i] := Ord(ch[i]) - Ord('0');
  end else
  begin
    ta[i] := Ord(ch[i]) - Ord('7');
  end;
 
 
  Result := 0; 
  poid := 1;
  for i := l downto 1 do Result := Result + (ta[i] * poid);
  poid := poid * b1;
end;
 
 
    {****  procedure divi , elle permet la divition du nombre dicimale
                     sur b2       ***}
procedure divi(b2: integer; var Result: integer; var c: integer);
begin
  c := 0;
  repeat
    c      := c + 1;
    t[c]   := Result mod b2;
    Result := Result div b2;
  until Result = 0  
end;
 
    {**** procedure affichage ****}
procedure affichage(t: tab; c: integer);
var
  i: integer;
begin
  for i := c downto 1 do if t[i] in [1..9] then Write (t[i])
  else Write(Chr(Ord('A') + t[i] - 10));
end;
 
 {     ****    le programme principale      ****}
begin
  lecture(b1, b2, ch);
  som(ch, b1);
  divi(b2, Result, c);
  affichage(t, c);
end.

Et puisque tu me remercies d'avoir lu ton message, profites-en pour lire les miens, et en tenir compte !!!!!!!!

**gadalla** · 03/05/2007, 15h30

oui c est vrai comme ça cest mieu
le vie est de vivre est apprendre
@+

**gadalla** · 03/05/2007, 20h28

merci pour tout ce qui a m'aider et vois mon programme

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
program base;
uses wincrt;
type
tab=array[1..100] of integer;
var
b1,b2,s,c:integer;
ch:string;
t:tab;
            {  **** procedure lecture   ****}
procedure lecture(var b1:integer;var b2:integer;var ch:string);
begin
writeln ('donner la base auqelle  vous aller transformé');
	readln(b2)  ;
writeln('donner la base de laquelle transferé');
	readln(b1);
writeln('donner le chiffre');
	readln (ch);
end;
		 {  ****   procedure som , elle permet de convertir un nombre donné à la
			  base dicimale     ****   }
procedure som( ch:string;b1:integer; var s:integer);
var
c:char;
n,i,l,p:integer;
begin
	s:=0;p:=1;
	l := Length(Ch) ;
for i := l  downto 1 do
begin
	c:= upcase(ch[i]);
if c in ['0'..'9'] then
	begin
		n:= ord(c)-ord('0');
	end
else
	begin
		n:= ord(c)-ord('7');
	end;
		s:= s+(n*p)  ;
		p:=p* b1;
end;
end;
	   {****  procedure divi , elle permet la divition du nombre décimale
							sur b2 puis de l'affiché          ***}
procedure divi (b2:integer; var s:integer);
var
   i,c:integer;
   t:tab;
begin
   	c :=0;
repeat
   	c:=c+1;
		t[c]:= s mod b2;
		s:=s div b2;
until s=0;
write('le chiffre devient:');
for i:= c downto 1 do
	if t[i] in [0..9] then write(t[i]:2 )
   else write (chr(ord('A')+t[i] -10):2)
end;
begin
lecture (b1,b2,ch);
som(ch,b1,s);
divi(b2,s);
 
end.

**droggo** · 03/05/2007, 21h51

Kaj,

Tu l'as dit toi-même, mis en forme comme je te l'ai montré, c'est mieux

Donc, un p'tit effort pour la mise en forme ? Ce n'est pas difficile, il suffit de le faire au fur et à mesure que tu écrit ton code, en revenant corriger si le code est modifié, surtout pour les modifications d'imbrication des blocs.

Sais-tu qu'il existe des function en plus des procedure ?

Je n'aime pas ce type de procédure, avec une variable de type basique passée par adresse juste pour y mettre un résultat :

Code :

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

procedure som( ch:string;b1:integer; var s:integer);

alors qu'on peut faire une fonction

Code :

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

function som(const ch:string;b1:integer) : integer;

Le const pour le paramètre ch évitant une copie locale, ainsi que la modification par "inadvertance" de cette chaîne.

[TP] Problème de conversion de base

Turbo Pascal

Discussions similaires

Partager

Partager