Facebook

:) safest cryptocurrency exchange

From MC, 3 Years ago, written in Plain Text.
URL https://pastebin.pl/view/d59dbf5c
Embed
Download Paste or View Raw
Hits: 89
  1. Function obwProstokata(a As Integer, b As Integer) As Integer
  2.  
  3.    obwProstokata = (2 * a) + (2 * b)
  4. End Function
  5.  
  6. Function obwTrojkata(a As Integer, b As Integer, c As Integer) As Integer
  7.  
  8.    obwTrojkata = a + b + c
  9. End Function
  10.  
  11. Function obwKola(a As Integer) As Integer
  12.  
  13.    obwKola = 2 * 3.1415 * a
  14. End Function
  15.  
  16. Function obwTrapezu(a As Integer, b As Integer, c As Integer, d As Integer) As Integer
  17.  
  18.    obwTrapezu = a + b + c + d
  19. End Function
  20.  
  21. Function polProstokata(a As Integer, b As Integer) As Integer
  22.  
  23.    polProstokata = a * b
  24. End Function
  25.  
  26. Function polTrojkata(a As Integer, b As Integer) As Integer
  27.  
  28.    polTrojkata = 0.5 * a * b
  29. End Function
  30.  
  31. Function polKola(a As Integer) As Integer
  32.  
  33.    polKola = 3.1415 * Sqr(a) <----to nie działa chyba
  34. End Function
  35.  
  36. Function polTrapezu(a As Integer, b As Integer, c As Integer, d As Integer) As Integer
  37.  
  38.    polTrapezu = ((a + b) + h) / 2
  39. End Function

Reply to ":)"