Advertisement
Guest User

Untitled

a guest
Jun 14th, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.26 KB | None | 0 0
  1. silnia(0,1):-!.
  2. silnia(1,1):-!.
  3. silnia(X,W) :-
  4.         X1 is X-1,
  5.  
  6.  
  7.     silnia(X1,W1),
  8.      W is W1*X.
  9.  
  10.  
  11.  
  12.  
  13.  
  14. symbol_newtona(L1,L2,LW) :- L1>=L2,
  15.  
  16.     silnia(L1,LW1), silnia(L2,LW2),
  17.     L3 is L1-L2,
  18.     silnia(L3,LW3),
  19.  
  20.     LW is  LW1/(LW2*LW3).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement