Darmowe Forum

WstĂŞp czyli rozwaÂżania wprowadzajÂące.
W pamiĂŞci komputera znak graficzny jakim jest litera lub cyfra  reprezentowany jest w postaci liczby. Inaczej mĂłwiÂąc w pamiĂŞci komputera wraz z Âładowaniem systemu wczytywana jest tablica znakĂłw (liter, cyfr i znakĂłw specjalnych). JeÂżeli w poleceniu wypisania na ekranie uÂżyjemy np. write('A'), to wydrukowana zostanie oczywiÂście litera "A" bez wnikania w tablicĂŞ znakĂłw. Dlaczego tak siĂŞ dzieje? WciskajÂąc klawisz na klawiaturze wysÂłany zostaje do pamiĂŞci kod wciÂśniĂŞtego klawisza (jest to wÂłaÂśnie kod ASCII), po odszukaniu w pamiĂŞci odpowiadajÂącej danej wartoÂści kodu znaku, zostanie on wydrukowany na ekranie.  Gorzej jest, jeÂżeli zaÂżyczymy wydrukowania znaku ktĂłrego nie ma na klawiaturze. Wtedy naleÂży posÂłuÂżyĂŚ siĂŞ bezpoÂśrednim dostĂŞpem do znakĂłw wÂłaÂśnie przez przesÂłanie do systemu kodu ASCII odpowiadajÂącego danemu znakowi.   

Jak w Pascalu wyÂświetliĂŚ znak jeÂżeli znamy jego kod ASCII ?
Odczytanie znaku oznaczonej w tablicy kodĂłw ASCII jako x jest moÂżliwe dziĂŞki poleceniu Chr(x);

Np. w tablicy ASCII znakowi 'A' odpowiada liczba = 65, a znakowi 'a' liczba = 97.
JeÂżeli w programie wpiszĂŞ polecenie: writeln(chr(65)); to na ekranie powinna pojawiĂŚ siĂŞ litera 'A'.
Dziêki poleceniu chr(x) istnieje mo¿liwoœÌ wyœwietlania znaków niedostêpnych bezpoœrednio z klawiatury. Do takich znaków mo¿na zaliczyÌ znaki:
Enter - chr(13), Backspace - chr(8); Escape -chr(27).

Zadanie 1. WyÂświetlanie kodĂłw ASCII , czyli tzw Matrix.

program as;
uses crt,dos;
var x:integer;
begin clrscr;
x:=1;
repeat
textcolor(green);
x:=x+1; write(chr(x):4);

until keypressed;
end.

Zadanie 2. Program prosi o podanie liczby z przedziaÂłu 0..255 i wyÂświetla znak odpowiadajÂący wprowadzonej liczbie.

program as;
uses crt,dos;
var x:integer;
begin clrscr;
x:=1;
repeat
write('Podaj kod: ');readln(x);
if((x<255) and (x>=0)) then
writeln(' Wprowadzono kod =', x,' co odpowiada znakowi: ',chr(x))
else writeln('wprowadzono bledny kod!!!!');
until x=17;
readkey;

end.

Funkcja ord()
Funkcja ord jest funkcjÂą odwrotnÂą do funkcji char()
Jest podobna do funkcji Chr(), tylko, Âże w niej zamieniane jest na odwrĂłt, nie liczby na znaki, tylko znaki na liczby :) ;D
np. ord('A')=65 ord('a')=97 ord('2')=50 itd. np.

Zadanie 2. Program ten czeka na wciÂśniĂŞcie znaku,po wciÂśniĂŞciu klawisza wyÂświetla go  podajÂąc jednoczeÂśnie jego kod ASCII. DziaÂła tak dÂługo pĂłki nie wciÂśniemy klawisza ESC.


program a1;
uses crt,dos;
var a:char;
begin
repeat a:=ReadKey;
writeln(a,'i jego kod ASCII =  ',ord(a));
until a=Chr(27);
End.

Zadanie 3. Kodowanie znakĂłw

program as;
uses crt,dos;
var x:char;
y,z:integer;
begin clrscr;
y:=1; z:=1;
repeat
x:=readkey;
y:=ord(x);

gotoxy(z,10);
write(x);

gotoxy(z,12);
write(chr(y+5));

gotoxy(z,14);
write((chr(y)));


z:=z+1;
until x=chr(27);
readkey;

end.