Проверка чисел на простоту. Не работает условие.

[krab777]

Проверяю число на простоту.

var
a,i,N:integer;

begin

a:=strtoint(edit1.text);


for  i:=2 to 10 do

begin

if ((a mod i<>0) and (a>i)) then  


edit2.text:='простое' else edit2.text:='составное';


end;
end;
end.

a mod i<>0 - т.е. как вы поняли, если каждое деление на такое i имеет остаток, то число простое (или есть ли есть хоть 1 остаток НОЛЬ от деления на число, то оно составное).

Весь прикол в том, что когда я написал такое условие, то программа смотрит как будто только ВТОРУЮ ЧАСТЬ (a>i). Т.е. если я например ввожу число 11, то т.к. оно больше i (10), то прога выдает что число простое, а если ввожу 12, то оно тоже простое, хотя на самом деле оно СОСТАВНОЕ. Если ввожу 9, то пишет что составное (т.к. не соблюдено a>i).

А когда меняю условие (a mod i<>0) на (a mod 5<>0) то программа все хорошо обдумывает.

непонятно...

я даже сделал поле memo чтобы вывести все остатки от деления и всё работает. а с условием не пашет. помогите плиз. спасибо.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Вы не понимаете, что у Вас происходит в цикле!
ПОСЛЕ КАЖДОЙ ПРОВЕРКИ значения edit2.Text изменяются.
Т.е. сначала (вначале цикла) I равно 2 - проверятся условие и в Edit2.Text записывается либо 'простое' либо 'составное'
после этого условие цикла становится 3, проверюются условия и
и в Edit2.Text записывается либо 'простое' либо 'составное'
и т.д. пока i не станет 10...
в результате ВЕСЬ Ваш цикл делает тоже самое что:

i:=10;
if ((a mod i<>0) and (a>i)) then  
  edit2.text:='простое' else edit2.text:='составное';

да, чтобы убедится, что за ужас у Вас происходит внутри цикла, можете анимировать цикл, например, так:

for  i:=2 to 10 do
begin
  if ((a mod i<>0) and (a>i))
     then edit2.text:=IntToStr(i)+': простое'
     else edit2.text:=IntToStr(i)+': составное';
  sleep(400);
  Application.ProcessMessages;
end;

на форуме неоднократно выкладывались рабочие примеры функций для проверки числа на простоту. Поиском Вы их легко найдёте!

[Sparkman]

var a,i,N:integer;
    b:boolean;
begin
     a:=strtoint(edit1.text);
     b:=true;
     for  i:=2 to 10 do
     if not((a mod i<>0) and (a>i)) then b:=false;
     if b or (a=1) then
     edit2.text:='простое' else edit2.text:='составное';
end;