Advertisement
Delfigamer

Untitled

Feb 3rd, 2014
350
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.78 KB | None | 0 0
  1. unit sublib
  2. public
  3.   var int factor3
  4.   var int factor2
  5.   var int factor1
  6.   var int factor0
  7.   function forward int getNum ()
  8.   function forward int setNum (int num)
  9.   function forward int cubeFunc (int x)
  10.  
  11. private
  12.   var int privateNum = 0
  13.  
  14.   function int getNum ()
  15.     default privateNum
  16.   end
  17.  
  18.   function int setNum (int num)
  19.     default privateNum
  20.     privateNum = num
  21.   end
  22.  
  23.   function int cubeFunc (int x)
  24.     default
  25.       (x + factor3) +
  26.       (x + factor2) +
  27.       (x + factor1) +
  28.       (x + factor0)
  29. -- {This is where I suddenly remembered that I still haven't implemented multiplication ^^"}
  30. -- {Pascal braces are for PasteBin, Exl recognozes Lua's hyphen-marked comments}
  31.   end
  32.  
  33.   factor3 = 10
  34.   factor2 = 20
  35.   factor1 = 30
  36.   factor0 = 40
  37.  
  38. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement