рекурсия определение простого числа

[ujif]

вот код ,определяет является ли число простым
непонятно, почему когда переменная b становится = false
то рекурсия тут же прерывается не дойдя до конечного
условия if m = n
Код Pascal

 
 var m, //число на которое делим n (n mod m ...)
      n: integer;//определяем является ли это число простым
Function Simple(n,m: integer):boolean;
  var b: boolean;
   begin
    if m = n then b:= True
     else
   b:= (n mod m <>0)and Simple(m+1,n);
    Simple:= b;
  end;{End Simple}
{*** ОСНОВНОЕ ТЕЛЕСЕ ****}
 BEGIN
  n:= 10;m:= 2;
writeln(Simple(n,m));
 END.

[ujif]

так и не смог сообразить ,почему при b = false
рекурсия сразу прекращается, если сделать перестановку
такую b:= Simple(m+1,n)and(n mod m <> 0);
тогда рекурсия идет до конца , пример взят из
книги Окулова "программирование" стр.152
переделал под себя , во всяком случае для меня
стала более понятна работа процедуры т.е. функцию
переделал на процедуру, а то мне кажется заморочки...

PHP код:

  var n,m: integer;
       b: boolean;
Procedure Simple(b: boolean;m,n: integer);
   Begin
    if m = n then b:= true
      else begin
     if b = false then exit;
     Simple(n mod m <> 0,m + 1,n);
    end;
   end;
{****  ОСНОВНОЕ ТУЛОВИЩЕ *********}
 BEGIN
  n:= 10;
  m:= 2;
  b:= true;
 Simple(b,m,n);
 if b then 
writeln('число простое')
  else
writeln('число не простое'); 


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

[newerow1989]

function Simple(n:integer):boolean;
var i,c:integer;
begin
   Result:=false;
   If n<2 then
      Exit;
   c:=0;
   For i:=1 to n do
      If n mod i=0 then
         c:=c+1;
   Result:=c=2;
end;

begin
   Writeln(Simple(6));
   Readln;
end.

Возьми готовое у меня!

[ujif]

спасибо за поддержку Уважаемый newerow1989
раз уж Вы откликнулись и код у Вас такой симпатичный,
предположу ,что Вы достаточно хорошо разбираетесь чего
происходит в результате выполнения программ..
у меня к Вам вопрос ,тот что здесь я задал в самом первом
своем посте именно: "непонятно, почему когда переменная b становится = false
то рекурсия тут же прерывается не дойдя до конечного
условия if m = n" ..был ответ ,что проверяется только первое условие,
когда переставил выражения , действительно, рекурсия доходит до m = n
тогда такой вопрос : если b принять = true тогда в ней запоминается
первый отличный от true результат ,..НО почему работу то прекращает = не пойму

[ujif]

мне не код нужет, я с рекурсией хочу разобраться

[newerow1989]

почему когда переменная b становится = false

Нет выражения b:=false; в коде

НО почему работу то прекращает = не пойму

Дописать:

Readln;

перед

end.

в последних строках.

[Аватар]

так и не смог сообразить ,почему при b = false
рекурсия сразу прекращается, если сделать перестановку
такую b:= Simple(m+1,n)and(n mod m <> 0);
тогда рекурсия идет до конца

b:= a1 AND a2 AND a3 AND ...

Логические выражения вычисляются слева-направо и, если встретился результат False, то дальнейшие вычисления не происходят. По моему есть препроцесорная команда, которая отменяет эта. Для OR аналогично, только True прерывает процесс вычисления

[newerow1989]

b = true всегда!
Если переписать

Procedure Simple(var b: boolean;m,n: integer);

то выйдет ошибка в строке

Simple(n mod m <> 0,m + 1,n);

надо как-то переписать эту строку наподобии

Simple(b,m + 1,n);

и указать в этой процедуре в каком случае b := false!

[ujif]

cнова привожу этот код ,
при тех значениях m и n которые тут указаны
рекурсия сразу "записывает" в b false
и работа функции прекращается ..
т.е. сразу готов результат безо всяких лишних вызовов
вопрос простой,ПОЧЕМУ когда b становится = false
сразу происходит выход из рекурсии ,,ну и что что b стало = false
ну не доходит это до меня

PHP код:

 var m, //число на которое делим n (n mod m ...)
      n: integer;//определяем является ли это число простым
Function Simple(n,m: integer):boolean;
  var b: boolean;
   begin
    if m = n then b:= True
     else
   b:= (n mod m <>0)and Simple(m+1,n);
    Simple:= b;
  end;{End Simple}
{*** ОСНОВНОЕ ТЕЛЕСЕ ****}
 BEGIN
  n:= 10;m:= 2;
writeln(Simple(n,m));
 END. 


[ujif]

у меня FPC .не знаю может в турбо по другому чего нить