DECLARE
VP$_SKOL VARCHAR2(25) := 'GELADA';
VP$_BRAHMA VARCHAR2(25) := 'GELADA';
VP$_ITAIPAVA VARCHAR2(25) := 'QUENTE';
VP$USU VARCHAR2(50) := 'Roberto Fernandes Sobrinho';
VP$QUERO_BEBER NUMBER := 1247;
BEGIN
IF VP$_SKOL = 'GELADA' THEN
FOR I IN 1 .. VP$QUERO_BEBER LOOP
dbms_output.put_line(VP$USU||' BEBEU '||I||' SKOL '||VP$_SKOL||'.');
END LOOP;
ELSIF VP$_BRAHMA = 'GELADA' THEN
FOR I IN 1 .. VP$QUERO_BEBER LOOP
dbms_output.put_line(VP$USU||' BEBEU '||I||' BRAHMA '||VP$_SKOL||'.');
END LOOP;
ELSIF VP$_ITAIPAVA = 'GELADA' THEN
FOR I IN 1 .. VP$QUERO_BEBER LOOP
dbms_output.put_line(VP$USU||' BEBEU '||I||' ITAIPAVA '||VP$_SKOL||'.');
END LOOP;
ELSE
FOR I IN 1 .. VP$QUERO_BEBER/2 LOOP
dbms_output.put_line(VP$USU||' BEBEU '||I||' COCA COLA '||VP$_SKOL||'.');
END LOOP;
END IF;
END;
GOSTEI DO CODIGO
-
- Rank: Analista Júnior
- Mensagens: 88
- Registrado em: Sex, 18 Ago 2006 11:13 am
- Localização: São Paulo - SP
Bertosro
MSN / TALK - roberto.fernandes@gmail.com
MSN / TALK - roberto.fernandes@gmail.com
-
- Rank: Programador Sênior
- Mensagens: 51
- Registrado em: Qua, 12 Mar 2008 2:11 am
- Localização: São Bernardo - SP
Ricardo Moreno
DBA Oracle Pleno
“Só sei que nada sei, e o fato de saber isso, me coloca em vantagem sobre aqueles que acham que sabem alguma coisa.”
(Sócrates 470 a.C – 399 a.C)
DBA Oracle Pleno
“Só sei que nada sei, e o fato de saber isso, me coloca em vantagem sobre aqueles que acham que sabem alguma coisa.”
(Sócrates 470 a.C – 399 a.C)
auhauahuahuahaua
abs
abs
-
- Informação
-
Quem está online
Usuários navegando neste fórum: Nenhum usuário registrado e 11 visitantes