A voir également:
- Ecriture fonctions en pascal
- Turbo pascal - Télécharger - Édition & Programmation
- Écriture facebook - Guide
- Ecriture en gras - Guide
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
2 réponses
voici ce que j'ai cherché pour le CAS1
procédure décompbin(nombre:integer; var nbbin:nombrebinaire);
const N=10
var
i:integer; {copie du nbre}
n ch:integer; {nbre de chiffre}
BEGIN
n bis:=nombre;
while nombre>0 do
BEGIN
n ch:=n ch+1;
nombre[n ch]:=nombre*mod2;
nombre:=nombre*div2;
nombrebinaire[i]:=nombre;
end;
end;
procédure décompbin(nombre:integer; var nbbin:nombrebinaire);
const N=10
var
i:integer; {copie du nbre}
n ch:integer; {nbre de chiffre}
BEGIN
n bis:=nombre;
while nombre>0 do
BEGIN
n ch:=n ch+1;
nombre[n ch]:=nombre*mod2;
nombre:=nombre*div2;
nombrebinaire[i]:=nombre;
end;
end;
Il vaudrait mieux que tu poursuives ton raisonnement là où tu l'as commencé (ici).
Enfin moi je dis ça...
Enfin moi je dis ça...