Str Pure3D miniblogs

  • Str Pure3D
    0

    Labdien, varbūt kāds var palīdzēt un atrast "bināro skaitļu pāreju uz hexadecimāl" kodu priekš pascal/delphi ?
    Kalkulātors un skaitļu apgriešana bija vieglāk par vieglu, bet šo nekur nevaru atrast ne netā , ne arī pierakstos.

    • Dawgora
      0

      Nu... Taisi varbūt nepārāk izdevīgā veidā.
      Izveido funkciju, kas pārveido pakāpes n uz decimālo sistēmu, un no decimālās uz n pakāpes sistēmu. Vajadzēs string izvadu, ja tā.

      Nu... Ja pascal, ja gribi dirty way... tad izveido ciklu, kas iet cauri stringam no beigām uz priekšu. Paņem pēdējo skaitli pārveido uz ascii int (piemēram... 0 bija... 48 vai kaut kā tā), tad paņem to skaitli, pacel kkādā pakāpē, ieliec to mainīgajā un turpini. Pēc idejas... funkcijas būtu jāraksta šādi (pseidokodā.. ok vienkārši randomā kkā uzrakstīju)

      function to_decimal(string number, int base)
      {
      int value=0;
      for(i=0; i<number.length;i++)
      {
      value+= (numver[0].toAscii() -48)* (i pakāpē base)
      }

      return value;
      }


      un tā tālāk.

Atpakaļ Uz augšu