用pascal求a到b之間的最大質數

時間 2022-07-17 23:05:18

1樓:匿名使用者

你可以在

if f=true then

begin

write(i:4);

inc(t);

end;

end;

這個迴圈中增加一個integer變數x來負責記錄 目前為止最大的質數

即加入 x:=i

2樓:匿名使用者

vari,j,t,a,b,max:integer;

f:boolean;

begin

readln(a,b);

if a=1 then a:=a+1;

for i:= a to b do

begin

f:=true;

for j:=2 to trunc(sqrt(i)) doif i mod j=0 then f:=false;

if f=true then

begin

write(i:4);

max:=i;

inc(t);

end;

end;

writeln;

writeln(t:4);

writeln(max:4);

readln

end.

**如上,因為你是列舉a 到 b 之間的數是否是質數,所以最後記錄的那個質數就是最大的數。

3樓:匿名使用者

就是一個簡單排序問題嘛,將結果中的數兩兩比較,找出最大的。

其實你做複雜了,從b到a找出所有素數,那麼第一個找到的就是最大的素數!

4樓:pascal博士

var a,j,b,c,t1,t2,i:longint;f;integer;

begin

readln(a,b);f:=0;s:=0;

if a>b then t1:=b;t2:=a elset1:=a;t2:=b;

for i:=t1 to t2 do

begin

for j:=2 to i div 2 doif i mod j =0 then f:=1;s:=s+1;

if f=0 then writeln(i);

end;

writeln(s);

readln;

end.

5樓:幾夢絲兒

賦值給一個陣列,然後用冒泡法排序,輸出第一個:

for i:=a to b do beginfor j:=i+1 to b do beginif a[i]

a[i]:=a[j];

a[j]:=s;

end;

end;

writeln(a[1]);

end.

求只限在2019到2023年之間最傑出的是哪幾部影片最好的藝術品或者美術作品是哪些

1974年 小號手 東海小哨兵 獲南斯拉夫第二屆國際美術電影節獎狀。地雷戰 獲奧地利第十四屆維也納電影節紀念獎。1977年中日合拍影片 一盤沒有下完的棋 和中國影片 邊城 在蒙特利爾世界電影節上獲獎。1978年 大鬧天宮 上下集 獲倫敦國際電影節最佳影片獎。小蝌蚪找媽媽 獲 南斯拉夫1978年國際美...

求40到之間的英語作文,急用,謝謝

題目 我的家人 hi i am mike i am a student.i go school by bus.my mother is a teacher.she teches math.my father is a accountant.he likes math and my mother.th...

a,b為實數,求a平方 ab b的平方 a 2b的最小值

可以這樣做 f a,b a 2 ab b 2 a 2b對於雙變數函式 對a變數求導有 y 2a b 1 對b變數求導有 y a 2b 2 令y 0 解之 a 0 b 1所以min f 0,1 1 解 設y a 2 ab b 2 a 2b a 2 b 1 a b 2 2b y 0未知數為a的上方程,有...