Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2017
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.52 KB | None | 0 0
  1. CREATE OR REPLACE PROCEDURE czytrojkat(a IN NUMBER, b IN NUMBER, c IN NUMBER)
  2. IS
  3. p NUMBER;
  4. pole NUMBER;
  5.  
  6. BEGIN
  7.  
  8. IF (a+b<=c) THEN
  9. DBMS_OUTPUT.PUT_LINE('NIE MOZNA UTWORZYC TROJKATA');
  10.  
  11. ELSIF (a+c<=b) THEN
  12. DBMS_OUTPUT.PUT_LINE('NIE MOZNA UTWORZYC TROJKATA');
  13.  
  14.  
  15.  
  16. ELSIF (b+c<=a) THEN
  17. DBMS_OUTPUT.PUT_LINE('NIE MOZNA UTWORZYC TROJKATA');
  18.  
  19.  
  20. ELSIF
  21. p:=(1/2)*(a+b+c);
  22. pole:=SQRT(p*(p-a)*(p-b)*(p-c));
  23.  
  24. DBMS_OUTPUT.PUT_LINE('TWORZYMY TROJKAT O POLU : '||pole);
  25.  
  26. END IF;
  27. END;
  28.  
  29. BEGIN
  30. czytrojkat(3,4,5);
  31. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement