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