Luvun tulostaminen bitteinä

bitin_viilaaja

Mikähän olisi optimaalisin tapa tulostaa esimerkiksi 8-bittinen luku bittimuodossa?

Ajattelin tehdä silmukan, jossa olisi ensin maskina 0b1000000 ja se sitten naitettaisiin &-operaattorilla käsittelyssä olevaan 8-bittiseen lukuun. Jos tulos on 0, niin kyseinen bitti on nolla (tulostetaan vaikka printf():llä 0), ja muussa tapauksessa se olisi 1. Sitten shiftattaisiin maskia pykälän verran oikealle ja toistettaisiin hommaa lsb:hen saakka.

Vai onko olemassa joku yksinkertaisempi ja tehokkaampi tapa?

4

213

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • WituixMän

      Joskus tein aikoinaan tuollaisen koodinpätkän mutta käyttöä sille ei juurikaan ole ollut.
      Tulos tuli tekstinä tyyliin 10101101, lisäsin vielä vaihtoehdot v2 ja v3 joten
      v1=teksti
      v2=lukutaulukko
      v3=merkkitaulukko

      Muuttujat ja functiokutsu:

      Dim dluku As ULong = 1234567
      Dim BinT As String 'v1
      'Dim BinI() As Short 'v2
      'Dim BinC() As Char 'v3
      BinT = ToBin(dluku) 'v1
      'BinI = ToBin(dluku) 'v2
      'BinC = ToBin(dluku) 'v3

      ToBin-functio

      Function ToBin(ByVal luku As ULong)
      Dim btext As String = "" 'v1=teksti
      'Dim bint(7) As Short 'v2=lukutaulukko
      'Dim bchar(7) As Char 'v3=merkkitaulukko
      Dim bm As ULong = 8 'bittien määrä
      Dim vl As ULong = 0 'vertailuluku
      Try
      'selvitetään bittien määrä, 8,16,32 tai 64-bit
      While vl < luku
      vl = Math.Pow(2, bm)
      If luku > vl Then bm = bm * 2 'jos ei riitä niin kerrotaan bittien määrä kahdella
      If bm = 64 Then Exit While 'jos käyttää ULongon tilalla Long-muuttujaa niin 64 pitää vaihtaa 32:ksi
      End While
      'päivitetään v2 ja v3 tapauksissa muuttujat
      'ReDim bint(bm - 1) v2
      'ReDim bchar(bm - 1) v3
      For i = 0 To bm - 1
      'luetaan bitit takaa päin joten bitti joka on jakojäännös lisätään loppuun
      btext = luku Mod 2 & btext 'v1
      'bint(bm - 1 - i) = luku Mod 2 'v2
      'bchar(bm - 1 - i) = Convert.ToString(luku Mod 2) 'v3
      luku = Math.Floor(luku / 2) ' jaetaan kahdella seuraavaa bittiä varten, pyöristys alas
      Next
      Catch
      MsgBox("Wituix män!!", MsgBoxStyle.Critical) 'noin käy jos on liian suuri luku
      Return Nothing
      Exit Function
      End Try
      '18446744073709551615 = suurin ULong
      Return btext 'v1
      'Return bint 'v2
      'Return bchar 'v3
      End Function

      Kuten arvoisa lukija huomaa on koodi Visual Basicia jota nykyisin käytän Visual Studio 2012:lla.
      Lopetin C :n käytön jo "valovuosia" sitten, aloitan sen uudelleen jos siihen löytyy hyvä syy. C# on joskus tarvinnut.

    • tietokoneinsinööri

      Ehkäpä ei ole merkittävästi tehokkaampaa keinoa, jos verrataan eri lähestymistapojen
      assembly-koodia, pakko käyttää (x86) SHR:ää/SHL:ää yms. ja vertailla vaikka lsb:tä/msb:tä AND:lla, kun mikroprosessorin rekisterit on nykyään vähintää 8-bittisiä tai sitten tallentaa ROM -muistiin 8-alkioinen taulukko, joka bitille oma alkio (0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01) ja verrata niitä erikseen haluttuun lukuun. Muistin varaamisessa voi tulla eroa joskin merkitys suurempi ainoastaa rajoittuneiden resurssien ollessa käytössä (esim. ajetaan rinnakkain samaa ohjelmaa about 1000 kertaa).

      Vai olisikohan jonkin prosessoriperheen käskykannassa konekielinen komento, joka tekisi sen vähemmillä kellojaksoilla (onko jollakin parempaa tietoa)? Tietenkin voit itse suunnitella FPGA/ASIC-prosessorin tähän tarkoitukseen.

      https://en.wikipedia.org/wiki/Cycles_per_instruction

    • pcmuseo

      Ei ehkä optimaalisin, mutta:
      #include
      void main(int argc,char *argv[])
      {
      unsigned char luku;
      char tulos[]="00000000b";
      char i=8;
      if(argc<2)return;
      luku=atoi(argv[1]);
      printf("%d=0x%x=",luku,luku);
      while(i--)
      {
      tulos[i]=luku&1?'1':'0';
      luku>>=1;
      }

      printf("%s\n",tulos);

      }

    • Jspsus

      Mä laittsisin:

      while(n!=0) {b=(n%2==0 ?"0": "1") b; n/2;}

      n = kymmenkantainen luku
      b = luku bitteinä

      Tuossa ei myöskään väliä monikobittinen luku, koska osaa ottaa lyhimmän mukaan.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      146
      2912
    2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      367
      2047
    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      40
      1777
    4. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      37
      1742
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      32
      1421
    6. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      93
      1221
    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1173
    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      328
      965
    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      110
      948
    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      782
    Aihe