oracle pl/sql mini project
1.解一元二次方程 (x2+4x+3=0)
set serveroutput on declare a number ; b number; c number; x1 number(10,2); x2 number(10,2); d number; begin a:=1; b:=4; c:=3; d:=b*b -4*a*c; if(a=0) then x1 := -(c/b); dbms_output.put_line('此时只有一个根 '|| x1); elsif d<0 then dbms_output.put_line('此时没有根 '); else -- 第一个根 x1 := (-b+sqrt(d))/(2*a); x2 := (-b-sqrt(d))/(2*a); dbms_output.put_line('x1 : '||x1); dbms_output.put_line('x2 : '||x2); end if; end;
2.求100以内的质数的优化版实现
先记录在这里,后面会做的