Index | Kontakt | Board | English | Perry Rhodan | Projeky | Pascal | Hack | Fun | Literatura | Galerie | Like/Hate | Linky | Počítadlo | Whois
Back
Down \/ Back

ascii.pas

Petr "Zweistein" Prokop


{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
program Asici; { (c) Petr "Zweistein" Prokop Program ascii : Pýevody znak… sady ascii } uses crt; var i:char; label 1; procedure play; begin; sound(100); delay(200); nosound; end; procedure znakcis; var zn:char; begin; writeln ('Znak ? :'); play; repeat zn:=readkey; until not(zn=''); writeln ('Znak : "',zn,'" - ¬ˇslo ',ord(zn)); End; procedure cisznak; var ci:byte; begin; write ('¬ˇslo ? :'); play; readln(ci); writeln ('¬ˇslo : ',ci,' - Znak "',chr(ci),'"'); end; begin; writeln (' Asici - program na zobrazenˇ hodnot znak… nebo naopak'); 1: writeln ('Volba ? :'); writeln (' 0 - Konec'); writeln (' 1 - Znak na źˇslo'); writeln (' 2 - ¬ˇslo na Znak'); write ('?: '); play; repeat; i:=readkey; until (i='0') or (i='1') or (i='2'); case i of '0':begin;writeln ('KONEC');halt;end; '1':Znakcis; '2':cisznak; end; goto 1; end.

(c) Zweistein 2000-2002
od 07-22-2001 byla stránka zobrazena Warning: mysql_connect(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 2 Warning: mysql_select_db(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 3 Warning: mysql_select_db(): A link to the server could not be established in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 3 Warning: mysql_query(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 5 Warning: mysql_query(): A link to the server could not be established in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 5 Warning: mysql_query(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 6 Warning: mysql_query(): A link to the server could not be established in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 6 Warning: mysql_num_rows() expects parameter 1 to be resource, boolean given in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 7 Warning: mysql_close() expects parameter 1 to be resource, boolean given in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 8
Back E-m@il Board
Up /\ Back
Index | Kontakt | Board | English | Perry Rhodan | Projeky | Pascal | Hack | Fun | Literatura | Galerie | Like/Hate | Linky | Počítadlo | Whois