Pasted

--Aufgabe no1
 
DECLARE 
anzahl NUMBER := 17;
BEGIN 
dbms_output.put_line(anzahl);
END;
 
--Aufgabe no2
 
DECLARE
anz_1 NUMBER(38,2) := 1234.145;
anz_2 NUMBER(38) := 1234567812345;
BEGIN
dbms_output.put_line(anz_1 || ' / ' || anz_2);
END;
 
--Aufgabe no3
 
DECLARE 
text varchar2(255) := 'Wir lernen PL/SQL';
BEGIN
 
FOR i IN 1..3 loop
dbms_output.put_line(text);
END loop;
 
END;
 
--Aufgabe no4
 
DECLARE
var_val kunden.k_id%TYPE;
BEGIN
var_val := 1337;
 
dbms_output.put_line(var_val);
END;
 
--Aufgabe no5
 
DECLARE
 
cursor c1 IS SELECT COUNT(*) FROM KUNDEN;
zahl NUMBER := 0;
BEGIN
 
OPEN c1;
loop
    IF c1%NOTFOUND THEN
        exit;
    END IF;
    
    fetch c1 INTO zahl;
    dbms_output.Put_line(zahl);
END loop;
CLOSE c1;
 
END;
 
--Aufgabe no6
 
DECLARE
 
    b NUMBER := 7;
    l NUMBER := 12;
    erg NUMBER := 0;
    
BEGIN
    erg := (b * l) / 2;
    dbms_output.put_line(erg);
END;
 
--aufgabe no7
 
DECLARE 
 
datum DATE := sysdate;
 
BEGIN 
dbms_output.put_line(datum);
END;
 
--aufgabe no8
 
DECLARE 
 
std varchar2(255) := to_char(sysdate, 'hh24'); 
mi varchar2(255) := to_char(sysdate, 'mi'); 
ss varchar2(255) := to_char(sysdate, 'ss'); 
 
BEGIN
 
dbms_output.Put_line(std || ':' || mi || ':' || ss);
 
END;
 
--Aufgabe no9
 
DECLARE 
pi CONSTANT NUMBER := 3.41;
r NUMBER := &ZAHL;
a_erg NUMBER := 0;
u_erg NUMBER := 0;
 
BEGIN
    --A = PI * R² // U = 2 * PI * R
    a_erg := pi * (r * r);
    u_erg := 2 * pi * r;
    
    dbms_output.put_line('Fläche: ' || a_erg || ', Umfang: ' || u_erg);
    
END;
 
-- Aufgabe no10
 
DECLARE 
 
var_1 NUMBER := 10;
 
BEGIN 
 
IF var_1 = 10 THEN 
    dbms_output.put_line('Jup');
ELSE
    dbms_output.put_line('Nope');
END IF;
 
END;
 
--aufgabe no11
 
DECLARE
 
einstellungsdatum DATE := sysdate - 2500;
cursor c1 IS SELECT * FROM employee;
 
c2 c1%rowtype;
 
BEGIN
OPEN c1;
 
loop
    fetch c1 INTO c2;
        exit WHEN c1%NOTFOUND;
        
        IF c2.e_bday BETWEEN c2.e_bday AND ADD_MONTHS(c2.e_bday, 3) THEN 
            dbms_output.put_line(c2.e_name || ', Months: ' || ROUND(MONTHS_BETWEEN(sysdate, c2.e_bday)));
        ELSIF  c2.e_bday BETWEEN c2.e_bday AND ADD_MONTHS(c2.e_bday, 120) THEN 
            dbms_output.put_line(c2.e_name || ', Months: ' || ROUND(MONTHS_BETWEEN(sysdate, c2.e_bday)));
        ELSIF  c2.e_bday BETWEEN c2.e_bday AND ADD_MONTHS(c2.e_bday, 120) THEN 
            dbms_output.put_line(c2.e_name || ', Months: ' || ROUND(MONTHS_BETWEEN(sysdate, c2.e_bday)));
        ELSE
            dbms_output.put_line(c2.e_name || ', ' || 'SONSTIGE');
        END IF;
END loop;
 
CLOSE c1;
END;