About Taringa!

Popular channels

pl/sql fibonaci-numeros primos

calcule un numero primo


DECLARE
Num number(3);
CantDivisores number(3):=0;
BEGIN
Num:=&Num;
for Contador IN 1..Num LOOP
if Num mod Contador=0 THEN
CantDivisores:=CantDivisores+1;
END IF;
END LOOP;
If CantDivisores=2 THEN
DBMS_OUTPUT.PUT_LINE ('Es Primo'||' '||Num);
Else
DBMS_OUTPUT.PUT_LINE ('NO Es Primo'||' '||Num);
END IF;
END;
/



************************
constrain que dice el estado de nivel del estudiante siendo excelente la mayort
bueno la del medio y regular la mala
************************
set serverout on;
declare
notaDF number(3);


begin
notaDF:=¬aDF;


case notaDF
when 3 then DBMS_OUTPUT.PUT_LINE('regular');
when 4 then DBMS_OUTPUT.PUT_LINE('bueno');
when 5 then DBMS_OUTPUT.PUT_LINE('excelente');
else
DBMS_OUTPUT.PUT_LINE('perdio');
end case;
end;
/
*******************************************************************
este constrain es para mostrar el ejemplo fibonaci de la suma de los numero consecutivos como el ejemplo que veremos mas adelante este
funciona con un siclo while que nos permite hacer la sentencia exacta
en estos constrains solo se veran los repasos de while y loop
oralce sql sercver v7.0 7.1
*******************************************************************
bueno!!!!!
set serverout on;

declare
fibo1 number(3):=0;
fibo2 number(3):=1;
i number(3):=0;
numero number(3):=0;

begin
numero:=№

DBMS_OUTPUT.PUT_LINE('la serie es'||fibo1);
while iDBMS_OUTPUT.PUT_LINE('la serie es'||fibo2);
fibo2:=fibo1+fibo2;
fibo1:=fibo2-fibo1;

i:=i+1;

end loop;


end;
/

bueno!!!!!

declare
fibo1 number(3):=0;
fibo2 number(3):=1;
i number(3):=0;
numero number(3):=0;

begin
numero:=№


DBMS_OUTPUT.PUT_LINE('la serie es '||fibo1);

while i<=numero loop
if(numero=0)then

DBMS_OUTPUT.PUT_LINE(' ');
exit;
end if;

DBMS_OUTPUT.PUT_LINE('la serie es '||fibo2);

fibo2:=fibo1+fibo2;
fibo1:=fibo2-fibo1;

if (fibo2>numero) then
exit;
end if;

i:=i+1;


end loop;


end;
/

0 1 1 2 3 5 8 13

if(numero=1)then


exit;
end if;

*************************************************
FIBONACI CON LOOP PL/SQL
cuando el usuario ingrese por teclado un numero en este constrain solo calcula la suma desde 1
ya que 0 esta dentro de la sentencia if que permite salir como principio 0 1 si el usuario ingresa 0 por teclado
este en sql server mostrar el valor de 0 si ingresa 1 mostrara el valor de 0 1 1, si ingresa 2 mostrara 0 1 1 2 y
consecutivamente como podemos ver.
**************************************************
declare
fibo1 number(3):=0;
fibo2 number(3):=1;
i number(3):=0;
numero number(3):=0;

begin
numero:=№


DBMS_OUTPUT.PUT_LINE('la serie es '||fibo1);


loop
if(numero=0)then

DBMS_OUTPUT.PUT_LINE(' ');
exit;
end if;

DBMS_OUTPUT.PUT_LINE('la serie es '||fibo2);

fibo2:=fibo1+fibo2;
fibo1:=fibo2-fibo1;

if (fibo2>numero) then
exit;
end if;

i:=i+1;

if(i>numero)then
exit;
end if;
end loop;


end;
/


sigeme en scribd http://es.scribd.com/atronner
0No comments yet