Prime Number Collector v2.0

Lets calculate 1,2,3,5,7,11,13,17,.. Calculating prime numbers still interested for some people until now. Particulary with computer more very very faster to find biggest prime numbers. This application challange you to how long you can patient to wait your computer work. You can download the software here.

How is it work?
To test what a number is prime using with repeated division with from 2 until that number less by one. To detect it just see remain of division result from one of a lot of division operstion. If just one have zero as remain, it's mean not a prime. We can test a number using with Mod operator, perhaps with repeating calculation.

procedure TForm1.Button1Click(Sender: TObject); var cukp, i, j, min, max: cardinal; prima: boolean; begin ... Stopped:= false; for i:=min to max do begin Application.ProcessMessages; if Stopped = true then begin Button3.Enabled:= true; exit; end; Cukp:= i; j:= 2; repeat if (i mod j) = 0 then //this is not a prime number begin j:= cukp; prima:= false; end else begin inc(j); prima:= true; end; if i in[2,3,7,11,13] then //this is a prime number begin prima:= true; j:= cukp; end; until j = cukp; if prima then begin ListBox1.Items.Add(IntToStr(i)); end; end; Stopped:= true; Button3.Enabled:= true; ... end;

Okay, you can get the source code here.

Warning: include(../ulink468x15.php) [function.include]: failed to open stream: No such file or directory in /home/makedata/public_html/freeware/primenumber.php on line 104

Warning: include(../ulink468x15.php) [function.include]: failed to open stream: No such file or directory in /home/makedata/public_html/freeware/primenumber.php on line 104

Warning: include() [function.include]: Failed opening '../ulink468x15.php' for inclusion (include_path='.:/usr/lib/php:/usr/local/lib/php') in /home/makedata/public_html/freeware/primenumber.php on line 104