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

#include <iostream>
#include <string>

using namespace std;

main()
{
  string bs,ds;
  int i,j,c,p,s;
  char z[1];

  cout << "Obliczanie wartosci dziesietnej\n"
          "   dowolnej  liczby binarnej\n"
          "===============================\n"
          "(C)2005 mgr Jerzy Walaszek\n"
          "                I LO w Tarnowie\n\n"
          "Podaj liczbe binarna:\n\n";
  cin >> bs;
  cout << endl;
  ds = "0"; i = 0;
  while((i < bs.length()) && ((bs[i] == '0') || (bs[i] == '1')))
  {
    p = 0;          // Przeniesienie
    c = bs[i] - 48; // Cyfra binarna
    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 << "\n\nNacisnij ENTER...\n";
  cin.getline(z,1);
}

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

program bindec;

{$APPTYPE CONSOLE}

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

begin
  writeln('Obliczanie wartosci dziesietnej');
  writeln('   dowolnej  liczby binarnej');
  writeln('===============================');
  writeln('(C)2005 mgr Jerzy Walaszek');
  writeln('                I LO w Tarnowie');
  writeln;
  writeln('Podaj liczbe binarna:'); writeln; readln(bs);
  writeln;
  ds := '0'; i := 1;
  while (i <= length(bs)) and (bs[i] in ['0'..'1']) do
  begin
    p := 0;               // Przeniesienie
    c := ord(bs[i]) - 48; // Cyfra binarna
    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 klawisz Enter...'); readln;
end.

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

Option Explicit On

Module Module1

  Sub Main()

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

    Console.WriteLine("Obliczanie wartości dziesiętnej")
    Console.WriteLine("   dowolnej  liczby binarnej")
    Console.WriteLine("===============================")
    Console.WriteLine("(C)2005 mgr Jerzy Wałaszek")
    Console.WriteLine("                I LO w Tarnowie")
    Console.WriteLine()
    Console.WriteLine("Podaj liczbę binarną:")
    Console.WriteLine()
    bs = Console.ReadLine()
    Console.WriteLine()
    ds = "0" : i = 0
    While (i < bs.Length())
      If (bs.Chars(i) <> "0") And (bs.Chars(i) <> "1") Then Exit While
      p = 0                     ' Przeniesienie
      c = Asc(bs.Chars(i)) - 48 ' Cyfra binarna
      For j = ds.Length() - 1 To 0 Step -1

        ' Schemat Hornera

        s = 2 * (Asc(ds.Chars(j)) - 48) + c + p
        c = 0

        ' Wyznaczamy przeniesienie do następnej kolumny

        p = s \ 10

        ' Cyfrę wynikową zapisujemy w miejscu docelowym

        Mid(ds, j + 1, 1) = Chr((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
    End While
    Console.WriteLine("Wartość dziesiętna liczby binarnej:")
    Console.WriteLine()
    Console.WriteLine(ds)
    Console.WriteLine()
    Console.WriteLine("KONIEC. Naciśnij dowolny klawisz...")
    Console.ReadLine()

  End Sub

End Module

<html>
  <head>
  </head>
  <body>
    <div align="center">
<form style="BORDER-RIGHT: #ff9933 1px outset; PADDING-RIGHT: 4px;
             BORDER-TOP: #ff9933 1px outset; PADDING-LEFT: 4px;
             PADDING-BOTTOM: 1px; BORDER-LEFT: #ff9933 1px outset;
             PADDING-TOP: 1px; BORDER-BOTTOM: #ff9933 1px outset;
             BACKGROUND-COLOR: #ffcc66" name="frmbindec">
  <h3 id="data_out" style="text-align: center">
    Obliczanie wartości dziesiętnej<br>
    dowolnej liczby binarnej</h3>
  <p style="TEXT-ALIGN: center">
    (C)2005 mgr Jerzy Wałaszek&nbsp;&nbsp; I LO w Tarnowie
  </p>
  <hr>
  <div align="center">
    <table border="0" cellpadding="4" style="border-collapse: collapse">
      <tr>
        <td align="center">Wprowadź poniżej liczbę binarną</td>
      </tr>
      <tr>
        <td align="center">
<input value="111000111000111000111000111000111000111000111000"
       name="inp_bs" size="80" style="text-align: right">
        </td>
      </tr>
      <tr>
        <td align="center">
          <input onclick="main();" type="button"
                 value="Oblicz wartość dziesiętną" name="B1">
        </td>
      </tr>
    </table>
  </div>
  <p id="out_t" style="TEXT-ALIGN: center">...</p>
</form>

<script language=javascript>

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

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

  bs = document.frmbindec.inp_bs.value;
  ds = "0"; i = 0;
  while((i < bs.length) && ((bs.charAt(i) == '0') || (bs.charAt(i) == '1')))
  {
    p = 0;                     // Przeniesienie
    c = bs.charCodeAt(i) - 48; // Cyfra binarna
    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_t").innerHTML = ds;
}

</script>
    </div>
  </body>
</html>