home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / KALK.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  3KB  |  191 lines
  1.  
  2.  
  3. su,;lstaoerkvscia ,t,dsamo
  4.  
  5. nv,;,aormr,e, cglioe,,ktkjon,, irp: a
  6. , s;p fga snr ,iarsr,autpdksak, r,d:bra 
  7. e e;, ,tc fxc fe,a,tbag:b,g
  8. k a;: nrc zah 
  9. . 0;. [r1 ye5 ag]xre ,rtoyanf  i :
  10. 0 .;[ .gy 1na 5ira]rra taaos  f :
  11.  
  12.  
  13.  
  14.  
  15.  pe;vrriyoutpcdcoe
  16. :v ; alrir,en kgtj,e
  17.  
  18.  
  19. gbine
  20.  
  21. 1  o= td:fo jo 2 r1
  22. e gnb i
  23. i s;c l)= o]:a(j]aa[jaaa[
  24. t h;  e'' n0'i '=fa=] a:jaa][a[ja
  25. ( h;a u)a o'aar1[ak'jao,][=',j:2']
  26. n e;d 
  27.  
  28.  
  29. o rn)i(e6fih= =tin9 (o))rto)o(r2)((13ii==
  30. g enib
  31.  
  32. ( t;a e)aac]aau2[ao[1[sa]3=a,]:a
  33. ( a;h a)uaa'oa[1ra3'k[],o3,'=]'2:
  34. ( l;a i)aad]aaz5[ao[4[ra]6=a,]:a
  35. ( a;h a)uaa'oa[1ra6'k[],o6,'=]'2:
  36. a (;a t)aaa][ar87ak[][=a,9:aa]
  37. ( a;h a)uaa'oa[1ra9'k[],o9,'=]'2:
  38. ( a;o a)naa]ea[1la11e[0[d1]a=2,a:]a
  39. ( a;h a)uaa'oa[1ra1'k[2,o1]'=2,2:]'
  40. t  'h '?ei0'nf'=  =:aa]]aa12aa11[[
  41.  
  42.  
  43. n ed
  44. c e}oet pl yyslnveea  vr{et1 s1
  45. g enib
  46.  
  47. = 3ni  e ithf
  48. e gnb i
  49. l (;i a)d a]zaa2oa[[ra3a=[]a:1,a]
  50. ( h;a u)a o'aar1[ak'1ao,][=',1:2']
  51. n e;d 
  52.  
  53. = 6ni  e ithf
  54. e gnb i
  55. t (;e a)c a]uaa5oa[[sa6a=[]a:4,a]
  56. ( h;a u)a o'aar1[ak'4ao,][=',4:2']
  57. n e;d 
  58.  
  59. = 9ni  e ithf
  60. e gnb i
  61. o (;n a)e a]laa8ea[[da9a=[]a:7,a]
  62. ( h;a u)a o'aar1[ak'7ao,][=',7:2']
  63. t  ;h ''e 0?ni'' f==a ]:aa8]aa[7[a
  64. n e;d 
  65.  
  66. 1 =n2 ie i htf
  67. e gnb i
  68. a (;a t)a a][ar11ak12a=[][:a,1]aa0
  69. ( h;a u)a o'aar1[ak'1ao,0[=']1:2,0]'
  70. n e;d 
  71.  
  72.  
  73. n d;e
  74.  
  75.  
  76.   1otf=doo:  rj21 
  77. g enib
  78.  
  79. e h'n t   1pi67lf4o = tx]':[j=
  80. l p;o 't 1:e21=l1's  e
  81. k a;_ ()l ateaaodaal=a[p:[j,]j]
  82. v a;_ r)s p]ta=jra:[(a]aa[ja
  83.  
  84. =  ;: a]t ajopa[l
  85. [ x;j ()] s],vejyyn[
  86. n d;e
  87. den;
  88.  
  89.  
  90.  
  91.  
  92.  
  93. gbine
  94.  
  95. g r;kto)ceu0axn(btd
  96. l s;c
  97. m i;orc)nak'omáTku FEj O'(kS,1aL14lL,,kE16uR,,lT46a'16ç,,,k'81a
  98. l o;otr)ce(4tx1
  99. g r;kto)ceu1axn(btd
  100. ( 1;yg8)xo,6ot1
  101. ÿ v;pw )or,'çiyCetkStepE (i -'¿c P,eEoBnnhAotyTkeb  r -,
  102. ( y;3gx)0oo8,t
  103. ( e;'wt)+ri'
  104. ( 3;yg0)xo,0ot1
  105. ( e;'wt)-ri'
  106. ( 3;yg0)xo,2ot1
  107. ( e;'wt)*ri'
  108. ( 3;yg0)xo,4ot1
  109. ( e;'wt)/ri'
  110. ( y;4gx)4oo8,t
  111. ( e;'wt)=ri'
  112. ( 4;yg4)xo,0ot1
  113. ( e;'wt)=ri'
  114. ( 4;yg4)xo,2ot1
  115. ( e;'wt)=ri'
  116. ( 4;yg4)xo,4ot1
  117. ( e;'wt)=ri'
  118.  
  119.  
  120. l o;otr)ce(5tx1
  121. g r;kto)ceu0axn(btd
  122. : ];=x181[
  123. ] :;1y=8[
  124. : ];=x223[
  125. ] :;2y=8[
  126. : ];=x364[
  127. ] :;3y=8[
  128.  
  129. : ];=x481[
  130. : ];=y401[
  131. : ];=x523[
  132. : ];=y501[
  133. : ];=x664[
  134. : ];=y601[
  135.  
  136.  
  137. : ];=x781[
  138. : ];=y721[
  139. : ];=x823[
  140. : ];=y821[
  141. : ];=x964[
  142. : ];=y921[
  143.  
  144. ] :;0x=81[1
  145. ] :;0y=41[1
  146. ] :;1x=21[3
  147. ] :;1y=41[1
  148. ] :;2x=61[4
  149. ] :;2y=41[1
  150.  
  151.   1otf=doo:  ri21 
  152. g enib
  153.  
  154. e h'n t   1pi67lf4o = tx]':[i=
  155. l p;o 't 1:e21=l1's  e
  156. ] i;: [t= aopaal
  157. [ x;i ()] s],veiyyn[
  158.  
  159. n d;e
  160.  
  161. = :;1i
  162. t :;dk=0o
  163. 7 2})w=  htCdidSoloE ek  ({7nt1o
  164. g enib
  165.  
  166. = :;a t]a oiapl[
  167. [ x;i ()] i],smiyej[
  168. ] i;: [t= aopaal
  169.  
  170. 0  ;0 t13 h-=ieitfn=d  :oki
  171. 1  ;0 t13 h+=ieitfn=d  :oki
  172.   t;9 h1= e+tinidf =o i:k
  173. 9  ;0 t13 h-=ieitfn=d  :oki
  174.  
  175. t  ;h 11e <=nii: f i
  176. t  ;h 22e 11ni>= fi:i 
  177.  
  178.   t;3 hi1 et=inctf od vpoky
  179.  
  180.  
  181. e c}ne  onp7kdr2 ;o={  tkd34o
  182.  
  183.  
  184. g r;kto)ceu1axn(btd
  185. l s;c
  186.  
  187.  
  188.  
  189.  
  190. den.
  191.