Practica 2 PL SQL

Practica 2 PL SQL Objectius de l’activitat: L'alumnat ha de ser capaç programar scripts bàsics ent !s de subprogrames: procediments procediments i uncions"  #$ercicis: %" Programar un script &ue ens mostri els n!meros entre un rang" #l rang mnim (s % i el mà$im se l’ha de preguntar a l’usuari" Programar l’script utilit)ant l’estructura *O+ o l’estructura ,-.L#" /&uest e$ercici e$ercici s’ha de programar amb un procediment0 de tal manera &ue mostri els n!meros entre un rang en a&uest procediment" /juda: 1 S’ha de programar dins de l’script un procediment &ue donat el rang mnim nim a % i el mà$im à$im &ue &ue se li pas passa com com a parà paràm metre tre al procedim procediment0 ent0 imprimei$i imprimei$i per pantalla pantalla els n!meros n!meros &ue hi ha entre entre el rang mnim i el mà$im" mà$im" #l procedime procediment nt rebrà el nom de +/3" 4+#/5# 4+#/5# O+ +#PL/4# P+O4#67+# rang 8rang9n number  .S rangini number8;:<%=  >#3. or i in rangini""rang9n loop 6>?S@O75P75 6>?S@O75P7 5"P75@L.#8'#l "P75@L.# 8'#l numero es 'AAi= end loop= #6 =  1 / m(s0 al matei$ script 8#/%2%@e$ercici%"s&l 8#/%2%@e$ercici%"s&l s’ha de programar un bloc principal0 &ue ha de contenir els segBents aspectes" /l matei$ script s’ha de realit)ar una crida a: o preguntar a l’usuari pel rang mà$im" o comprovar &ue el rang mà$im no (s negatiu" Si (s negatiu donar el missatge corresponent i acabar el programa" o cridar al procediment +/30 +/30 passant com a paràmetre el rang mà$im introduCt per teclat"

4+#/5# O+ +#PL/4# P+O4#67+# rang 8rang9n number .S rangini number8;:<%= >#3. i rang9nD% then dbms@output"put@line8'#++O+EE rang 9nal es negatiu '= end i= or i in rangini""rang9n loop 6>?S@O75P75"P75@L.#8'#l numero es 'AAi= end loop= #6 = FF e$ecute rang8Grang9n= begin i GGreg DH then dbms@output"put@line8'#++O+EE rang 9nal es negatiu '=   else   rang8Greg= end i= end 2" Programar un script 8#/%2%@e$ercici2"s&l &ue contingui una unciI &ue dupli&ui la &uantitat rebuda com a paràmetre" La unciI rebrà el nom de 67PL.4/+@Q7/5.5/5" /l matei$ script s’ha de programa un bloc principal &ue demani per teclat la &uantitat i &ue cridi a la unciI &ue s’acaba de programar0 passant el paràmetre corresponent" create or replace unction duplicarvalor8num number return number as n% number= begin   n%:
 ;" Programar un script 8#/%2%@e$ercici;"s&l &ue contengui una unciI &ue calculi el actorial d’un n!mero &ue es passa com a paràmetre" La unciI rebrà el nom de */45O+./L" /l matei$ script s’ha de programar un bloc principal &ue pregunti a l’usuari pel n!mero a calcular i cridi a la unciI */45O+./L0 passant el paràmetre corresponent" create or replace *745.O actorial8num number +#57+ number is n% number= >#3. .* num#3.   num:
K" Programar un script anomenat #/%2%@e$erciciK"s&l &ue contingui un procediment0 una unciI i un bloc principal"

 a #l procediment &ue rebrà el nom de .?P+.?.+0 ha de mostrar els n!meros entre un rang amb un salt" #l rang mnim0 el rang mà$im i el salt s’han de passar com a paràmetre al procediment" Les dades s’han d’imprimir tal i com es mostra a la 9gura:

4+#/5# O+ +#PL/4# P+O4#67+# rango 8rangini number0rang9n number0salt number .S i number= num number= >#3.   i:?S@O75P75"P75@L.# 8'#l valor de i es 'AAnumAA ' i del numero es 'AAi=   num:
b / la unciI &ue rebrà el nom de 4O?P+ON/+@#3/5.70 s’ha de programar per a controlar: Que el rang mnim no sigui m(s gran &ue el rang mà$im" 1 Que el rang mnim0 el rang mà$im i el salt no sigui negatiu" create or replace *745.O 4O?P+ON/+@#3/5.7 8salt number0rangini number0rang9n number return number .S >egin i saltDH then dbms@output"put@line8'#++O+EE #l salt es negatiu'= return H= end i= i ranginiDH then dbms@output"put@line8'#++O+EE #l ranginicial es negatiu'= return H= end i= i rang9nDH then dbms@output"put@line8'#++O+EE #l rang9nal es negatiu'= return H= end i= i rang9nDrangini then dbms@output"put@line8'#++O+EE rang inicial es mes gran &ue rang 9nal'= return H= end i= return %= #6 4O?P+ON/+@#3/5.7=

c #l bloc annim ha de preguntar a l’usuari les dades necessàries i ha de cridar a la unciI per comprovar les dades i despr(s si tot (s correcta0 crida al procediment per imprimir les dades"

/ccept salt prompt '6igam el salt:' /ccept rangini prompt '6igam el rang inicial:' /ccept rang9n prompt '6igam el rang 9nal:'   declare rang9n number8K:
>egin

    end=

i 4O?P+ON/+@#3/5.78salt0rangini0rang9n <% then rango8salt0rangini0rang9n= end i =