Conversion 10-2

Aller en bas

Conversion 10-2

Message par Imen ESSASSI le Mar 3 Avr - 19:44

program conversion102;
uses wincrt;
type
tab=array[1..100] of integer;
var
n,c:integer;
t:tab;
procedure saisir(var n:integer);
begin
repeat
write('n=');
readln(n);
until(n>0);
end;
procedure conv102(var t:tab;var c:integer;n:integer);
begin
c:=0;
repeat
c:=c+1;
t[c]:=n mod 2;
n:=n div 2;
until(n=0);
end;
procedure affiche(t:tab;n:integer);
var
i:integer;
begin
for i:= n downto 1 do
write(t[i]);
end;


begin
saisir(n);
conv102(t,c,n);
affiche(t,c);
end.

Imen ESSASSI

Messages : 9
Date d'inscription : 21/02/2018

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Conversion 10-2

Message par Dalykh le Mer 4 Avr - 12:41

Merci Beaucoup Madame

Dalykh
Admin

Messages : 4
Date d'inscription : 31/01/2018
Age : 17

Voir le profil de l'utilisateur http://forum123.kanak.fr

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum