- Ја почнал/а темата
- #1
Aleks
Gaining Experience
- 18 мај 2007
- 5,748
- 288
Од пуста досада... Еве едно програмче многу лесно направено за конверзија на обични реченици во 1337 реченици 
Код:
program LeetTalk;
var
main:ARRAY[1..26] of Char;
l33t:ARRAY[1..26] of Char;
input:String;
J,K:Integer;
begin
Write('Vneseteja rechenicata za konverzija: ');
ReadLn(input);
for J:=1 to length(input) do
input[J]:=UpCase(input[J]);
{ popolnuvame obichnata azbuka : }
main[1]:='A'; main[2]:='B'; main[3]:='C'; main[4]:='D'; main[5]:='E'; main[6]:='F'; main[7]:='G'; main[8]:='H';
main[9]:='I'; main[10]:='J'; main[11]:='K'; main[12]:='L'; main[13]:='M'; main[14]:='N'; main[15]:='O'; main[16]:='P';
main[17]:='Q'; main[18]:='R'; main[19]:='S'; main[20]:='T'; main[21]:='U'; main[22]:='V'; main[23]:='W'; main[24]:='X';
main[25]:='Y'; main[26]:='Z';
{ popolnuvame l33t azbukata =) }
l33t[1]:='4'; l33t[2]:='8'; l33t[3]:='('; l33t[4]:='D'; l33t[5]:='3'; l33t[6]:='#'; l33t[7]:='6'; l33t[8]:='H';
l33t[9]:='|'; l33t[10]:='J'; l33t[11]:='K'; l33t[12]:='1'; l33t[13]:='M'; l33t[14]:='N'; l33t[15]:='0'; l33t[16]:='P';
l33t[17]:='&'; l33t[18]:='R'; l33t[19]:='$'; l33t[20]:='7'; l33t[21]:='U'; l33t[22]:='V'; l33t[23]:='W'; l33t[24]:='X';
l33t[25]:='Y'; l33t[26]:='2';
{ zamenuvame }
for J:=1 to length(input) do
for K:=1 to 26 do
if input[J]=main[K] then
input[J]:=l33t[K];
WriteLn(input);
end.