--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;