Простые числа

[SanechekS]

Помогите пожалуйста написать прогу для нахождения простых чисел в заданном пользователе интервале (от а до b) например. * Простое число- число которое делится на 1 и на само себя. Буду очень благодарен.

[BoozZzilla]

function Check(Number: integer):boolean;
var 
i: integer;
begin
Result:=true;
If Number=[1..2] then Exit;
for i:=2 to Number do
if int(Number/i)=Number/i then Result:=false;
end;

поправьте меня пожалста если я не прав...
уууупс, это не паскаль, хотя какая разница

if (Number mod i)<>0 then Result:=false;

- вот так будет правильно?
чего то я запутался совсем...

[Serge_Bliznykov]

BoozZzilla, нет, не правильно...
тогда уж if (Number mod i) = 0 then Check := false;
ну и ещё есть ошибки...

рекомендую использовать такую функцию для проверки числа на простоту (хотя, Вы не поверите, СКОЛЬКО раз эта функция здесь на форуме была (в самых разных вариантах!):

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;

[BoozZzilla]

А почему проверка только до корня?

[Вадим Мошев]

Мне это тоже интревно, вернее, мне интересно причём тут корень квадратный, всё остальное понятно.

Кстати, предлагаю небольшую модификацию этой функции:

if x<=2 then Exit;
     if not odd(x)  { проверяем на чётность  }
          then exit;

[MyLastHit]

Кстати вот. Методов программного определения простого числа предостаточно.
К теореме Вильсона даже есть код на Си++

[Serge_Bliznykov]

Мне это тоже интревно, вернее, мне интересно причём тут корень квадратный

не, ну подумайте, если число кратно какому-то числу, то тогда число может быть записано как
Число M := A * B;
Очевидно, что для любых целых чисел A и B меньшее из этих чисел ВСЕГДА будет меньше (или равно) корню из M
(доказательство этой несложной теоремки оставляю читателю)...

Кстати, предлагаю небольшую модификацию этой функции:

if x<=2 then Exit;

Это ошибочная модицикация. Число 2 является ПРОСТЫМ! А после вашей корректировки это уже не будет так, что является ошибкой!