tablica ascii

szukam tablicy ascii w czystym wymiarze tzn. nie jako program (zamieszczony na tym serwerze) tylko np. tabelka: z jednej strony znak, z <font color="red">drógiej</span> kod bo jak chce sie dowiedzieć jaki znak ma kod np. 22 to musze po kolei wszystkie wciskać

Mozesz sobie kompilowac ten program w C:
[code]
#include <stdio.h>
#define MAX 254
unsigned char licznik;
main()
{
for (licznik =0; licznik < MAX; licznik++)
printf(" Kod ASCII: %d Znak: %c",
licznik, licznik);
return 0;
}
[/code]

http://4programmers.net/Forum/viewtopic.html?id=41543 albo wejsc tutaj, ale program taki latwo napisac przeciez do wydruku asccii

Tak ze 4 lata temu coś takiego namodziłem (TP 7.0). A co - wkleję :-P.
Cienki wtedy byłem (i nadal jestem :d), więc nie marudzić.

const tbl:array[0..$f]of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
var x:byte;
f:text;

function hex(x:byte):string;
var a:byte;
begin
 a:=x shr 4;
 hex[1]:=tbl[a];
 a:=x and $f;
 hex[2]:=tbl[a];
 hex[0]:=#2;
end;

function Add0(x:byte):string;
var s:string[3];
begin
 str(x,s);
 if Length(s)=1 then Insert('00',s,1);
 if Length(s)=2 then Insert('0',s,1);
 add0:=s;
end;

begin
 assign(f,'AsciiTBL.txt');
 rewrite(f);
 WriteLn(f,'Dec =Hex =Znak');
 for x:=0 to $ff do begin
    writeln(f,add0(x),' = ',hex(x),' = ',chr(x));

 end;
 close (f);
end.