Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

Exercice 5

program ex5;
var
n: integer;

procedure conv (p: integer);
var
d, i: integer;

begin
i := p div 2;
d := p - (i * 2);
if i <> 0 then
begin
conv(i);
write(d : 0);
end
else
write(d : 0);
end;
{ Fin de 'conv' }

begin
writeln('Conversion d''un nombre en binaire.');
writeln('il faut utiliser une procedure recursive ;-)');
writeln('Ce programme a ete telecharge depuis le site : http://www.Software-DS.com');
writeln;
writeln('Votre nombre:');
read(n);
writeln;
conv(n); { appel de la procedure }
writeln;
{ ©2001 All Rights Reserved to http://www.Software-DS.com 02/10/01 }
end.





Haut de la page - Page précédente - Page générée en 0.00159 sec.
Recherche personnalisée
 

1845020 visiteurs.   ©2001-2023 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité