16.11.2007, 22:50
общий
это ответ
Здравствуйте, БАБУИН!
Вот код программы с комментариями:
<code><b>program</b> dec2bin;
<b>var</b> dec:integer;
bin,b0:<b>string</b>;
<b>begin</b>
<b>write</b>(<font color=blue>‘DEC=‘</font>);<b>read</b>(dec); <font color=green>{вводим исходное десятичное число}</font>
bin:=<font color=blue>‘‘</font>; <font color=green>{переменная в которой будем "собирать" двоичное число}</font>
<b>while</b> dec > <font color=purple>0</font> <b>do</b>
<b>begin</b>
str(dec <b>mod</b> <font color=purple>2,</font> b0); <font color=green>{находим остаток от деления числа DEC на 2, и преобразовываем остаток в строку}</font>
dec:=dec <b>div</b> <font color=purple>2</font>; <font color=green>{уменьшаем разряд числа DEC}</font>
bin:=b0+bin; <font color=green>{собираем число из остатков от деления}</font>
<b>end</b>;
writeln(<font color=blue>‘BIN=‘</font>,bin); <font color=green>{выводим результат}</font>
readln;
<b>end</b>.</code>
Чтобы понять работу данного алгоритма (который является классикой) достаточно его просчитать вручную, либо найти описание в интернете .
Good Luck!!!