Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CREATE OR REPLACE PROCEDURE czytrojkat(a IN NUMBER, b IN NUMBER, c IN NUMBER)
- IS
- p NUMBER;
- pole NUMBER;
- BEGIN
- IF (a+b<=c) THEN
- DBMS_OUTPUT.PUT_LINE('NIE MOZNA UTWORZYC TROJKATA');
- ELSIF (a+c<=b) THEN
- DBMS_OUTPUT.PUT_LINE('NIE MOZNA UTWORZYC TROJKATA');
- ELSIF (b+c<=a) THEN
- DBMS_OUTPUT.PUT_LINE('NIE MOZNA UTWORZYC TROJKATA');
- ELSIF
- p:=(1/2)*(a+b+c);
- pole:=SQRT(p*(p-a)*(p-b)*(p-c));
- DBMS_OUTPUT.PUT_LINE('TWORZYMY TROJKAT O POLU : '||pole);
- END IF;
- END;
- BEGIN
- czytrojkat(3,4,5);
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement