1樓：憶可棠
經典的篩選法哦。效率高，執行起來非常快。
var a:array [1..10000] of boolean;
i,j:longint;
beginfor i:=1 to 10000 do a[i]:=true;
for i:=2 to 5000 do
if a[i] then for j:=2 to trunc(10000/i) do a[i*j]:=false;
j:=0;for i:=2 to 10000 do if a[i] then begin
write(i:5);
j:=j+1;
if j mod 10=0 then writeln;
end; end.
pascal 列印10000000內的質數
2樓：趙世孤龍
樓上們的演算法有誤：你能輸出任何結果嗎？
正確的程式其實只需要一點小的改動：
var i,j:longint;
bl:boolean;
beginfor i:=2 to 10000000 dobegin
writeln('2');
bl:=false;
for j:=2 to int(sqrt(i)) doif i mod j=0 then bl:=true;
if bl=false then writeln(i);
end;end.
pascal求質數！！！
3樓：網友
這是我寫的，希望能幫助你：
varn,i,t:integer;
beginreadln(n);
for i:=1 to n do
if n mod i=0 then inc(t);
if t=2 then writeln('yes')else writeln('no');
end.都對，要加分哦~
o(∩_o。。
4樓：網友
用n去除以2~根號a的整數部分，如果都不能整除，那就是質數。
var i,a:longint;
beginreadln(a);
for i:=2 to trunc(sqrt(a))doif a mod i=0 then
beginwriteln('no');
halt;end; writeln('yes')
end.
5樓：
vara,b:longint;
beginreadln(a);
for b:=2 to trunc(sqrt(a)) doif a mod b = 0 then
beginwrite('no');
readln;
halt;end;
write('yes');
readln;
end.這個程式是我自己編的，沒有漏洞，希望你可以選我。
素數環pascal
6樓：駒楚將永貞
b:=[2,3,5,7,11,13,17,19,23,29,31];
意識很好，你在定義過程中錯了。
procedure
exchange(a,b);
y:=a;a:=b;
b:=y;end;
fori:=1
ton-1doc:=1;d:=2;
whiletrue)
doifa[i]+a[i+1]<>b
thenbegin
exchange(a[i+c],a[i+d]);d:=d+1;
elsebreak;
我只把主程式寫了出來，其他小部分自己填充。
pascal 素數環
7樓：網友
b:=[2,3,5,7,11,13,17,19,23,29,31]; 意識很好，你在定義過程中錯了。
procedure exchange(a,b);
y:=a;a:=b;
b:=y;end;
for i:=1 to n-1 do
c:=1;d:=2;
while (true) do
if a[i]+a[i+1]<>b
then begin
exchange(a[i+c],a[i+d]);d:=d+1;
else break;
我只把主程式寫了出來，其他小部分自己填充。
求素數的方法 pascal
8樓：逍遙神劍
求素數的話一般有兩種方法，一種是篩法，就是先判斷指標所指的數是否為素數，若是，則記錄，再把該數的倍數都記為和數；還有一種就是老實的o（n2）的演算法，即乙個乙個判斷過來。
很基礎的題目，就不要偷懶了，學習程式設計的話這種題目都是應該熟練掌握的。
變電所內直流屏的作用及裝置清單，變電所內的直流屏和訊號屏是幹什麼用的？請專業人士回答。
直流系統 主要應用在發電廠 水電站及各類變電站中，為控制 訊號 測量 繼電保護和自動裝置等控制負荷，斷路器電磁合閘 直流電動機 交流不停電電源裝置 事故照明等動力負荷提供直流電源。直流系統主要由兩大部分組成。一部分是電池屏另一部分是直流充電屏 直流屏 電池屏就是一個可以擺放多節電池的機櫃 800 6...
印表機在每次開機後都自動列印前一次所列印過的
可以執行下列操作解決 1.檢查墨盒噴墨嘴上是否除去保護性膠帶。2.檢查墨盒是否空。3.將電腦和印表機全部關機並斷開電源，在印表機端拔掉和電腦之間的資料連線，將印表機重新只連線電源線，開機觀察印表機是否就緒，按住 進紙 鍵 5 秒鐘列印離線 demo 檢視是否正常。4.將印表機關機，重新連線和電腦的連...
英語題,用所給單詞適當形式填空,用括號內所給的單詞適當形式填空。Doyoubelievewatchenglish
to catch is knocking will miss to catch 他今天早上起得相當早，趕上了最早的公交車。to catch 不定式做目的狀語 knocking 雪莉，去看看誰 內在敲門 see doing sth will miss 你應容該努力學習，要不你將失去許多好的機會will...