Delphi 求素数 àì夳堔傛蜴生んèń 2022-04-16 05:09 232阅读 0赞 GUI界面: ![2018111711484825.png][] 源代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Edit2: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation var Ran_num:Array[1..10] of Integer; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin Randomize; Edit1.Text:=''; Edit2.Text:=''; Edit1.ReadOnly:=True; //只能读,不能写 Edit2.ReadOnly:=True; for i:= 1 to 10 do begin Ran_num[i]:=Random(90); Edit1.Text:=Edit1.Text+inttostr(Ran_num[i])+','//如何输出数组 end; Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-1); //去掉最后一个符号 end; procedure TForm1.Button2Click(Sender: TObject); var biao:Array[1..10] of Integer;//标志位数组 i,j:Integer; begin for i:=1 to 10 do begin biao[i]:=1; //Edit2.Text:=Edit2.Text+inttostr(biao[i])+',';//如何输出数 end; for i:=1 to 10 do for j:=2 to Ran_num[i]-1 do begin if Ran_num[i] mod j = 0 then //判断是不是素数 begin biao[i]:=0; end; end; for i:=1 to 10 do if biao[i]=1 then Edit2.Text:=Edit2.Text+inttostr(Ran_num[i])+',';//如何输出数 Edit2.Text:=Copy(Edit2.Text,1,Length(Edit2.Text)-1); end; end. 运行结果: ![20181117114924644.png][] [2018111711484825.png]: /images/20220416/612c4a2a766a4c08b8824dce6db98720.png [20181117114924644.png]: /images/20220416/a4437bbee1e64f2983bc3f4c29b1a672.png
相关 求素数个数 ![watermark_type_d3F5LXplbmhlaQ_shadow_50_text_Q1NETiBA6LaFMzM4_size_20_color_FFFFFF_t_7 た 入场券/ 2023年09月29日 10:29/ 0 赞/ 19 阅读
相关 Python-求素数序列 分享一个大牛的人工智能教程。零基础!通俗易懂!风趣幽默!希望你也加入到人工智能的队伍中来!请点击[http://www.captainbed.net][http_www.cap 刺骨的言语ヽ痛彻心扉/ 2022年12月25日 10:53/ 0 赞/ 158 阅读
相关 求素数 求素数 Time Limit: 100ms Memory limit: 65536K 有疑问?点这里^\_^ 题目描述 求小于n的所有素数的数量。 输入 た 入场券/ 2022年08月10日 04:58/ 0 赞/ 194 阅读
相关 【C语言】求素数 / 求素数 / include <stdio.h> int prime(int num) { int i = 2;//素数能被1整除 ゝ一纸荒年。/ 2022年06月12日 05:27/ 0 赞/ 236 阅读
相关 求素数(普通+筛选) 一般求解n以内素数的算法。时间复杂度是o(n\sqrt(n)),当n较小时可以用。 代码: ![Center][] 当n较大时,一般选用埃氏筛选法,时间复杂度o(n 逃离我推掉我的手/ 2022年06月11日 08:23/ 0 赞/ 245 阅读
相关 c语言求素数 include <stdio.h> include <stdlib.h> / run this program using the conso 妖狐艹你老母/ 2022年06月07日 10:40/ 0 赞/ 272 阅读
相关 筛法求素数 用筛法求素数的基本思想是:把从1开始的、某一范围内的正整数从小到大顺序排列, 1不是素数,首先把它筛掉。剩下的数中选择最小的数是素数,然后去掉它的倍数。依次类推,直到筛子为空时 我不是女神ヾ/ 2022年05月12日 14:42/ 0 赞/ 278 阅读
相关 Delphi 求素数 GUI界面: ![2018111711484825.png][] 源代码: unit Unit1; interface àì夳堔傛蜴生んèń/ 2022年04月16日 05:09/ 0 赞/ 233 阅读
相关 求素数 \include<stdio.h> \include<math.h> int prime(int m); int main(void) \{ int co 傷城~/ 2021年11月09日 23:46/ 0 赞/ 335 阅读
相关 求素数 素数: 在大于1的整数中,只能被1和这个数本身整除的数,如2、3、5、7、11。也叫质数。 求0-n之间所有的素数。 测试用例:20 ╰+哭是因爲堅強的太久メ/ 2021年09月15日 05:02/ 0 赞/ 404 阅读
还没有评论,来说两句吧...