Oracle DB10_조건문/반복문 연습문제

• SQL 시작시 : SET SERVEROUTPUT ON;

• 연습문제

-- 1.

-- 구구단(2단 ~ 9단)을 출력

-- 2.

-- 구구단(2단 ~ 9단)을 출력.

-- 2단은 2x2까지, 3단은 3x3까지, 4단은 4x4까지, ...

-- dbms_random.value(x, y) 함수는 x보다 크거나 같고, y보다 작은 난수(임의의 숫자)를 리턴합니다.

select dbms_random.value(0, 1) from dual;

-- 3. 무작위로 던진 동전에서 앞면과 뒷면이 나올 확률이 1/2임을 증명하세요.

-- (1) dbms_random.value(x, y) 함수를 사용해서 0 또는 1을 무작위로 출력하는 PL/SQL을 작성하세요.

-- (2) (1)에서 작성한 코드를 수정해서,

-- 난수가 0이면 '동전 앞면(head)', 1이면 '동전 뒷면(tail)'이라고 출력하는 PL/SQL을 작성하세요.

-- (3) 0 또는 1을 랜덤하게 만드는 과정((1) 코드)을 1000번 반복해서, 0과 1의 발생 횟수를 저장하고,

-- 0이 나온 횟수 / 전체 횟수, 1이 나온 횟수 / 전체 횟수 를 계산

-- 4. 몬테카를로 알고리즘을 이용한 pi의 근사값(3.141592...) 계산

-- (1) dbms_random.value() 함수를 사용해서, 2차원 좌표평면(x-y) 위의 점의 좌표 (x, y)를 무작위로 만듦.

-- 단, 0 <= x < 1, 0 <= y < 1

-- (2) x ** 2 + y ** 2 < 1을 만족하면 v_hit 변수의 값을 1 증가

-- (3) (1), (2)의 과정을 1000번 반복

-- (3) (v_hit / 1000) * 4를 계산한 값을 출력

-- (4) 4-4 실험을 1000번 반복하고 평균을 구하자

• 정답

--EX
--1
SET SERVEROUTPUT ON;
begin
    for j in 2..9 loop    
        for i in 1..9 loop
            DBMS_OUTPUT.PUT_LINE (j||' x '|| i || ' = ' || j*i);
        end loop;
        DBMS_OUTPUT.PUT_LINE ('--------------------------');
    end loop;
end;
/
 
declare
    v_x number := 1;
    v_y number := 2;
begin
    loop
        v_x := 1;
        loop
            DBMS_OUTPUT.PUT_LINE (v_y || ' x '|| v_x || ' = ' || (v_y*v_x));
            exit when v_x=9;
             v_x := v_x+1;
        end loop;
        v_y := v_y+1;
        DBMS_OUTPUT.PUT_LINE ('--------------------------------------------------');
        exit when v_y=10;
    end loop;
end;
/
 
declare
    v_x number := 1;
    v_y number := 2;
begin
    while v_y <= 9 loop
            v_x := 1;
            DBMS_OUTPUT.PUT_LINE (v_y || ' 단 ');
            while v_x<=9 loop
                DBMS_OUTPUT.PUT_LINE (v_y || ' x '|| v_x || ' = ' || (v_y*v_x));
                v_x := v_x+1;
                
            end loop;
                DBMS_OUTPUT.PUT_LINE ('--------------------------------------------------');
            v_y := v_y+1;
       
    end loop;
    
end;
/
 
DECLARE
    i number    := 2;
    j number    := 1;
    
BEGIN
    while i<10 loop  
        while j<10 loop
            j   := j+1;
            DBMS_OUTPUT.PUT_LINE (i||' x '|| j || ' = ' || j*i);
        end loop;
        i   :=  i+1;
    end loop;
 
END;
/
--2
begin
    for j in 2..9 loop    
        for i in 1..j loop
            DBMS_OUTPUT.PUT_LINE (j||' x '|| i || ' = ' || j*i);
        end loop;
        DBMS_OUTPUT.PUT_LINE ('--------------------------');
    end loop;
end;
/
--2------------------------------
declare
    v_x number := 1;
    v_y number := 2;
begin
    loop
        v_x := 1;
        loop
            DBMS_OUTPUT.PUT_LINE (v_y || ' x '|| v_x || ' = ' || (v_y*v_x));
            exit when v_x=v_y;
             v_x := v_x+1;
        end loop;
        v_y := v_y+1;
        DBMS_OUTPUT.PUT_LINE ('--------------------------------------------------');
        exit when v_y=10;
    end loop;
end;
/
 
declare
    v_x number := 1;
    v_y number := 2;
begin
    while v_y <= 9 loop
            v_x := 1;
            while v_x<=9 loop
                DBMS_OUTPUT.PUT_LINE (v_y || ' x '|| v_x || ' = ' || (v_y*v_x));
                v_x := v_x+1;
                exit when v_x=v_y+1;
            end loop;
                DBMS_OUTPUT.PUT_LINE ('--------------------------------------------------');
            v_y := v_y+1;
        exit when v_y>9;
    end loop;
    
