Delphi и простые числа

[razoom]

Помогите написать пару простых программ, пожалуйста
Буду благодарен за код в Delphi, главное, чтобы работало, интерфейс сделаю сам.
Если кто-то может реально помочь, могу заплатить.


1. Дан ряд натуральных числен от 1 до N. Программа должна выдать все простые числа из этого ряда, которые одновременно являются членами арифметической последовательности
1) a= m^2 + 1
2) b= m^2 + m + 41
3) c= m^2 + m + 11

Вход: N.
Выход: три массива чисел (по одному на каждую последовательность).
Если необходимо, можно ограничить N 10000, или вообще забить ее в код.

2. Дано N - номер простого числа в последовательности натуральных чисел, начиная с 2 (можно 1). Например, если N=2, то {2; 3; 5} (либо {1; 2; 3}).
Получить КОЛИЧЕСТВО содержащихся в следующих последовательностях чисел из ряда простых чисел от 2 (1) до N.
1) a= m^2 + 1
2) b= m^2 + m + 41
3) c= m^2 + m + 11

Вход: N.
Выход: три числа - по одному для каждой последовательности.
N должно быть хотя бы до 1000.


На паскале код поиска простых чисел выглядит следующим образом:
var
prime:array[0..1000000]of integer;
n,i,j:integer;
o:boolean;
begin
assign(input,'input.txt');reset(inp ut);
assign(output,'output.txt');rewrite (output);
read(n);
i:=2;prime[0]:=0;
while prime[prime[0]]<n do
begin
o:=true;
for j:=1 to prime[0] do
if prime[j]>trunc(sqrt(i)) then break
else
if i mod prime[j] =0 then
begin
o:=false;
break;
end;
if o then
begin
inc(prime[0]);write(i,' ');
if prime[0] mod 100 =0 then
writeln;
prime[prime[0]]:=i;
end;
inc(i)
end;
end.

Если написанный в предыдущем абзаце код - полная чушь, то можно использовать БД - библиотеку простых чисел.



//Перемещено с раздела - Помощь студентам

[Dimon]

стучи в аську 198-012-696

[Likyrg]

аська в профиле, сделатю без проблем

[Abbatik]

стучись 446-037-211
или пиши termit_333@rambler.ru
договоримся

[Serge_Bliznykov]

деньги, деньги, дребиденьги, делай деньги день деньской...

вот, на выбор ДВА варианта проверить является ли число простым!!!
вариант 1.

function IsProstoe(N: LongInt): boolean;
var 
  i: integer; 
begin 
  IsProstoe := true; 
  if abs(N) < 3 then 
    exit; 
  for i := 2 to abs(N) - 1 do 
    if abs(N) mod i = 0 then 
      begin 
        IsProstoe := false; 
        exit; 
      end; 
end;

вариант 2.

{ Составить программу печати всех простых чисел до 500 }
const LIMIT = 500;
var i,j,lim : word;
begin 
  for i:=1 to LIMIT do begin
      j:=2; lim:=round(sqrt(i));
      while (i mod j <> 0) and (j <= lim) do inc( j );
      if (j > lim) then write( i,' ' );
  end;
end.

[drummer]

Функция простоты числа

function prost(x:longint):boolean;
  var i:longint;
  begin
      prost:=false;
      for i:=2 to sqrt(x) do
         if x mod i=0 then exit;
      prost:=true;
  end;

[Delphi_Manager]

На деле все чуть посложнее чем кажется. Если тема актуальна, напиши на topaz08ex@rambler.ru, обсудим программу