In các số lẻ và tổng của chúng từ 1 đến n trong PL/SQL

Đề bài: Cho số n, in tất cả số lẻ từ 1 đến n và tính tổng chúng trong PL/SQL.

PL/SQL là ngôn ngữ thủ tục mở rộng SQL. Code tổ chức thành block gồm khai báo và lệnh.

Ví dụ: Input 7 → Output: Odd numbers: 1, 3, 5, 7. Sum = 16.

Giải thuật: Khởi tạo biến num=1, sumvar=0. Lặp WHILE num <= n: in num, cộng vào sumvar, tăng num lên 2.

Ví dụ code

DECLARE
    number NUMBER(3) := 1;
    sumvar NUMBER(4) := 0;
BEGIN
    dbms_output.Put_line('The odd numbers are:');
    WHILE number <= 7 LOOP
        dbms_output.Put_line(number);
        sumvar := sumvar + number;
        number := number + 2;
    END LOOP;
    dbms_output.Put_line('Sum of odd numbers is ' || sumvar);
END;

Kết quả

1
3
5
7
Sum of odd numbers is 16