// Obliczanie wartości
// dowolnej liczby dwójkowej
//---------------------------
// (C)2005 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie
//---------------------------

#include <iostream>
#include <string>

using namespace std;

main()
{
  string bs,ds;
  int i,j,c,p,s;

  cout << "Wartosc dziesietna\n"
          "liczby binarnej\n"
          "====================\n"
          "(C)2005\n"
          "mgr Jerzy Walaszek\n"
          "I LO w Tarnowie\n\n"
          "Liczba binarna: ";
  cin >> bs;
  cout << endl;
  ds = "0";
  i = 0;
  while((i < (int)bs.length()) &&
        ((bs[i] == '0') ||
         (bs[i] == '1')))
  {
    // Przeniesienie
    p = 0;
    // Cyfra binarna
    c = bs[i] - 48;
    for(j = ds.length() - 1;
        j >= 0;
        j--)
    {
      // Schemat Hornera
      s = 2 * (ds[j] - 48) +
          c + p;
      c = 0;

      // Wyznaczamy przeniesienie
      // do następnej kolumny
      p = s / 10;

      // Cyfrę wynikową zapisujemy
      // w miejscu docelowym
      ds[j] = (char)((s % 10) + 48);

      // Jeśli po wyczerpaniu cyfr
      // ds przeniesienie p ma
      // wartość większą od zera,
      // to jest ono równe pierwszej
      // cyfrze
      if(!j && p)
        ds = (char)(p + 48) + ds;
    }

    // Następna cyfra binarna
    i++;
  }
  cout << "Wartosc dziesietna "
          "liczby binarnej:\n\n"
       << ds << endl << endl;
  system("pause");
  return 0;
}

// Obliczanie wartości
// dowolnej liczby dwójkowej
//---------------------------
// (C)2005 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie
//---------------------------

program bindec;

{$APPTYPE CONSOLE}

var
  bs,ds     : string;
  i,j,c,p,s : cardinal;

begin
  writeln('Wartosc dziesietna');
  writeln('liczby binarnej');
  writeln('====================');
  writeln('(C)2005');
  writeln('mgr Jerzy Walaszek');
  writeln('I LO w Tarnowie');
  writeln;
  writeln('Liczba binarna:');
  writeln;
  readln(bs);
  writeln;
  ds := '0';
  i := 1;
  while (i <= length(bs)) and
        (bs[i] in ['0'..'1']) do
  begin
    // Przeniesienie
    p := 0;
    // Cyfra binarna
    c := ord(bs[i]) - 48;
    for j := length(ds) downto 1 do
    begin
      // Schemat Hornera
      s := 2 * (ord(ds[j]) - 48) +
           c + p;
      c := 0;

      // Wyznaczamy przeniesienie
      // do następnej kolumny
      p := s div 10;

      // Cyfrę wynikową zapisujemy
      // w miejscu docelowym
      ds[j] := char((s mod 10) + 48);

      // Jeśli po wyczerpaniu cyfr
      //  ds przeniesienie p ma
      //  wartość większą od zera,
      // to jest ono równe pierwszej
      // cyfrze
      if (j = 1) and (p > 0) then
        ds := char(p + 48) + ds;
    end;

    // Następna cyfra binarna
    inc(i);
  end;
  writeln('Wartosc dziesietna ' +
           'liczby binarnej:');
  writeln;
  writeln(ds);
  writeln;
  writeln('Nacisnij Enter...');
  readln;
end.

' Obliczanie wartości
' dowolnej liczby dwójkowej
'---------------------------
' (C)2005 mgr Jerzy Wałaszek
' I Liceum Ogólnokształcące
' w Tarnowie
'---------------------------

Dim As String bs, ds
Dim As Integer i, j, c, p, s

Print "Wartosc dziesietna"
Print "liczby binarnej"
Print "===================="
Print "(C)2005"
Print "mgr Jerzy Walaszek"
Print "I LO w Tarnowie"
Print
Print "Liczba binarna:"
Print
Input bs
Print
ds = "0"
i = 0
While i < Len(bs)
  If (bs[i] < 48) Or (bs[i] > 49) Then _
    Exit While
    ' Przeniesienie
    p = 0
    ' Cyfra binarna
    c = bs[i] - 48
    For j = Len(ds) - 1 To 0 Step -1
      ' Schemat Hornera
      s = 2 * (ds[j] - 48) + c + p
      c = 0

      ' Wyznaczamy przeniesienie
      ' do następnej kolumny
      p = s \ 10

     ' Cyfrę wynikową zapisujemy
     ' w miejscu docelowym

     ds[j] = (s Mod 10) + 48

     ' Jeśli po wyczerpaniu cyfr
     ' ds przeniesienie p ma wartość
     ' większą od zera, to jest ono
     ' równe pierwszej cyfrze
     If (j = 0) And (p > 0) Then _
       ds = Chr(p + 48) + ds
   Next

   ' Następna cyfra binarna
   i += 1
Wend
Print "Wartosc liczby binarnej:"
Print
Print ds
Print
Print "sNacisnij dowolny klawisz..."
Sleep
End

