--声明一个变量，并给它赋值
declare
v_bonus number(8);
begin
select id*6 into v_bonus from A where Id=5;
DBMS_OUTPUT.PUT_LINE('奖金'||to_char(v_bonus));
end;
select * from emp
--拷贝一个字段的类型结构
declare
v_ename emp.ename%type;
v_sal emp.sal%type;
c_tax_rate constant number(3,2) :=0.03;
v_sal_tax v_sal%type;
begin
select ename,sal into v_ename,v_sal from emp where empno=&eno;
v_sal_tax :=v_sal * c_tax_rate;
dbms_output.put_line('雇员名称：' || v_ename);
dbms_output.put_line('工资：' || v_sal);
dbms_output.put_line('所得税' || v_sal_tax);
end;
select * from emp
declare
v_emp emp%rowtype; --与emp表中的各个列相同
begin
select * into v_emp from emp where empno=&eno; --将emp表中的所有记录赋值给 v_emp, &表示输入一个新的值
dbms_output.put_line('雇员名称：'|| v_emp.ename);
dbms_output.put_line('工资：' || v_emp.sal);
end;
-- 拷贝一条记录中几个字段的数据结构
declare
type emp_record_type is record(
name emp.ename%type,salary emp.sal%type,job emp.job%type
);
v_emp_record emp_record_type;
begin
select ename,sal,job into v_emp_record from emp where empno=&eno;
dbms_output.put_line('雇员名称：' || v_emp_record.name);
dbms_output.put_line('工资：'|| v_emp_record.salary);
dbms_output.put_line('职位：' || v_emp_record.job);
end;
insert into emp select * from emp
--拷贝整个表的表结构，逐行拷贝
declare
type emp_table_type is table of emp%rowtype
index by binary_integer;
v_emp_table emp_table_type;
begin
select ename,sal into v_emp_table(1).ename,v_emp_table(1).sal from emp where empno=7369;
select ename,sal into v_emp_table(2).ename,v_emp_table(2).sal from emp where empno=7370;
dbms_output.put_line('雇员名称：'||v_emp_table(1).ename || '工资：' || v_emp_table(1).sal);
dbms_output.put_line('雇员名称：' || v_emp_table(2).ename || '工资：' || v_emp_table(2).sal);
end;
--使用when loop 循环
declare
v_i number:=1;
v_s number:=0;
begin
loop
exit when v_i>100;
v_s:=v_s+v_i;
v_i:=v_i+1;
end loop;
dbms_output.put_line('100之内的整数和：' || v_s);
end;
--使用while loop 循环;
declare
v_i number:=1;
v_s number:=0;
begin
while v_i<=100 loop
v_s:=v_s+v_i;
v_i:=v_i+1;
end loop;
dbms_output.put_line('100以内的整数和： '|| v_s);
end;
--求100以内的自然数
declare
v_s number:=0;
begin
for v_i in 1..100 loop
v_s:=v_s+v_i;
end loop;
dbms_output.put_line('100以内的自然数：'|| v_s);
end;
--求100－110之间的素数
declare
v_m number:=101;
v_i number;
v_n number:=0;
begin
while v_m<110 loop
v_i:=2;
loop
exit when v_i>v_m-1;
if mod(v_m,v_i)=0 then
v_i:=0;
exit;
end if;
v_i:=v_i+1;
end loop;
if v_i>0 then
v_n:=v_n+1;
dbms_output.put_line('第'|| v_n || '个素数是' || v_m);
end if;
v_m:=v_m+2;
end loop;
end;