|
------------------------------------------------------
-- Script para conferir resultados dos jogos da sena.-- Apenas para jogos de 6 dezenas.-- Por Sérgio Queiroz em 23/03/2011.------------------------------------------------------declare
--Criar tabela abaixo e inserir os cartões da forma como consta no insert abaixo--Somente para jogos de 6 dezenas--create table sena (dezenas varchar2(200));--insert into sena values ('10,20,30,40,50,60');
type d1 is table of char(2) index by binary_integer;func d1;indice number := 1;pos number := 0;tam number := 0; caux varchar2(200);v_cont number := 0;/*** INSIRA AQUI OS NÚMEROS SORTEADOS ***/ concurso varchar2(200) := '1268'; sorteio varchar2(12) := '031617445360';/****************************************/
/*concurso varchar2(200) := '1267';sorteio varchar2(12) := '042030414758';*/
r1 char(2);r2 char(2);r3 char(2);r4 char(2);r5 char(2);r6 char(2); procedure carregar_array (dezenas varchar2) as begin func(1) := substr(dezenas,1,2); func(2) := substr(dezenas,4,2); func(3) := substr(dezenas,7,2); func(4) := substr(dezenas,10,2); func(5) := substr(dezenas,13,2); func(6) := substr(dezenas,16,2); end;
procedure verificar_dezenas asdisplay varchar2(200); begin v_cont := 0;
if func(1) in (r1,r2,r3,r4,r5,r6) then v_cont := v_cont + 1; display := '** '; else display := ' '; end if; if func(2) in (r1,r2,r3,r4,r5,r6) then v_cont := v_cont + 1; display := display || '** '; else display := display || ' '; end if; if func(3) in (r1,r2,r3,r4,r5,r6) then v_cont := v_cont + 1; display := display || '** '; else display := display || ' '; end if; if func(4) in (r1,r2,r3,r4,r5,r6) then v_cont := v_cont + 1; display := display || '** '; else display := display || ' '; end if; if func(5) in (r1,r2,r3,r4,r5,r6) then v_cont := v_cont + 1; display := display || '** '; else display := display || ' '; end if; if func(6) in (r1,r2,r3,r4,r5,r6) then v_cont := v_cont + 1; display := display || '** '; else display := display || ' '; end if;
dbms_output.put_line (func(1) || ' ' || func(2) || ' ' || func(3) || ' ' || func(4) || ' ' || func(5) || ' ' || func(6) || ' - Total de dezenas corretas: ' || v_cont); dbms_output.put_line (display); dbms_output.put_line ('------------------------------------------------'); end;begin
r1 := substr(sorteio,1,2); r2 := substr(sorteio,3,2);
r3 := substr(sorteio,5,2); r4 := substr(sorteio,7,2); r5 := substr(sorteio,9,2); r6 := substr(sorteio,11,2);
dbms_output.put_line ('Sorteio: ' || r1 || ' ' || r2 || ' ' || r3 || ' ' || r4 || ' ' || r5 || ' ' || r6 || ' Concurso: ' || concurso); dbms_output.put_line ('================================================'); dbms_output.put_line ('');
for dezenas in (select dezenas from sena) loop carregar_array (dezenas.dezenas); verificar_dezenas; end loop;end; |