I liked the code

[bertosro]

Select all

 
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;       

Berasto: -O

[ricardocmoreno]

auhauahuahuahaua

: D

ABS