Bonjour,  
mon petit frère me demande de l'aider à trouver l'erreur qu'il a fait dans son programme (apparemment il ne marche pas!) j'en suis maintenant incapable.  
Pourriez-vous l"aider?  
Il s'agit du Codage binaire sur 16 bits d'un nombre entier relatif  
Voilà son programme:  
 
{$APPTYPE CONSOLE}  
 
uses  
SysUtils;  
 
const  
taille=16;  
 
type  Tabcode=array[1..taille] of integer;    
 
function LIRE_ENTIER:integer;  
var nombre:integer;  
begin  
Writeln ('Quel nombre veux tu convertir en binaire?');    
Readln (nombre);  
 
 While (nombre>32767) or (nombre<-32768) do  
        begin  
        Writeln ('Error!!! :-( Please try again!! Please enter another number!!!');  
        Readln (nombre);  
        end;  
 
If nombre=0 then   //si l'entier à coder est nul, on donne directement le résultat  
        begin  
        Writeln ('Le nombre binaire est egal a 0000 0000 0000 0000');  
        Readln;  
        end;  
 
Var  
i : integer ;  
(puissance): integer;  
(somme): integer;  
 
Begin  
i :=1;  
(puissance) :=0;  
(somme) :=0;  
 
Repeat  
i :=i*2  
(puissance) :=(puissance)+1  
Until i>(nombre)  
 
If i>(nombre) do  
i :=i/2  
(puissance) :=(puissance)-1  
tabcode[puissance] :=1  
 
tabcode[1;i]:=0  
 
 
 
If i<(nombre) do  
(somme) := i +i/2  
 
 
Repeat  
 
begin  
If (somme)<(nombre)  
then do tabcode[puissance] :=1  
else        tabcode[puissance] :=0  
 
(puissance) :=(puissance)-1  
 
until (somme)=(nombre)  
 
end  
 
 
Merci de votre aide  

alleï, on va lisibiliser tout ca
 

 
[edit]visiblement, il manque des bouts
du style un ou deux end.
p'tet aussi ;

---------------
modérateur inside plankaivoo - ici powered - Je roule en micra 1l 55cv et je t'emmerde

Quel compilo ? Quelles sont les erreurs ?
 
Sinon y'a des ";" te des "end" qui manquent comme le dit Nico, ensuite "//" n'est pas un commentaire en pascal (c'est "{...}" ou eventuellement "(*...*)" ).
 
C'est quoi au juste la signification de "(variable)" ? Je connais pas cette syntaxe de declaration de variable.