Discussion :

[Mistic100]

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 :

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
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

[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.

[[R]Viper]

Effectivement, il manque un readln à la fin.

[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)

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.

++