{ ASCII_TABULKA.PAS Copyright (c) Michal } { Zobrazi ASCII tabulku zo suboru subor.txt. } { Nasledne vypise v ASCII tvare. } { } { Datum:28.11.2007 http://www.trsek.com } program ascipocitadlo; uses crt; type pole=array[1..256] of integer; var z:char; i,pom:integer; t:text; tab:pole; begin assign(t,'C:\subor.txt'); reset(t); while not eof(t) do begin read(t,z); pom:=ord(z); tab[pom]:=tab[pom]+1; end; clrscr; writeln('Stlacte ENTER pre zobrazenie tabulky'); readln; for i:=48 to 124 do {zobrazi hlavne cislice a pismena} begin write(chr(i),'-',ord(tab[i]),' '); end; writeln; writeln('Lubovolnou klavesou opustite program'); readkey; end.