Practica 1 PL SQL

Practica 1 PL/SQL Exercicis:  1. Programar un script que ens pregunti pel nom, cognom i edat d’una persona. Posteriorment Posteriorment s’ha d’imprimir les dades corresponents a la persona. No s’ha de d’olidar de nete!ar les "ariales quan s’acai el loc PL/SQL, #ent $s de la comanda %N&E'(NE ). &esar l’script com a E*111+exercici1.sql.

Nomre: PEPE *pellidos: -me arca Edad: 0

*22EP3 "ar+nomre P456P3 ’(ntroduce nom:’ *22EP3 "ar+apel1 P456P3 ’(ntroduce primer cognom:’ *22EP3 "ar+apel0 P456P3 ’(ntroduce segon cognom:’ *22EP3 "ar+edat P456P3 ’(ntroduce edat:’ declare nomre 7*428*4091) apellidos 7*428*409;) edat N%6 ?@"ar+nomre? apellidos:> ?@"ar+apel1? ?@"ar+apel1? AA? ?AA ?@"ar+apel0? ?@"ar+apel0? edat:> @"ar+edad dms+output.put+line9?Nom dms+output.put+line9 ?Nom : ?AA nomre) nomre) dms+output.put+line9?2ognoms: dms+output.put+line9 ?2ognoms: ?AA apellidos) apellidos) dms+output.put+line9?Edat dms+output.put+line9 ?Edat : ? AA edat) edat) EN& 0. 2alcular el 1BC d’un preu que introdueix per teclat. 6ostrar el resultat am una "ariale de 85S3 o no PL/SQL. Printar el resultat 4E&5N&ED*3 4E&5N&ED*3 #ent $s d’aquesta "ariale no PL/SQL i no declarar cap "ariale de programa. Esorrar les "ariales no PL/SQL. &esar l’script com a E*111+exercici0.sql. E*111+exercici0.sql. *22EP3 "precio P456P3 ?(ntroducir el precio:? 7*4(*@"precio.1B EN&

 =. 2alcular el 1BC d’un preu que introdueix per teclat. (mprimir el resultat 4E&5N&ED*3 dins del programa. &esar l’script com a E*111+exercici=.sql. *22EP3 "ar+precio P456P3 ?(ntroducir el precio:? declare  precio numer9;,0) round9@"ar+precio.1B) dms+output.put+line9?El resultado es: ?AA precio) EN& F. Preguntar a l’usuari el salari i la comissi- que guanGa. ( si salari: a) Hs menor que 1 I la comissi- serJ el salari aplicant un 1C ) estJ entre 1 i ; I la comissi- serJ el salari aplicant un 1;C.  c) Hs ma!or que 1 I la comissi- serJ el salari aplicant un 0C. *l Knal imprimir el salari i la no"a comissi-. &esar l’script com a E*111+exerciciF.sql. *22EP3 salar P456P3 ?(ntroducir el precio:? *22EP3 comi P456P3 ?introduce la comission? declare  sal numer9;)  com numer9;) @salar i# sal M 1 then com:> sal.1 elsi# sal > 1 and sal M> ; then com:> sal.1; elsi# sal1 then com:> sal.0 else com:>@comi EN& i# dms+output.put+line9?El resultado es: ?AAcom)   end

;. Preguntar a l’usuari la se"a edat i donar el missatge corresponent, si:

a) 6enor de 1B I ets menor de edatO ) > 1B I casi ets ma!or de edatO c) 1B I!a ets ma!or de edatO d) F I !a ets mHs ma!or  e) Si Hs negatiu > error edat no pot ser negati"a.  &esar l’script com a E*111+exercici;.sql. *22EP3 edat P456P3 ?(ntroducir edat:? declare edad numer90) @edat i# edad M 1B then dms+output.put+line9?eres menor?) elsi# edad>1B then dms+output.put+line9?casi ets ma!or de edatO ?) elsi# edad1B and edadM>= then dms+output.put+line9?!a ets ma!or de edatO ?) elsi# edadF then dms+output.put+line9?!a ets mes ma!orO ?) else edadM> then dms+output.put+line9?E4454 OO?) EN& i# end

R. Programar un script que demani un n$mero i el programa ha de realitar les segents operacions am aquest n$mero. Les operacions han de ser independents i s-n:

 a) sumarli F. ) 4estarli =. c) 6ultiplicarli B.  S’ha de tenir en compte que per a programar aquest exercici:  utilitar una constant i assignarli el n$mero introduTt per teclat.  #er $s d’una "ariale per a cada operaci-  imprimir per pantalla els resultats corresponents a cada operaci-, posant el literal al da"ant de Suma, 4esta i 6ultiplicacirespecti"ament. &esar l’script com a E*111+exerciciR.sql.

