Kierunek: Informatyka III 
Przedmiot: Bazy danych 

Opole 2013 

 

 

POLITECHNIKA OPOLSKA 

Ćwiczenie 7 

 

 

 

 

 

 

 

 

 

 

 

Wykonał: 

Adam Czech 

Kierunek: Informatyka III 
Przedmiot: Bazy danych 
 

1 

 

1.  Zadania do wykonania 



 

Korzystając z pętli FOR wypisać liczby pierwsze z zakresu od 0 do a, gdzie a-liczba 
naturalna podana z klawiatury. 



 

Zdefiniować własny wyjątek za_malo_pracownikow. Obliczyć ilość pracowników 
w każdym zespole. Jeśli w którymś zespole jest mniej niż trzech  pracowników  
zasygnalizować wystąpienie wyjątku. Użytkownik może wywoływać ręcznie 
zarówno błędy systemowe, jak i zdefiniowane przez siebie. Każdy wywołany błąd 
powinien zostać obsłużony przez odpowiednią procedurę  obsługi wyjątku. 

2.  Zadania wykonane 



 

Korzystając z pętli FOR wypisać liczby pierwsze z zakresu od 0 do a, gdzie a-liczba 
naturalna podana z klawiatury. 

 

 

 

 

 

 

 

 

 

 

Kierunek: Informatyka III 
Przedmiot: Bazy danych 
 

2 

 

DECLARE 

a INTEGER; 

reszta NUMBER; 

dzieli_sie VARCHAR2(1); 

BEGIN 

DBMS_OUTPUT.PUT_LINE('Podaj libczê wiêksz¹ od 2:'); 

a:=&liczba;       -- wczytanie liczby z klawiatury 

IF a < 3 THEN     -- dopilnowane, aby byla wieksza, niz 2 ( inaczej algorytm nie ma sensu ) 

 DBMS_OUTPUT.PUT_LINE('Podana liczba musi by&#230; wi&#234;ksza ni&#191; 2!'); 

 RETURN; 

END IF; 

FOR i IN 2..a LOOP   -- petla pierwsza, ktora generuje zakres liczb od 2 do podanej z klawiatury 

 dzieli_sie:='n';    -- liczby z tego zakresu beda kolejno sprawdzane w drugiej, zagniezdzonej petli 

 FOR j IN 2..i LOOP  -- pod katem podzielnosci przez wszystkie liczby miedzy 2 i soba, ktorych to 

liczb 

  IF j!=i THEN       -- dostarcza iterator j 

   reszta:=i MOD j;  -- podzielnosc sprawdzana poprzez wynik reszty z dzielenia 

   IF reszta=0 THEN  -- decyzja o wypisaniu liczby podejmowana na podstawie zawartosci zmiennej 

znakowej 

    dzieli_sie:='t'; -- traktowanej jako zmienna logiczna. 

   END IF; 

  END IF; 

 END LOOP;  

 IF dzieli_sie='n' THEN 

  DBMS_OUTPUT.PUT_LINE(i); 

 END IF; 

END LOOP; 

END; 

/ 

 

 

 

 

Kierunek: Informatyka III 
Przedmiot: Bazy danych 
 

3 

 



 

Zdefiniować własny wyjątek za_malo_pracownikow. Obliczyć ilość pracowników 
w każdym zespole. Jeśli w którymś zespole jest mniej niż trzech  pracowników  
zasygnalizować wystąpienie wyjątku. Użytkownik może wywoływać ręcznie 
zarówno błędy systemowe, jak i zdefiniowane przez siebie. Każdy wywołany błąd 
powinien zostać obsłużony przez odpowiednią procedurę  obsługi wyjątku. 

DECLARE  

V_A NUMBER:=0; 

ZA_MALO_PRACOWNIKOW EXCEPTION; 

V_LICZBA NUMBER := &LICZBA; 

BEGIN 

 

SELECT COUNT(*) INTO V_A  FROM PRAC  WHERE ID_ZESP = V_LICZBA; 

IF(V_A<3) THEN 

RAISE ZA_MALO_PRACOWNIKOW; 

ELSE 

DBMS_OUTPUT.PUT_LINE('ILOSC PRACOWNIKOW ' || V_A); 

DBMS_OUTPUT.PUT_LINE('W ZESPOLE ' || V_LICZBA); 

END IF; 

 

EXCEPTION 

 WHEN ZA_MALO_PRACOWNIKOW THEN 

  DBMS_OUTPUT.PUT_LINE('W ZESPOLE '||V_A||' jest za malo pracownikow, bo jedynie 

'||V_A); 

END; 

/