Re: dec->hex? sory

Autor: Michal Glebowski (glebows_at_wipos.p.lodz.pl)
Data: Wed 03 Mar 1999 - 11:54:14 MET


Michal Glebowski napisał(a) w wiadomoœci: <7bhqev$ffq$2_at_sunsite.icm.edu.pl>...
>\_/\_/ napisa=B3(a) w wiadomo=9Cci: ...
>>On 2 Mar 1999, Gosc wrote:
>>
>>> hej,
>>> sorry, jesli wybralem zla grupe, ale nie znalazlem innej...
>>> mam problem - w szkole dostalem zadanie napisania programu=20
>>> konwertujacego liczby dziesietne na szesnastkowe. i mam problem=20
>>> - rozbilem juz liczbe poczatkowa na "cyfry", ale nie umiem jakos=20
>>> rozsodnie tych cyfr uzyskac. pomuzcie i podzruccie jakis algorytm...
>>> dzieki, Tomek.
>>>=20
>>jak masz poszeczegolne cyfry hexadecymalne, to robisz tablice od 0 to =
>15
>>kazde pole jest typu char. Tam wstawisz symbole od 0 do 9 i od a do f
>>potem wystarczy tylko zlozyc napis indeksujac cufry literami w tablicy
>>
>>Patrycja
>>
>>
>
>a tak bardziej swojsko, to specjalnie dla Goscia program w Pascalu,
>ktorego napisanie zajelo mi 6 min (nie mam wprawy w konwersjach)...

cholera, program mi zakrecil klamrowe nawiasy jako zalacznik, sory
jeszcze raz...

var dec:byte;
      hex:string[2];
const bas:string[16]='0123456789ABCDEF';
begin
  readln(dec);
  writeln(bas[dec div 16+1],
          bas[dec mod 16+1]);

end.



To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 18:18:00 MET DST