end;
/
--2--------------------------------------
 
 
 
 
 
 
 
 
--3
--(3-1)
declare
    v_rn number;
begin
select trunc(dbms_random.value(0,2)) into v_rn from dual;
DBMS_OUTPUT.PUT_LINE(v_rn);
end;
/
--(3-2)
declare
    v_rn number;
begin
    select trunc(dbms_random.value(0,2)) into v_rn from dual;
    if v_rn = 0 then
        DBMS_OUTPUT.PUT_LINE('head');
    else
        DBMS_OUTPUT.PUT_LINE('tail');
    end if;
        
end;
/
--(3-3)--------------------------------------------------------------
declare
    v_rn number;
    v_x  number := 0;
begin
    for i in 1..1000 loop
        select trunc(dbms_random.value(0,2)) into v_rn from dual;
        if v_rn = 1 then
            v_x := v_x+1;
        end if;
    end loop;
    DBMS_OUTPUT.PUT_LINE('0이 나온 횟수 : '|| (1000-v_x));
    DBMS_OUTPUT.PUT_LINE('1이 나온 횟수 : '|| v_x);
    DBMS_OUTPUT.PUT_LINE('1이 나온 횟수/전체 횟수 : '|| v_x/1000);
    
end;
/
 
--(3-3-2)--------------------------------------------------------------
declare
    v_rn number;
    v_x  number := 0;
    i    number :=1;
begin
    loop
        select trunc(dbms_random.value(0,2)) into v_rn from dual;
        if v_rn = 1 then
            v_x := v_x+1;
        end if;
        i:=i+1;
    exit when i = 1000;
    end loop;
    DBMS_OUTPUT.PUT_LINE('0이 나온 횟수 : '|| (1000-v_x));
    DBMS_OUTPUT.PUT_LINE('1이 나온 횟수 : '|| v_x);
    DBMS_OUTPUT.PUT_LINE('1이 나온 횟수/전체 횟수 : '|| v_x/1000);
    
end;
/
--(3-3-3)--------------------------------------------------------------
declare
    v_rn number;
    v_x  number := 0;
    i    number :=1;
begin
    while i<=1000 loop
        select trunc(dbms_random.value(0,2)) into v_rn from dual;
        if v_rn = 1 then
            v_x := v_x+1;
        end if;
        i:=i+1;   
    end loop;
    DBMS_OUTPUT.PUT_LINE('0이 나온 횟수 : '|| (1000-v_x));
    DBMS_OUTPUT.PUT_LINE('1이 나온 횟수 : '|| v_x);
    DBMS_OUTPUT.PUT_LINE('1이 나온 횟수/전체 횟수 : '|| v_x/1000);
    
end;
/
 
 
--4 -1---------------------------
DECLARE
    v_x number;
    v_y number;
BEGIN
 
select dbms_random.value(0, 1),dbms_random.value(0, 1)
into v_x, v_y           from dual;
DBMS_OUTPUT.PUT_LINE('무작위 좌표 : ('|| v_x||','||v_y||')' );
END;
/
--4-2
DECLARE
    v_x number;
    v_y number;
    v_hit number := 0;
BEGIN
    select  power(dbms_random.value(0, 1),2),
            power(dbms_random.value(0, 1),2)
    into v_x, v_y           from dual;
 
    if (v_x+v_y)<1 then
        v_hit := v_hit+1;
    end if;
 
DBMS_OUTPUT.PUT_LINE('v_hit : '|| v_hit );
END;
/
 
--4-3
DECLARE
    v_x number;
    v_y number;
    v_hit number := 0;
BEGIN
 
    for i in 1..1000 loop
        select  power(dbms_random.value(0, 1),2),
                power(dbms_random.value(0, 1),2)
        into v_x, v_y           from dual;
    
        if (v_x+v_y)<1 then
            v_hit := v_hit+1;
        end if;
    
    end loop;
DBMS_OUTPUT.PUT_LINE('v_hit : '|| v_hit );
DBMS_OUTPUT.PUT_LINE('(v_hit/1000)*4 : '|| (v_hit/1000)*4 );
END;
/
 
--      4-4 실험을 1000번 반복하고 평균을 구하자
 
 
DECLARE
    v_x number;
    v_y number;
    v_hit number := 0;
    v_sum number := 0;
BEGIN
    for i in 1..100 loop
        v_hit := 0;
        for i in 1..1000 loop
            select  power(dbms_random.value(0, 1),2),
                    power(dbms_random.value(0, 1),2)
            into v_x, v_y           from dual;
        
            if (v_x+v_y)<1 then
                v_hit := v_hit+1;
            end if;
        end loop;
        v_sum := v_sum + ((v_hit/1000)*4);
    end loop;
DBMS_OUTPUT.PUT_LINE('v_avg : '|| v_sum/1000 );
 
END;
/