Unit P_Kling; Interface Uses Graph; Const Velikost = 20; Var Pismeno:array[1..Velikost] of string; Procedure PrepniPismeno(X:integer); Procedure NapisText(X,Y:integer;Text:string;M:byte); Implementation Procedure PrepniPismeno(X:integer); Begin Case X Of 1: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='131415161718'; Pismeno[6]:='1213141516'; Pismeno[7]:='11121314'; Pismeno[8]:='10111213'; Pismeno[9]:='09101112'; Pismeno[10]:='09101112'; Pismeno[11]:='080910111213'; Pismeno[12]:='070809101112131415'; Pismeno[13]:='0607080910111213'; Pismeno[14]:='050607080910'; Pismeno[15]:='050607080910111213'; Pismeno[16]:='040506070809101112131415'; Pismeno[17]:='0304050607080910111213141516'; Pismeno[18]:='01020304050607080910111213141516'; Pismeno[19]:='14151617'; Pismeno[20]:='1617'; End; 2: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='050613141516'; Pismeno[6]:='0405060711121314'; Pismeno[7]:='03040506070910111213'; Pismeno[8]:='02030405060708091011'; Pismeno[9]:='01020304050607080910'; Pismeno[10]:='0203040506070809'; Pismeno[11]:='02030406070809'; Pismeno[12]:='06070809'; Pismeno[13]:='070809'; Pismeno[14]:='070809'; Pismeno[15]:='080910'; Pismeno[16]:='080910'; Pismeno[17]:='0910'; Pismeno[18]:='091011'; Pismeno[19]:='101112'; Pismeno[20]:=''; End; 3: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='0708'; Pismeno[6]:='07080918'; Pismeno[7]:='060708091718'; Pismeno[8]:='06070809101718'; Pismeno[9]:='050607080910161718'; Pismeno[10]:='0405060708091015161718'; Pismeno[11]:='04050607080910111415161718'; Pismeno[12]:='03040506091011131415161718'; Pismeno[13]:='02030405091011121314151617'; Pismeno[14]:='010203091011121314151617'; Pismeno[15]:='0114151617'; Pismeno[16]:='14151617'; Pismeno[17]:='14151617'; Pismeno[18]:='07080910111213141516'; Pismeno[19]:='050607080910111213141516'; Pismeno[20]:='0708091011121314'; End; 4: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='0607'; Pismeno[6]:='050607'; Pismeno[7]:='050607'; Pismeno[8]:='050607'; Pismeno[9]:='05060708'; Pismeno[10]:='06070809'; Pismeno[11]:='06070809'; Pismeno[12]:='07080910'; Pismeno[13]:='0708091011'; Pismeno[14]:='04050809101112'; Pismeno[15]:='03040910111213'; Pismeno[16]:='02030410111213'; Pismeno[17]:='0102030910111213'; Pismeno[18]:='01020910111213'; Pismeno[19]:='0102030405060708091011'; Pismeno[20]:='010203040506070809'; End; 5: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='02030405060708091011'; Pismeno[6]:='02030405060708091011'; Pismeno[7]:='02030405060708091011'; Pismeno[8]:='02030405'; Pismeno[9]:='0102030405'; Pismeno[10]:='0102030405'; Pismeno[11]:='01020304'; Pismeno[12]:='01020304'; Pismeno[13]:='010203'; Pismeno[14]:='010203'; Pismeno[15]:='010203'; Pismeno[16]:='010203'; Pismeno[17]:='010203'; Pismeno[18]:='01020304'; Pismeno[19]:='010203'; Pismeno[20]:='0102'; End; 6: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='0102030405060718'; Pismeno[6]:='0103040506070809101112131415161718'; Pismeno[7]:='040506070809101112131415161718'; Pismeno[8]:='0506070809101112131415161718'; Pismeno[9]:='0607080910111213161718'; Pismeno[10]:='060708091011121617'; Pismeno[11]:='050607080910111617'; Pismeno[12]:='0405060708'; Pismeno[13]:='030405060708'; Pismeno[14]:='030405060708'; Pismeno[15]:='030405060708'; Pismeno[16]:='040506070809'; Pismeno[17]:='050607080910'; Pismeno[18]:='060708091011'; Pismeno[19]:='0809101112'; Pismeno[20]:='1011121314'; End; 7: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='09101112131415161718'; Pismeno[6]:='10111213141516171819'; Pismeno[7]:='1213141516171819'; Pismeno[8]:='1213141516'; Pismeno[9]:='12131415'; Pismeno[10]:='12131415'; Pismeno[11]:='1112131415'; Pismeno[12]:='11121314'; Pismeno[13]:='1011121314'; Pismeno[14]:='1011121314'; Pismeno[15]:='0910111213'; Pismeno[16]:='0809101112131415'; Pismeno[17]:='0506070809101112131415161718'; Pismeno[18]:='030405060708091011121314171819'; Pismeno[19]:='020304050607'; Pismeno[20]:='0102'; End; 8: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='050607'; Pismeno[6]:='0405060708'; Pismeno[7]:='03040506070809'; Pismeno[8]:='0203040506070809'; Pismeno[9]:='01020304070809'; Pismeno[10]:='010203060708'; Pismeno[11]:='0102030607'; Pismeno[12]:='0102030506'; Pismeno[13]:='0102030506'; Pismeno[14]:='0102030405'; Pismeno[15]:='02030405'; Pismeno[16]:='020304'; Pismeno[17]:='020304'; Pismeno[18]:='030405'; Pismeno[19]:='0405'; Pismeno[20]:='0506'; End; 9: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='04050607081112'; Pismeno[6]:='0304050607111213'; Pismeno[7]:='03040506111213'; Pismeno[8]:='02030405111213'; Pismeno[9]:='02030405111213'; Pismeno[10]:='0203040506111213'; Pismeno[11]:='020304050607080910111213'; Pismeno[12]:='03040506070809101112'; Pismeno[13]:='04050607080910'; Pismeno[14]:='040506070809'; Pismeno[15]:='05060708'; Pismeno[16]:='05060708'; Pismeno[17]:='06070809'; Pismeno[18]:='070809'; Pismeno[19]:='07080910'; Pismeno[20]:='091011'; End; 10: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='060708'; Pismeno[6]:='050607080910111213141516'; Pismeno[7]:='04050607080910111213141516'; Pismeno[8]:='0607080910111213141516'; Pismeno[9]:='0607080910111213141516'; Pismeno[10]:='060708091013141516'; Pismeno[11]:='0607080913141516'; Pismeno[12]:='060708131415'; Pismeno[13]:='0506070812131415'; Pismeno[14]:='050607121314'; Pismeno[15]:='0405061213'; Pismeno[16]:='03040506111213'; Pismeno[17]:='020304051112'; Pismeno[18]:='0102031011'; Pismeno[19]:='0102'; Pismeno[20]:=''; End; 11: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:=''; Pismeno[6]:='0607'; Pismeno[7]:='050607'; Pismeno[8]:='04050607'; Pismeno[9]:='0304050607'; Pismeno[10]:='0203040506'; Pismeno[11]:='0203040506'; Pismeno[12]:='0304050607'; Pismeno[13]:='04050607'; Pismeno[14]:='04050607'; Pismeno[15]:='04050607'; Pismeno[16]:='04050607'; Pismeno[17]:='040506'; Pismeno[18]:='040506'; Pismeno[19]:='0405'; Pismeno[20]:=''; End; 12: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='1011'; Pismeno[6]:='09101112'; Pismeno[7]:='0809101112'; Pismeno[8]:='0809101112'; Pismeno[9]:='070809101112'; Pismeno[10]:='06070809'; Pismeno[11]:='05060708'; Pismeno[12]:='050607'; Pismeno[13]:='04050607'; Pismeno[14]:='03040506'; Pismeno[15]:='0203040506'; Pismeno[16]:='0203040506070809'; Pismeno[17]:='01020304050607080910'; Pismeno[18]:='01020304050607080910'; Pismeno[19]:='08091011'; Pismeno[20]:='1011'; End; 13: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='07080910'; Pismeno[6]:='060708091011'; Pismeno[7]:='05060708091011'; Pismeno[8]:='0405060708091011'; Pismeno[9]:='01020304050607091011'; Pismeno[10]:='0102030405061011'; Pismeno[11]:='0102030405061011'; Pismeno[12]:='01020304051011'; Pismeno[13]:='02030405091011'; Pismeno[14]:='020304050910'; Pismeno[15]:='020304050809'; Pismeno[16]:='03040506070809'; Pismeno[17]:='03040506'; Pismeno[18]:='040506'; Pismeno[19]:='050607'; Pismeno[20]:='060708'; End; 14: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='070809'; Pismeno[6]:='0607080910'; Pismeno[7]:='05060708091011'; Pismeno[8]:='030405060708091011'; Pismeno[9]:='0203040506'; Pismeno[10]:='0102030405'; Pismeno[11]:='010203040506070809101112'; Pismeno[12]:='0203040506070809101112'; Pismeno[13]:='0203040506070809101112'; Pismeno[14]:='030405060708'; Pismeno[15]:='0405060708'; Pismeno[16]:='05060708'; Pismeno[17]:='06070809'; Pismeno[18]:='07080910'; Pismeno[19]:='08091011'; Pismeno[20]:='080910111213'; End; 15: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='02030405'; Pismeno[6]:='04050607080910111213141516'; Pismeno[7]:='0607080910111213141516'; Pismeno[8]:='0910111213141516'; Pismeno[9]:='1112131415'; Pismeno[10]:='1112131415'; Pismeno[11]:='1112131415'; Pismeno[12]:='101112131415'; Pismeno[13]:='091011121314'; Pismeno[14]:='0809101112'; Pismeno[15]:='08091011'; Pismeno[16]:='08091011'; Pismeno[17]:='08091011'; Pismeno[18]:='0809101112'; Pismeno[19]:='101112'; Pismeno[20]:='111213'; End; 16: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='0809'; Pismeno[6]:='070809'; Pismeno[7]:='0708'; Pismeno[8]:='060708'; Pismeno[9]:='060708'; Pismeno[10]:='05060708091011'; Pismeno[11]:='0405091011'; Pismeno[12]:='020304091011'; Pismeno[13]:='091011'; Pismeno[14]:='091011'; Pismeno[15]:='08091011'; Pismeno[16]:='0708091011'; Pismeno[17]:='06070809'; Pismeno[18]:='05060708'; Pismeno[19]:='03040506'; Pismeno[20]:='010203'; End; 17: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:=''; Pismeno[6]:='1112'; Pismeno[7]:='0809101112'; Pismeno[8]:='070809101112'; Pismeno[9]:='060708091011'; Pismeno[10]:='050607080910'; Pismeno[11]:='010405060708'; Pismeno[12]:='01020304050607'; Pismeno[13]:='01030405060708'; Pismeno[14]:='0405060708'; Pismeno[15]:='05060708'; Pismeno[16]:='04050607'; Pismeno[17]:='040506'; Pismeno[18]:='030405'; Pismeno[19]:='020304'; Pismeno[20]:='0102'; End; 18: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='010203040506'; Pismeno[6]:='0102030405060708091011121314'; Pismeno[7]:='0405060708091011121314'; Pismeno[8]:='0607080910111213'; Pismeno[9]:='0708091011'; Pismeno[10]:='0708091011121314'; Pismeno[11]:='06070809101112'; Pismeno[12]:='0607080910'; Pismeno[13]:='0506070809'; Pismeno[14]:='0405060708'; Pismeno[15]:='04050607'; Pismeno[16]:='030405'; Pismeno[17]:='020304'; Pismeno[18]:='010203'; Pismeno[19]:='0102'; Pismeno[20]:='01'; End; 19: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='070809'; Pismeno[6]:='07080910141516'; Pismeno[7]:='070809101112131415'; Pismeno[8]:='0708091011121314'; Pismeno[9]:='0809101112'; Pismeno[10]:='08091011'; Pismeno[11]:='08091011'; Pismeno[12]:='07080910'; Pismeno[13]:='07080910'; Pismeno[14]:='0607080910'; Pismeno[15]:='0607080910'; Pismeno[16]:='05060708091011'; Pismeno[17]:='04050607080910111213'; Pismeno[18]:='03040506070809101112131415'; Pismeno[19]:='0203040506151617'; Pismeno[20]:='0102'; End; 20: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:=''; Pismeno[6]:='15'; Pismeno[7]:='1415'; Pismeno[8]:='131415'; Pismeno[9]:='12131415'; Pismeno[10]:='05061112131415'; Pismeno[11]:='04051112131415'; Pismeno[12]:='030405101112131415'; Pismeno[13]:='03040509101112131415'; Pismeno[14]:='02030405070809101112131415'; Pismeno[15]:='01020304050607080910'; Pismeno[16]:='01020304050607'; Pismeno[17]:='0102030405'; Pismeno[18]:='010203'; Pismeno[19]:='01'; Pismeno[20]:=''; End; 21: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='141516'; Pismeno[6]:='12131415'; Pismeno[7]:='1112131415'; Pismeno[8]:='101112131415'; Pismeno[9]:='09101112131415'; Pismeno[10]:='08091011'; Pismeno[11]:='07080910'; Pismeno[12]:='060708091415'; Pismeno[13]:='06070813141516'; Pismeno[14]:='050607081011121314151617'; Pismeno[15]:='040506070809101112'; Pismeno[16]:='03040506070809'; Pismeno[17]:='03040506'; Pismeno[18]:='020304'; Pismeno[19]:='010203'; Pismeno[20]:='01'; End; 22: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:=''; Pismeno[6]:='19'; Pismeno[7]:='1819'; Pismeno[8]:='171819'; Pismeno[9]:='16171819'; Pismeno[10]:='15161718'; Pismeno[11]:='040515161718'; Pismeno[12]:='0304051415161718'; Pismeno[13]:='020304051314151617'; Pismeno[14]:='0203040506121314151617'; Pismeno[15]:='02030405060708091011121314151617'; Pismeno[16]:='02030405060708091011121314151617'; Pismeno[17]:='010203040708091011121314151617'; Pismeno[18]:='0102031314151617'; Pismeno[19]:='010214151617'; Pismeno[20]:='01151617'; End; 23: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='010203040506070809101112131415'; Pismeno[6]:='01020304050607080910111213'; Pismeno[7]:='010203040506'; Pismeno[8]:='01020304'; Pismeno[9]:='01020304'; Pismeno[10]:='01020304'; Pismeno[11]:='01020304'; Pismeno[12]:='01020304'; Pismeno[13]:='01020304'; Pismeno[14]:='01020304'; Pismeno[15]:='01020304'; Pismeno[16]:='020304'; Pismeno[17]:='020304'; Pismeno[18]:='020304'; Pismeno[19]:='0304'; Pismeno[20]:='0405'; End; 24: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='07080910121314'; Pismeno[6]:='050607080912131415'; Pismeno[7]:='040506070812131415'; Pismeno[8]:='03040506070812131415'; Pismeno[9]:='020305060711121314'; Pismeno[10]:='0506070910111213'; Pismeno[11]:='05060708091011'; Pismeno[12]:='04050607080910'; Pismeno[13]:='0203040506070809'; Pismeno[14]:='02030405060708'; Pismeno[15]:='02030405060708'; Pismeno[16]:='030405060708'; Pismeno[17]:='03040506070809'; Pismeno[18]:='040506070809'; Pismeno[19]:='050607080910'; Pismeno[20]:='06070809101112'; End; 25: Begin Pismeno[1]:=''; Pismeno[2]:=''; Pismeno[3]:=''; Pismeno[4]:=''; Pismeno[5]:='0708091011121314'; Pismeno[6]:='0506070809101112131415'; Pismeno[7]:='03040506070809101112131415'; Pismeno[8]:='020304050607081112131415'; Pismeno[9]:='0203040506071011121314'; Pismeno[10]:='01020304050607091011121314'; Pismeno[11]:='0102030405060910111213'; Pismeno[12]:='020304050609101112'; Pismeno[13]:='030405060709101112'; Pismeno[14]:='040506070809101112'; Pismeno[15]:='0506070809101112'; Pismeno[16]:='06070809101112'; Pismeno[17]:='070809101112'; Pismeno[18]:='09101112'; Pismeno[19]:='10111213'; Pismeno[20]:='1213'; End; 26: Begin Pismeno[1]:='18'; Pismeno[2]:='020304051718'; Pismeno[3]:='0203040506161718'; Pismeno[4]:='030405060715161718'; Pismeno[5]:='03040506070809101112131415161718'; Pismeno[6]:='03040506070809101112131415161718'; Pismeno[7]:='03040506070809101112131415161718'; Pismeno[8]:='0304050607081415161718'; Pismeno[9]:='0304050607161718'; Pismeno[10]:='0304050607161718'; Pismeno[11]:='030405061617'; Pismeno[12]:='02030405'; Pismeno[13]:='02030405'; Pismeno[14]:='01020304'; Pismeno[15]:='010203'; Pismeno[16]:='01'; Pismeno[17]:=''; Pismeno[18]:=''; Pismeno[19]:=''; Pismeno[20]:=''; End; End; End; Procedure NapisText(X,Y:integer;Text:string;M:byte); Var i,o,p,a,b,d,f:integer; Begin For i:=1 to Length(Text) Do Begin f:=Ord(Text[i]); d:=0; if f<>32 then PrepniPismeno(f-64) else PrepniPismeno(1); For o:=1 to Velikost Do Begin For p:=1 to Length(Pismeno[o]) div 2 Do Begin Val(Copy(Pismeno[o],p*2-1,2),a,b); if f<>32 then PutPixel(X+a,Y+o,7); if a>d then d:=a; End; End; X:=X+d+M; End; End; Begin End.