Вычисление простых чисел

[HuKuTa74]

дан массив натуральных чисел A(N).Сформировать массив B(M) содержащий только элементы массива A,являющиеся простыми числами.

[alex_fcsm]

Вот вам функция для простых чисел

Function IsSimple (z:integer):boolean;
var j,lim: integer;
begin
     IsSimple:=false;
     lim:=round(sqrt(z));
     j:=2;
     while (z mod j <> 0) and (j <= lim) do inc( j );
     if (j > lim) then IsSimple:=true;
end;

[Serge_Bliznykov]

ну и я свой вариант кину. он чуть более защищён (отрицательные числа не могут быть простыми, например)... ну и попытка оптимизации добавлена...

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

[Kingdom_Reborn]

uses
  Crt;

const
  Nmax = 100;

var
  A, B: Array[1..Nmax] of Longint;
  n, m, i: Integer;
begin
  ClrScr;
  WriteLn('Введите массив A:');
  n := 0;
  while not SeekEoLn do begin
    Inc(n);
    Read(A[n]);
  end;
  m := 0;
  for i := 1 to n do
    if IsPrime(A[i]) then begin
      Inc(m);
      B[m] := A[i];
    end;
  WriteLn('B:');
  for i := 1 to m do
    Write(B[i], ' ');
  ReadKey;
end.

Функцию IsPrime описал выше Serge_Bliznykov.

[Stilet]

Шож у вас так все сложно то?

const n=10;m=n;
var a:array[1..n] of integer;
     e,i:integer;
     b:array[1..m] of integer;
begin   e:=1;
 randomize;
 for i:=1 to 10 do begin
  a[i]:=random(200); write(a[i]:5);
  if (((a[i]-1) mod 6)=0)and(((sqr(a[i])-1) mod 24)=0) then  begin b[e]:=a[i];inc(e);end;
 end;
 writeln;
 for i:=1 to e do write(b[i]:5);
 readln;
end.

По мотивам

# Всякое простое число, большее 3, представимо в виде 6k + 1 или 6k − 1, где k — некоторое натуральное число.

# Если p > 3 — простое, то p^2 − 1 кратно 24 (справедливо также для всех нечётных чисел, не делящихся на 3).

[Kingdom_Reborn]

Stilet, те два утверждения, что вы привели, возможно, и верны, но вот обратные к ним верны не всегда. Пример: число 25. По вашему условию:

if (((a[i]-1) mod 6)=0)and(((sqr(a[i])-1) mod 24)=0)

25 - 1 = 24 = 4 * 6; 25^2 - 1 = 625 - 1 = 624 = 156 * 24
По вашему условию 25 будет простым.

[Serge_Bliznykov]

Kingdom_Reborn +1

Stilet, Виталий, действительно:

a := 25;
if (((a-1) mod 6)=0)and(((sqr(a-1) mod 24)=0)) then  WriteLn('a простое')
else Writeln('a - не простое!');

[Stilet]

Мое дело попытаться - ваше забанить )))))