🚀 go-pugleaf

Użytkownik "Kicer" <michal.kic@nospam.interia.pl> napisał w wiadomości
news:bn43m8$eve$1@atlantis.news.tpi.pl...
> Rafał wrote:
>
> > Witam.
> > Mam problem z programem tego typu :
> >
> > Var
> >   znak : Char;
> > Begin
> >   Write('Wpisz dowolny znak : ');
> >   ReadLn(znak);
> >   WriteLn('Wpisales znak [', znak, '] o kodzie ASCII ', Ord(znak));
> >   ReadLn;
> > End.
> >
>
> uses dos
> Var text : string;
>
>  Begin
>    Write('Wpisz dowolny text : ');
>    ReadLn(text);
>    for a:=1 to length(text) do
>          Write(Ord(text[a])+' ');
>    ReadLn;
>  End.
>
> pisalem z glowy , powinno działać :)
>
> > Co musze zrobić ?
> > Jakas tablica ?
> > Petla ?
>
> pętla :)
>
> > Z góry serdecznie dziękuję za pomoc.
> > Pozdrawiam
>
> ja również
> --
> Kicer          gg:3729519
> usun nospam. z adresu



Ok, a jak chcialbym teraz to przeksztalcic w tryb szestnatstkowy ?? ósemkowy
lub binarny ??
jak wykorzystać te liczby ??

Bo powiedzmy mam funkcję która mi zrobi z liczby dziesiętnej szestrastkową.
np.

function Dec2Hex(D: Word): string;
const
  HexDigits: string[16] = '0123456789ABCDEF';
var s: string;
begin
s:='';
repeat
   s:= HexDigits[D mod 16 + 1] +s;
   D:= D div 16;
until D = 0;
Dec2Hex := s;
end;


no i ok
a moj program teraz (bez funkcji 16tkowej) wyglada tak
:

var
 i:integer;
 s:string;

procedure ascii;
begin
write('Wyraz w kodzie ASCII : ');
For i:=1 To Length(s) Do write(ord(s[i]),' ');
end;

begin;
clrscr;
Write('Podaj napis z trybie ASCII: ');
ReadLn(s);
ascii;
readkey;
end.

i ładnie mi się pokazują cyfry kodu ASCII w trybie dziesiętnym
I moje pytanie brzmi >>
Jak to teraz zamienić jeszcze dodatkowo na tryb szestnastkowy oraz ósemkowy
i binarny.

Z góry dziękuję za pomoc którą mi okazaliście do tej pory, ale prosze o
kolejną ;)
I góry THX ;]