Это действительно шедевр

21.04.2010 в 20:34
Пишет  ~Slip~:

Месье знает толк в извращениях...
const
nmax=300;
alphabet=['А'..'П','Р'..'Я'];
glasn= ['А', 'Е', 'И','О','У','Ы','Э','Ю','Я'];
gluch=['П','Ф','К','Ш','С','Т','Х','Ц','Ч','Щ'];

type
TMassiv=array[1..nmax] of string;
function PerewodSimwola(ch: char): char;
begin
if ch in ['а'..'п'] then
ch:=chr( ord(ch)-ord('а')+ ord('А'));
if ch in ['р'..'я'] then
ch:=chr(ord(ch)-ord('р')+ ord('Р'));
result:=ch;
end;

P.S. Чтобы понять, что это за дрянь, мне понадобилась пара минут. Потом был немного истеричный смех.

URL записи