[PLSQL 반복문, LOOP, FOR, WHILE 예제]임의의 수입력받아 그수까지의 합을 구하는 예제

[PLSQL 반복문, LOOP, FOR, WHILE 예제]임의의 수입력받아 그수까지의 합을 구하는 예제 

Accept를 이용하여 숫자를 입력받고 1부터 그 수까지의 합을 구하세요 

- basic loop문 
- for loop문 
- while loop문 

-------------------------------------------------------------------------------------------------- 

1. BASIC LOOP 이용 


SQL>edit a 

set serveroutput on 
accept p_num prompt 'Enter a number : ' 
create or replace procedure sum1 
is 
  v_sum number := 0; 
  i number := 0; 
begin 
  
  loop 
      i := i + 1; 
      v_sum := v_sum + i;
      exit when  i >= &p_num ; 
  end loop; 
  dbms_output.put_line(&p_num || '까지 합은 ' || v_sum); 
end; 
/ 

SQL>@a 

Enter a number : 10 
구  10:      exit when  i >= &p_num ; 
신  10:      exit when  i >= 10 ; 
구  12:    dbms_output.put_line(&p_num || '까지 합은 ' || v_sum); 
신  12:    dbms_output.put_line(10 || '까지 합은 ' || v_sum); 

프로시저가 생성되었습니다. 

SQL> exec sum1; 
10까지 합은 55 

PL/SQL 처리가 정상적으로 완료되었습니다. 



2. FOR LOOP 이용 

SQL>edit a1 

set serveroutput on 
accept p_num prompt 'Enter a number : ' 
create or replace procedure sum2 
is 
  v_sum number := 0; 
begin 
  
  for i in 1..&p_num loop 
      v_sum := v_sum + i;
  end loop; 
  dbms_output.put_line(&p_num || '까지 합은 ' || v_sum); 
end; 
/ 


SQL> @a1 
Enter a number : 10 
구  6:    for i in 1..&p_num loop 
신  6:    for i in 1..10 loop 
구  9:    dbms_output.put_line(&p_num || '까지 합은 ' || v_sum); 
신  9:    dbms_output.put_line(10 || '까지 합은 ' || v_sum); 

프로시저가 생성되었습니다. 

SQL> exec sum2; 
10까지 합은 55 

PL/SQL 처리가 정상적으로 완료되었습니다. 


3. WHILE LOOP 이용 


SQL>edit a2 

set serveroutput on 
accept p_num prompt 'Enter a number : ' 
create or replace procedure sum3 
is 
  i number := 0; 
  v_sum number := 0; 
begin  
    while (i < &p_num) loop 
      i := i + 1; 
      v_sum := v_sum + i;     
  end loop; 
  dbms_output.put_line(&p_num || '까지 합은 ' || v_sum); 
end; 
/ 


SQL>@a2 

Enter a number : 10 
구  6:    while (i < &p_num) loop 
신  6:    while (i < 10) loop 
구  10:    dbms_output.put_line(&p_num || '까지 합은 ' || v_sum); 
신  10:    dbms_output.put_line(10 || '까지 합은 ' || v_sum); 

프로시저가 생성되었습니다. 

SQL> exec sum3 
10까지 합은 55 

PL/SQL 처리가 정상적으로 완료되었습니다.