Firma zistila, že v prvom týždni mala príjem z lístkov 1950,-. V druhom týždni dosiahla príjem z lístkov 1350,-. Cena lístkov bola v oboch týždňoch 0,05/km a priemer precestovaných km cestujúcimi bol 30 km. Vytvoríme program, ktorý vypočíta o koľko percent kleslo množstvo prepravených.
create table vyjadrenia
(id_tyzden int,
cena float,
percento float,
primary key (id_tyzden));
DECLARE
x NUMBER:=1;
f NUMBER;
prijem NUMBER:=1950;
percento NUMBER;
BEGIN
LOOP
f:=(prijem/(30*0,05));
percento:=((1350/(30*0,05))/f)*100);
INSERT INTO vyjadrenia VALUES(x,cena,f);
END LOOP;
END;
select * from vyjadrenia;
delete vyjadrenia;