profile="http://gmpg.org/xfn/11"> ΠŸΠ΅Ρ€Π΅Π²ΠΎΠ΄ чисСл ΠΈΠ· дСсятичной систСмы счислСния Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ, паскаль. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

ΠŸΠ΅Ρ€Π΅Π²ΠΎΠ΄ чисСл ΠΈΠ· дСсятичной систСмы счислСния Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ, паскаль.

ΠŸΠ΅Ρ€Π΅Π²ΠΎΠ΄ чисСл ΠΈΠ· дСсятичной систСмы счислСния Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ, паскаль.

ΠŸΠ•Π Π•Π’ΠžΠ” Π”Π•Π‘Π―Π’Π˜Π§ΠΠžΠ“Πž Π§Π˜Π‘Π›Π Π’ Π”Π’ΠžΠ˜Π§ΠΠžΠ•
Алгоритм «ΠŸΠ΅Ρ€Π΅Π²ΠΎΠ΄ дСсятичного числа Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ систСму» — Π·Π°ΠΊΠ»ΡŽΡ‡Π°Π΅Ρ‚ΡΡ Π² Π΄Π΅Π»Π΅Π½ΠΈΠΈ дСсятичного числа Π½Π° основаниС 2 (Π΄Π²Π°). А ΠΈΠΌΠ΅Π½Π½ΠΎ цСлочислСнного дСлСния дСсятичного числа.
ΠŸΡ€ΠΈΠΌΠ΅Ρ€:
Число 12 (Π΄Π²Π΅Π½Π°Π΄Ρ†Π°Ρ‚ΡŒ) пСрСвСсти Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ систСму счислСния.
ΠŸΠ΅Ρ€Π²Ρ‹ΠΉ шаг: 12 div 2 = 6 12 mod 2 = 0
Π’Ρ‚ΠΎΡ€ΠΎΠΉ шаг: 6 div 2 = 3 6 mod 2 = 0
Π’Ρ€Π΅Ρ‚ΠΈΠΉ шаг: 3 div 2 = 1 3 mod 2 = 1
Π’Π΅ΠΏΠ΅Ρ€ΡŒ выписываСм
1 — Π½Π΅ΠΏΠΎΠ»Π½ΠΎΠ΅ частноС Π½Π° Ρ‚Ρ€Π΅Ρ‚ΡŒΠ΅ΠΌ шагС
1 — остаток ΠΎΡ‚ дСлСния Π½Π° Ρ‚Ρ€Π΅Ρ‚ΡŒΠ΅ΠΌ шагС
0 — остаток ΠΎΡ‚ дСлСния Π½Π° Π²Ρ‚ΠΎΡ€ΠΎΠΌ шагС
0 — остаток ΠΎΡ‚ дСлСния Π½Π° ΠΏΠ΅Ρ€Π²ΠΎΠΌ шагС
Число Π² Π΄Π²ΠΎΠΈΡ‡Π½ΠΎΠΌ счислСнии: 1100

Алгоритм:
Алгоритм - ΠŸΠ΅Ρ€Π΅Π²ΠΎΠ΄ дСсятичного числа Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ
Алгоритм — ΠŸΠ΅Ρ€Π΅Π²ΠΎΠ΄ дСсятичного числа Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ.
На рисункС ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ‹ этапы вычислСния
Π‘Ρ‚Ρ€Π΅Π»ΠΊΠ° ΠΏΠΎΠΊΠ°Π·Ρ‹Π²Π°Π΅Ρ‚ Π² ΠΊΠ°ΠΊΠΎΠΌ Π½Π°ΠΏΡ€Π°Π²Π»Π΅Π½ΠΈΠΈ Π½Π°Π΄ΠΎ Π²Ρ‹ΠΏΠΈΡΡ‹Π²Π°Ρ‚ΡŒ Ρ†ΠΈΡ„Ρ€Ρ‹.

Код:

program Perevod_10_2;

  {ΠŸΠ΅Ρ€Π΅Π²ΠΎΠ΄ чисСл ΠΈΠ· дСсятичной систСмы счислСния Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ, паскаль}

var
  i_Decimal, i_Temp: integer;
  s_Result, s_Q: string;

begin
  s_Result := '';
  WriteLn('Π’Π²Π΅Π΄ΠΈΡ‚Π΅ число ΠΈΠ· дСсятичной систСмы: ');
  ReadLn(i_Decimal);
  if i_Decimal = 1 then
    s_Result := '1';
  while i_Decimal > 1 do
  begin
    i_Temp := i_Decimal mod 2;
    i_Decimal := i_Decimal div 2;

    if i_Temp = 1 then
      s_Result := '1' + s_Result;
    if i_Temp = 0 then
      s_Result := '0' + s_Result;
    if i_Decimal = 1 then
      s_Result := '1' + s_Result;
  end;
  WriteLn('Число Π² Π΄Π²ΠΎΠΈΡ‡Π½ΠΎΠΉ систСмы: ', s_Result);
  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();

end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
ΠŸΠ΅Ρ€Π΅Π²ΠΎΠ΄ чисСл ΠΈΠ· дСсятичной систСмы счислСния Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ, паскаль
ΠŸΠ΅Ρ€Π΅Π²ΠΎΠ΄ чисСл ΠΈΠ· дСсятичной систСмы счислСния Π² Π΄Π²ΠΎΠΈΡ‡Π½ΡƒΡŽ, паскаль.

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.