Advertisement
miknik97

minecraft gravel

Nov 4th, 2019
1,090
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DECLARE
  2.  v_liczba NUMBER(6,3):=123.456;
  3.  v_tekst VARCHAR(200):='To pierwsze zajecia z PL/SQL';
  4. BEGIN
  5.  DBMS_OUTPUT.PUT_LINE(v_liczba ||' '|| v_tekst);
  6. END;
  7.  
  8. DECLARE
  9.  v_liczbaA NUMBER(6):=:numA;
  10.  v_liczbaB NUMBER(6):=:numB;
  11. BEGIN
  12.  DBMS_OUTPUT.PUT_LINE('Wynik: ' || TO_CHAR(v_liczbaA * v_liczbaA));
  13. END;
  14.  
  15. DECLARE
  16.  v_libA NUMBER(6):=:a;
  17.  v_libB NUMBER(6):=:b;
  18.  c_pi CONSTANT NUMBER(3,2):=3.14;
  19. BEGIN
  20.  DBMS_OUTPUT.PUT_LINE('Pole wynosi: ' || TO_CHAR(v_libA * v_libA * c_pi));
  21. IF v_libA<v_libB
  22. THEN
  23.  DBMS_OUTPUT.PUT_LINE('Obwod wynosi: ' || TO_CHAR(2* v_libA * c_pi));
  24. ELSIF v_libA>v_libB
  25. THEN
  26.  DBMS_OUTPUT.PUT_LINE('Obwod wynosi: ' || TO_CHAR(2 * v_libB * c_pi));
  27. END IF;
  28. END;
  29.  
  30. -----------------------------------------------------------------------------
  31.  
  32. DECLARE
  33.  CURSOR cur_zespoly IS
  34.   SELECT * FROM zesopoly;
  35.  CURSOR cur_pracownicy(p_id_zesp NUMBER) IS
  36.   SELECT imie, nazwisko, placa_pod
  37.   FROM pracownicy
  38.   WHERE id_zesp = p_id_zesp;
  39.  CURSOR cur_pracownicy_2
  40.   RETURN pracownicu%ROWTYPE;
  41. BEGIN
  42.  DBMS_OUTPUT.PUT_LINE(v_liczba ||' '|| v_tekst);
  43. END;
  44.  
  45. DECLARE
  46.  CURSOR cur_pracownicy IS SELECT id_prac, nazwisko FROM pracownicy;
  47.  v_id pracownicy.id_prac%TYPE;
  48.  v_nazwisko pracownicy.nazwisko%TYPE;
  49. BEGIN
  50.  OPEN cur_pracownicy;
  51.  LOOP
  52.   FETCH cur_pracownicy INTO v_id, v_nazwisko;
  53.   EXIT WHEN cur_pracownicy%NOTFOUND;
  54.   DBMS_OUTPUT.PUT_LINE(v_id ||' '|| v_nazwisko);
  55.  END LOOP;
  56.  CLOSE cur_pracownicy;
  57. END;
  58.  
  59. DECLARE
  60.  CURSOR cur_pracownicy IS SELECT * FROM pracownicy;
  61.  v_pracownicy pracownicy%ROWTYPE;
  62. BEGIN
  63.  OPEN cur_pracownicy;
  64.  LOOP
  65.   FETCH cur_pracownicy INTO v_pracownicy;
  66.   EXIT WHEN cur_pracownicy%NOTFOUND;
  67.   DBMS_OUTPUT.PUT_LINE(TO_CHAR(cur_pracownicy%ROWCOUNT) || '. ' || v_pracownicy.nazwisko);
  68.  END LOOP;
  69.  CLOSE cur_pracownicy;
  70. END;
  71.  
  72. --------------------------------------------------------------------------------------------------
  73.  
  74. ZAD. 1
  75.  
  76. DECLARE
  77.  CURSOR cur_pracownicy IS SELECT nazwisko, zatrudniony FROM pracownicy;
  78.  v_nazwisko pracownicy.nazwisko%TYPE;
  79.  v_zatrudniony pracownicy.zatrudniony%TYPE;
  80. BEGIN
  81.  OPEN cur_pracownicy;
  82.  LOOP
  83.   FETCH cur_pracownicy INTO v_nazwisko, v_zatrudniony;
  84.   EXIT WHEN cur_pracownicy%NOTFOUND;
  85.   DBMS_OUTPUT.PUT_LINE('Asystent ' || v_nazwisko || ' pracuje od ' || v_zatrudniony);
  86.  END LOOP;
  87.  CLOSE cur_pracownicy;
  88. END;
  89.  
  90. ZAD 2.
  91.  
  92. DECLARE
  93.  CURSOR cur_pracownicy IS SELECT * FROM pracownicy;
  94.  v_pracownicy pracownicy%ROWTYPE;
  95. BEGIN
  96.  OPEN cur_pracownicy;
  97.  LOOP
  98.   FETCH cur_pracownicy INTO v_pracownicy;
  99.   EXIT WHEN cur_pracownicy%NOTFOUND;
  100.   DBMS_OUTPUT.PUT_LINE(v_pracownicy.nazwisko);
  101.  END LOOP;
  102.  CLOSE cur_pracownicy;
  103. END;
Advertisement
RAW Paste Data Copied
Advertisement