Discussion :

[gadalla]

slt a tous
svp aider moi a coriger ce code
il me demande de declaré des variable deja declaré

merci d'avance

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
 
 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 (b2:integer; var s:integer);
var
   i,c:integer;
   ali : string;
   t:tab;
begin
   	c :=0;
repeat
   	c:=c+1;
		t[c]:= s mod b2;
		s:=s div b2;
until s = 0 ;
 
for i:= c downto 1 do
	if t[i] in [0..9] then  ali := ali + intofchar(t[i] )
   else ali := ali + intofchar(chr(ord('A')+t[i] -10))
   edit3.text := ali ;