Autor Wiadomość
tehran
PostWysłany: Śro 10:08, 06 Lut 2008    Temat postu: funkcja ord

funkcja ord
składnia:liczba:=ord(znak);

program funkcja_ord;
uses crt;{czysci ekran}
var {deklarowanie zmiennej}
znak:char;{zmienna znak jest typu char(znak kodu ascii)}
begin {zacznij}
repeat
znak:=readkey;
textcolor(4);{zmiana koloru czcionki}
textbackground(2);
writeln(znak , ' ' ,ord (znak));
until znak=chr(27);
end.

Powered by phpBB © 2001, 2005 phpBB Group