Przeliczanie na zapis stałoprzecinkowy

// Przeliczanie dziesiętnej liczby stałoprzecinkowej
// na zapis w systemie pozycyjnym o podstawie 2...10
//--------------------------------------------------
// (C)2005 mgr Jerzy Wałaszek
//                         I Liceum Ogólnokształcące
//                         im. K. Brodzińskiego
//                         w Tarnowie
//--------------------------------------------------

program pldz;

{$APPTYPE CONSOLE}

var
  s        : string;
  L,Lu     : real;
  p,c,Lc,m : cardinal;
begin
  writeln('Przeliczanie staloprzecinkowej liczby dziesietnej');
  writeln('na zapis w systemie pozycyjnym o podstawie 2...10');
  writeln('-------------------------------------------------');
  writeln('(C)2005 mgr Jerzy Walaszek            I LO Tarnow');
  writeln;
  write('Podaj liczbe L  = '); readln(L);
  writeln;
  write('Podaj p (2..10) = '); readln(p);
  writeln;
  write('Cyfry ulamkowe  = '); readln(m);
  writeln;
  Lc := trunc(L); Lu := L - Lc;
  s := '';
  repeat
    c  := Lc mod p;
    s  := char(c + 48) + s;
    Lc := Lc div p;
  until Lc = 0;
  s := s + ',';
  while m > 0 do
  begin
    Lu := Lu * p;
    c  := trunc(Lu);
    s  := s + char(c + 48);
    Lu := Lu - c;
    dec(m);
  end;
  writeln(L:0:10,'(10) = ',s,'(',p,')');
  writeln;
  writeln('Nacisnij klawisz ENTER...');
  readln;
end.

// Przeliczanie dziesiętnej liczby stałoprzecinkowej
// na zapis w systemie pozycyjnym o podstawie 2...10
//--------------------------------------------------
// (C)2005 mgr Jerzy Wałaszek
//                         I Liceum Ogólnokształcące
//                         im. K. Brodzińskiego
//                         w Tarnowie
//--------------------------------------------------

#include <cmath>
#include <iostream>
#include <iomanip>
#include <string>

using namespace std;

main()
{
  string s;
  double L,Lu;
  unsigned p,c,Lc,m;
  char z[1];

  cout.precision(10);     // 10 cyfr po przecinku
  cout.setf(ios::fixed);  // format stałoprzecinkowy
  cout << "Przeliczanie staloprzecinkowej liczby dziesietnej\n"
          "na zapis w systemie pozycyjnym o podstawie 2...10\n"
          "-------------------------------------------------\n"
          "(C)2005 mgr Jerzy Walaszek            I LO Tarnow\n\n"
          "Podaj liczbe L  = ";
  cin  >> L;
  cout << "\nPodaj p (2..10) = ";
  cin  >> p;
  cout << "\nCyfry ulamkowe  = ";
  cin  >> m;
  cout << endl;
  Lc = (unsigned) floor(L); Lu = L - Lc;
  s  = "";
  do
  {
    c  = Lc % p;
    s  = (char) (c + 48) + s;
    Lc = Lc / p;
  } while(Lc);
  s += ",";
  while(m)
  {
    Lu *= p;
    c  =  (unsigned) floor(Lu);
    s  += (char) (c + 48);
    Lu -= c;
    m--;
  };
  cout << L << "(10) = " << s << "(" << p
       << ")\n\nNacisnij ENTER...\n";
  cin.getline(z,1);
  cin.getline(z,1);
}

' Przeliczanie dziesiętnej liczby stałoprzecinkowej
' na zapis w systemie pozycyjnym o podstawie 2...10
'--------------------------------------------------
' (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 s As String
    Dim L, Lu As Double
    Dim p, c, Lc, m As UInteger

    Console.WriteLine("Przeliczanie stałoprzecinkowej liczby dziesiętnej")
    Console.WriteLine("na zapis w systemie pozycyjnym o podstawie 2...10")
    Console.WriteLine("-------------------------------------------------")
    Console.WriteLine("(C)2005 mgr Jerzy Wałaszek            I LO Tarnów")
    Console.WriteLine()
    Console.Write("Podaj liczbę L  = ") : L = Val(Console.ReadLine)
    Console.WriteLine()
    Console.Write("Podaj p (2..10) = ") : p = Val(Console.ReadLine)
    Console.WriteLine()
    Console.Write("Cyfry ułamkowe  = ") : m = Val(Console.ReadLine)
    Console.WriteLine()
    Lc = Int(L) : Lu = L - Lc
    s = ""
    Do
      c = Lc Mod p
      s = Chr(c + 48) + s
      Lc \= p
    Loop Until Lc = 0
    s += ","
    While m > 0
      Lu *= p
      c = Int(Lu)
      s += Chr(c + 48)
      Lu -= c
      m -= 1
    End While
    Console.WriteLine("{0}(10) = {1}({2})", L, s, p)
    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="frmprzelicz">
  <h3 id="data_out" style="text-align: center">
    Przeliczanie stałoprzecinkowej liczby dziesiętnej<br>
    na zapis w systemie pozycyjnym o podstawie 2...10
  </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="right">Liczba =</td>
        <td>
<input value="32.7125" name="inp_l" size="20" style="text-align: right">
        </td>
      </tr>
      <tr>
        <td align="right">Podstawa (2...10) =</td>
        <td>
<input value="8" name="inp_p" size="20" style="text-align: right">
        </td>
      </tr>
      <tr>
        <td align="right">Ilość cyfr po przecinku =</td>
        <td>
<input type="text" name="inp_m" size="20" value="10" style="text-align: right">
        </td>
      </tr>
    </table>
  </div>
  <p style="TEXT-ALIGN: center">
    <input onclick="main();" type="button" value="Przelicz" name="B1">
  </p>
  <p id="out_t" style="TEXT-ALIGN: center">...</p>
</form>

<script language=javascript>

// Przeliczanie dziesiętnej liczby stałoprzecinkowej
// na zapis w systemie pozycyjnym o podstawie 2...10
//--------------------------------------------------
// (C)2005 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie
//--------------------------------------------------

function main()
{
  var s,t,L,Lu,p,c,Lc,m;

  L = parseFloat(document.frmprzelicz.inp_l.value);
  p = parseInt(document.frmprzelicz.inp_p.value);
  m = parseInt(document.frmprzelicz.inp_m.value);
  if(isNaN(L) || isNaN(p) || isNaN(m))
    t = "<font color=Red><b>Złe dane</b></font>";
  else
  {
    Lc = Math.floor(L); Lu = L - Lc;
    s  = "";
    do
    {
      c  = Lc % p;
      s  = String.fromCharCode(c + 48) + s;
      Lc = Math.floor(Lc / p);
    } while(Lc);
    s += ",";
    while(m)
    {
      Lu *= p;
      c   = Math.floor(Lu);
      s  += String.fromCharCode(c + 48);
      Lu -= c;
      m--;
    };
    t = L + "<sub>(10)</sub> = " + s + "<sub>(" + p + ")</sub>";
  };
  document.getElementById("out_t").innerHTML = t;
}

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