*22EP3 numero P456P3 ?(ntroducir numero:? declare num numer90) num1 numer90) num0 numer90) num= numer90) @numero num1:>numUF dms+output.put+line9?Suma > ? AA num1)   num0:>num= dms+output.put+line9?4esta > ? AA num0)   num=:>numB dms+output.put+line9?6ultiplicacio > ? AA num=) end

 V. Programar un script en PL/SQL que demani a l’usuari el "alor de dos n$meros. *quest dos n$meros se li assigna dos "ariales PL/SQL 9en el moment de la declaraci-). Els dos n$meros han de ser positius, en cas

contrari s’ha de donar a l’usuari el missatge corresponent. S’ha de realitar una operaci- am aquest n$meros: di"idir entre ells i sumarli el segon.  El resultat s’ha d’assignar a una "ariale N5 PL/SQL i desprHs imprimirla 9#ora del loc PL/SQL) per a compro"ar que la operaci- ha estat correcta. &esar l’script com a E*111+exerciciV.sql. *22EP3 numero1 P456P3 ?&ime un numero 1 positi"o :? *22EP3 numero0 P456P3 ?&ime un numero 0 positi"o :? 7ariale num0 numer declare num numer90) num1 numer90) i numer90) @numero1   num1:>@numero0   i:>0 While i>0 Loop i# numM then dms+output.put+line9?El numero 1 no es positiu ?) end i# i# num1M then dms+output.put+line9?El numero 0 no es positiu?) end i# :num0:>9num/num1)Unum1   i:>= end Loop end print num0

B. 6ateix exercici que el V, perX ara tamH s’ha de controlar que el n$mero primer sigui mHs gran que el segon. En cas contrari ha de donar el segent

missatge: ErrorO el primer n$mero ha de ser mHs gran que el segon. &esar l’script com a E*111+exerciciB.sql.

*22EP3 numero1 P456P3 ?&ime un numero 1 positi"o :? *22EP3 numero0 P456P3 ?&ime un numero 0 positi"o :? 7ariale num0 numer declare num numer90) num1 numer90) i numer90) @numero1   num1:>@numero0   i:>0 While i>0 Loop i# numM or numMnum1 then dms+output.put+line9?E4454OO El numero 1 no es positiu i es mes petit que numero 0?) end i# i# num1M then dms+output.put+line9?El numero 0 no es positiu?) end i# i# num and numnum1 then   :num0:>9num/num1)Unum1 end i# i:>= end Loop end

. Programar un script que ens mostri els n$meros entre un rang. El rang mnim Hs 1 i el mJxim se li ha de preguntar a l’usuari.

a) Programar l’script utilitant l’estructura '54. &esar l’script com a E*111+exercicia.sql. *22EP3 rangoKnal P456P3 ?&ime el rango maximo :? declare rangKn numer90) rangini numer90) i numer90) @rangoKnal   rangini:>1   i:>1 '54 i (N rangini..rangKn L55P &<6S+5%3P%3.P%3+L(NE 9?El "alor de i es ?AAi) EN& L55P end ) Programar l’script utilitant l’estructura Y8(LE. &esar l’script com a E*111+exercici.sql. *22EP3 rangoKnal P456P3 ?&ime el rango maximo :? declare rangKn numer90) rangini numer90) i numer90) @rangoKnal   rangini:>1   i:>1 While iM>rangKn L55P &<6S+5%3P%3.P%3+L(NE 9?El "alor de i es ?AAi)   i:>iU1 EN& L55P end

1. Programar un script que ens mostri els n$meros entre un rang am un salt. 3ant el rang mnim, com el mJxim i el salt se li ha de preguntar a

l’usuari. * mHs, s’ha de tenir en compte que el rang mnim sempre ha de ser mHs petit que el rang mJxim i que el salt no ha de ser negatiu. En cas contrari s’ha de donar el missatge corresponent i acaar el programa. &esar l’script com a E*111+exercici1.sql. *22EP3 salt P456P3 ?&ime el salto de numeros :? *22EP3 ranginicial P456P3 ?&ime el rango inicial :? *22EP3 rangKnal P456P3 ?&ime el rango Knal :? declare rangKn numer90) rangini numer90) i numer90) sal numer9F) num numer9F)

@rangKnal   rangini:>@ranginicial   sal:>@salt   i:>rangini   num:>1 i# salM then dms+output.put+line9?E4454OO El salt es negatiu?) end i# i# rangKnMrangini then dms+output.put+line9?E4454OO rang inicial es mes gran que rang Knal?) end i# While iM>rangKn Loop &<6S+5%3P%3.P%3+L(NE 9?El "alor de i es ?AAnumAA ? i del numero es ?AAi)   num:>numU1   i:>iUsal

EN& L55P end