Bazy danych lab 1
Zad 1
BEGIN
DBMS_OUTPUT.ENABLE;
DBMS_OUTPUT.PUT_LINE('HELLO WORLD');
END;
/
Zad 2
SET SERVEROUTPUT ON
DECLARE
a NUMBER(2):=2;
b NUMBER(2):=4;
c NUMBER(2):=3;
d NUMBER;
x1 NUMBER;
x2 NUMBER;
BEGIN
DBMS_OUTPUT.ENABLE;
d:=b*b-4*a*c;
IF d>0 THEN
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+Sqrt(d))/(2*a);
DBMS_OUTPUT.PUT_LINE('pierwszy pierwiastek wynosi: '|| x1);
DBMS_OUTPUT.PUT_LINE('drugi pierwiastek wynosi: '|| x2);
ELSIF d=0 THEN
x1:=(-b)/(2*a);
DBMS_OUTPUT.PUT_LINE('pierwiastek wynosi: '|| x1);
ELSIF d<0 THEN
DBMS_OUTPUT.PUT_LINE('delta mniejsza od 0 rownanie nie ma rozwiazan!!!');
END IF;
END;
Zad 3
DECLARE
p stadion%ROWTYPE;
tmp NUMBER;
BEGIN
SELECT Count(stadion.id_stadion)
INTO tmp
FROM stadion;
DBMS_OUTPUT.ENABLE;
DBMS_OUTPUT.PUT_LINE('ilosc rekordow: '|| tmp);
END;
/
Zad 4
DECLARE
p stadion%ROWTYPE;
tmp NUMBER;
BEGIN
SELECT Count(stadion.id_stadion)
INTO tmp
FROM stadion;
DBMS_OUTPUT.ENABLE;
IF tmp=0 THEN
DBMS_OUTPUT.PUT_LINE('BRAK REKORDOW');
ELSE
DBMS_OUTPUT.PUT_LINE('ilosc rekordow: '|| tmp);
END IF;
END;
/
Zad 5
DECLARE
i NUMBER;
BEGIN
DBMS_OUTPUT.ENABLE;
i:=to_char(sysdate, 'D');
CASE i
WHEN 1 THEN DBMS_OUTPUT.PUT_LINE('poniedzialek nr '|| i);
WHEN 2 THEN DBMS_OUTPUT.PUT_LINE('wtorek nr '||i);
WHEN 3 THEN DBMS_OUTPUT.PUT_LINE('sroda nr '||i);
WHEN 4 THEN DBMS_OUTPUT.PUT_LINE('czwartek nr '||i);
WHEN 5 THEN DBMS_OUTPUT.PUT_LINE('piatek nr '||i);
WHEN 6 THEN DBMS_OUTPUT.PUT_LINE('sobota nr '||i);
WHEN 7 THEN DBMS_OUTPUT.PUT_LINE('niedziela nr '||i);
END CASE;
END;
/
Zad 6
DECLARE
s long;
BEGIN
s:='*';
FOR i IN 1 .. 10
LOOP
DBMS_OUTPUT.PUT_LINE(s);
s:=(s||'*');
END LOOP;
END;
/
Zad 7