十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
declare

創(chuàng)新互聯(lián)建站堅持“要么做到,要么別承諾”的工作理念,服務領域包括:成都做網(wǎng)站、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務,滿足客戶于互聯(lián)網(wǎng)時代的商洛網(wǎng)站設計、移動媒體設計的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡建設合作伙伴!
v_num number;
v_now number;
v_yes number;
c_max number;
begin
v_num:=1;
c_max:=200;--這里設置最大數(shù),想要100這內(nèi)就寫100,想要1000之內(nèi)就寫1000
loop
v_now:=2;--這里設置每一個數(shù)的初始被除數(shù),從2開始
v_yes:=1;--設置初始參考數(shù),1為素數(shù),0為非素數(shù),默認初始為1
if v_num4 then
dbms_output.put_line(v_num);--1到3都是素數(shù),這里就不再判斷了
-- v_num:=v_num+1;--自增1
end if;
if v_num=4 then
--這里開始判斷,只能被1和本身整除的數(shù),就是素數(shù)
loop
if mod(v_num,v_now)=0 and v_numv_now then --如果有能被整除的數(shù),且被除數(shù)不是除數(shù)本身,就不是素數(shù)
v_yes:=0;
end if;
v_now:=v_now+1;--被除數(shù)遞增
exit when v_now=v_num;--當被除數(shù)大于除數(shù)時退出
end loop;--因為要一個一個的判斷,所以要來一次循環(huán)
end if;
if v_num4 and v_yes=1 then
dbms_output.put_line(v_num);
-- v_num:=v_num+1;--自增
end if;
v_num:=v_num+1;--自增
exit when v_num=c_max;
end loop;
end;
參考一下,自己寫的
本過程輸入?yún)?shù)inp,計算1到inp之間的素數(shù)
算法:
拿出1-inp之間的每個數(shù)i,用2到i的平方根之間的每個數(shù)去除,全部除不盡的即為素數(shù),有一個能除盡的為非素數(shù)
set serverout on
create or replace procedure is_prime(inp number)
as
i number;
j number;
is_prim boolean;
begin
dbms_output.new_line;
dbms_output.put(to_char(2)||' ');
for i in 3..inp loop
begin
is_prim:=true;
for j in 2..trunc(sqrt(i)) loop
if mod(i,j)=0 then
begin
is_prim:=false;
exit;
end;
end if;
end loop;
if is_prim then dbms_output.put(to_char(i)||' '); end if;
end;
end loop;
dbms_output.new_line;
end;
/
exec is_prime(100)
declare
/*思路:素數(shù)是只能被1和它本身整除的數(shù),針對一個數(shù)n,從2到n-1對其求模,如果能整除就不是素數(shù)*/
v_result number; /*是否為素數(shù),1為素數(shù),0為非素數(shù)*/
j number; /*從2到i-1取模,如果能被整除就不是素數(shù)*/
begin
for i in 1 .. 100 loop
j := 2;
v_result := 1;
loop
if mod(i, j) = 0 and i j then
v_result := 0;
end if;
j := j + 1;
exit when j = i;
end loop;
if v_result = 1 then
dbms_output.put_line(i);
end if;
end loop;
end;