[TP] Problème avec un programme de conversion décimal -> binaire

Version imprimable

Bonjour à tous !

J'ai créé ce programme de conversion décimale vers binaire (nombre entier de 0 à 255) le probleme est que lorsque l'on entre un nombre et valide par "entrée" le programme s'arrête sans donner de résultat.

Pouriez-vous me dire d'ou vient l'erreur.

Code:

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
program decbin;
var
   reste : integer;
   i : integer;
   bin : integer;
   bit : array[0..7] of integer;
begin
   i:=7;reste:=0;bin:=128;
   writeln('Entrez un nombre entier entre 0 et 255');
   readln(reste);
   for i:=7downto 0do begin
      if reste>=bin then
         begin
         bit[i]:=1;
         reste:=reste-bin;
         end
      else
         begin
         bit[i]:=0;
         end;
      bin:=bin div 2;
     end;
   writeln('Le resultat est :');
   for i:=7downto 0do begin
      writeln(bit[i]);
   end;
 end.

Merci :lol:

27/12/2006, 20h48
Haywire

je n'ai pas testé ton code mais je pense que c'est juste parce que tu n'as pas mis de readln à la fin.
Donc il fait ce que tu lui dis puis il ferme la fenetre.
28/12/2006, 03h48
[R]Viper

Effectivement, il manque un readln à la fin.
28/12/2006, 15h06
Blue_Strike

bonjour,

@Mistic100 : tu n'as pas mentionné l'environnement où Tpascal est installé ! si tu travail sous un environnement DOS, alors là,la fenetre se ferme après que le compilateur termine executer toutes les instruction du programme. d'où tu ajoute readln; à la fin de ton programme pour le bloquer de ne fermer pas cette fenetre..
ce problème d'affichage n'existe pas dans la version de T.Pascal sous windows.. ;)

tu n'as pas mis l'appel du biblio 'USES (WIN)CRT;' ?

bon, voici ton nouveau code qui fonctionne normalement dans un environnement WIN (sous DOS : uses wincrt devient uses crt)

Citation:

program decbin;
uses wincrt;
var
reste : integer;
i : integer;
bin : integer;
bit : array[0..7] of integer;
begin
i:=7;reste:=0;bin:=128;
writeln('Entrez un nombre entier entre 0 et 255');
readln(reste);
for i:=7downto 0do
begin
if reste>=bin then
begin
bit[i]:=1;
reste:=reste-bin;
end
else
begin
bit[i]:=0;
end;
bin:=bin div 2;
end;
writeln('Le resultat est :');
for i:=7 downto 0 do
begin
write(' ',bit[i]);
end;
readln;
end.

++