# Obliczanie wartości
# dowolnej liczby dwójkowej
#---------------------------
# (C)2005 mgr Jerzy Wałaszek
# I Liceum Ogólnokształcące
# w Tarnowie
#---------------------------

print("Wartość dziesiętna")
print("liczby binarnej")
print("====================")
print("(C)2005")
print("mgr Jerzy Walaszek")
print("I LO w Tarnowie")
print()
print("Liczba binarna:")
print()
bs = input()
print()
ds = "0"
i = 0
while i < len(bs):
    if (bs[i] < "0") or \
       (bs[i] > '1'):
        break
    # Przeniesienie
    p = 0
    # Cyfra binarna
    c = ord(bs[i]) - 48
    for j in reversed(range(len(ds))):
        # Schemat Hornera
        s = 2 * (ord(ds[j]) - 48) + c + p
        c = 0

        # Wyznaczamy przeniesienie
        # do następnej kolumny
        p = s // 10

        # Cyfrę wynikową zapisujemy
        # w miejscu docelowym

        ds = ds[:j] + chr((s % 10) + 48) \
             + ds[j + 1:]

        # Jeśli po wyczerpaniu cyfr
        # ds przeniesienie p ma wartość
        # większą od zera, to jest ono
        # równe pierwszej cyfrze
        if (not j) and (p > 0):
            ds = chr(p + 48) + ds
    # Następna cyfra binarna
    i += 1
print("Wartość liczby binarnej:")
print()
print(ds)
print()
input("Naciśnij dowolny klawisz...")

# Obliczanie wartości
# dowolnej liczby dwójkowej
#---------------------------
# (C)2026 mgr Jerzy Wałaszek
# I Liceum Ogólnokształcące
# w Tarnowie
#---------------------------

print("Wartość dziesiętna")
print("liczby binarnej")
print("====================")
print("(C)2005")
print("mgr Jerzy Walaszek")
print("I LO w Tarnowie")
print()
print("Liczba dwójkowa:")
print()

# Tutaj jest całe przeliczenie!
#------------------
d = int(input(), 2)
#------------------

print("Wartość dziesiętna:")
print()
print(d)
print()
input("Naciśnij dowolny klawisz...")

<html>
  <head>
  </head>
  <body>

<div style="overflow-x: auto;"
     align="center">
  <table
  border="0"
  cellpadding="4"
  style="border-collapse:
         collapse">
    <tr>
      <td nowrap>
        <form
        name="frm"
        style="text-align: center;
               background-color:
               #E7E7DA"
        class="nomargin">
          <b>Obliczanie wartości
          dziesiętnej<br/>
          dowolnej liczby
          binarnej</b>
          <br/><br/>
          &nbsp;&nbsp;(C)2026
          mgr Jerzy Wałaszek
          I LO w Tarnowie
          &nbsp;&nbsp;<hr/>
          <table
          style="border-collapse:
                 collapse;"
          border="0"
          cellpadding="4"
          cellspacing="4"
          class="nomargin">
            <tr>
              <td align="center">
                Wprowadź poniżej
                liczbę binarną
              </td>
            </tr>
            <tr>
              <td align="center">
                &nbsp;&nbsp;
                <input
                value="10111111101101101"
                name="inp_bs"
                size="40"
                style="text-align:
                       right;">
                &nbsp;&nbsp;
              </td>
            </tr>
            <tr>
              <td align="center">
                <input
                onclick="main();"
                value="Przelicz"
                name="B1"
                type="button">
              </td>
            </tr>
          </table>
          <hr/>
          <b>Wynik:</b>
          <div id="out">.</div>
        </form>
      </td>
    </tr>
  </table>
</div>

<script language="javascript">

// Obliczanie wartości dowolnej
// liczby dwójkowej
//-----------------------------
// (C)2005 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie
//-----------------------------

function main()
{
  var bs,ds,i,j,c,p,s;

  bs = document.frm.inp_bs.value;
  ds = "0";
  i = 0;
  while((i < bs.length) &&
       ((bs.charAt(i) == '0') ||
        (bs.charAt(i) == '1')))
  {
    // Przeniesienie
    p = 0;
    // Cyfra binarna
    c = bs.charCodeAt(i) - 48;
    for(j = ds.length - 1;
        j >= 0;
        j--)
    {
      // Schemat Hornera
      s = 2 * (ds.charCodeAt(j) -
          48) + c + p;
      c = 0;

      // Wyznaczamy przeniesienie
      // do następnej kolumny
      p = Math.floor(s / 10);

      // Cyfrę wynikową zapisujemy
      // w miejscu docelowym
      ds = ds.substr(0,j) +
           String.fromCharCode((s % 10) +
           48) + ds.substring(j + 1,
           ds.length);

      // Jeśli po wyczerpaniu cyfr
      // ds przeniesienie p ma wartość
      // większą od zera, to jest ono
      // równe pierwszej cyfrze
      if(!j && p)
        ds = String.fromCharCode(p
             + 48) + ds;
    }

    // Następna cyfra binarna
    i++;
  };
  document.getElementById("out")
  .innerHTML = ds;
}

</script>

  </body>
</html>