Programmation pascal
jumpy
-
KX Messages postés 19031 Statut Modérateur -
KX Messages postés 19031 Statut Modérateur -
Bonjour,
je suis bloqué sur une procedure
en fait je souhaite mettre en place une bibliothèque de nombre binaire qui se presente sous forme tableau
c-a-d il prend un nombre et convertie en base 2 et l'affiche dans un tableau,
maintenant il faut ecrire une procedure qui va faire cette operation
je suis bloqué sur une procedure
en fait je souhaite mettre en place une bibliothèque de nombre binaire qui se presente sous forme tableau
c-a-d il prend un nombre et convertie en base 2 et l'affiche dans un tableau,
maintenant il faut ecrire une procedure qui va faire cette operation
A voir également:
- Programmation pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Application de programmation - Guide
- Programmation envoi sms - Guide
2 réponses
Je m'inspire de la procédure de aymoun888, pour donner un programme que j'ai testé :
La confiance n'exclut pas le contrôle
program SansNom;
const Nmax=31; // limite de integer
type tab=array[1..Nmax] of byte;
procedure convertion(var t:tab; n:integer);
var i:integer;
begin
for i:=1 to Nmax do t[i]:=2;
i:=1;
repeat
t[i]:=n mod 2;
n:=n div 2;
i:=i+1;
until( (n div 2=0) and (n mod 2=0));
end;
procedure Afficher(t:tab);
var i:integer;
begin
for i:=Nmax downto 1 do
if t[i]<2 then write(t[i]);
writeln;
end;
var t:tab;
begin
Convertion(t,5);
Afficher(t);
write('Fin du programme. Appuyer sur Entree'); readln;
end.--
La confiance n'exclut pas le contrôle
