Рекурсия: проверка, является ли число простым

[Petyu]

написал программу проверки числа на простоту

program P5a;
  var n,i:integer;
   pr:boolean;
     function f1(m,j:integer):boolean;
     begin
           result:=true;
             for j:=2 to m div 2 do
               if m mod j =0 then begin
                                      result:=false;
                                      break;
                                   end;
               if result then writeln('число',n,'- простое')else writeln('число',n,'простым не является');
    end;
    begin
    readln(n);
    write(f1(n,i));
    end.

подскажите пожалуйста как сделать эту проверку через рекурсию???

[eoln]

http://programmersforum.ru/showthread.php?t=93531
некоторые паскали не понимают, поэтому чуть изменить надо

function Simple (Pr : Integer; i: integer ) : Boolean;
begin
  if Pr < 2 then Simple := false else//первое простое число - это 2
  if Pr = 2 then Simple := true else//если Pr=2, то сразу говорим ДА
  if Pr mod i = 0 then//делится ли число без остатка на i (первоначально i=2)
    Simple := false
  else
    if i < Pr div 2 then
      Simple := Simple(Pr, i + 1)//если не делится, то пытаемся делить на i+1
    else
      Simple := true//возникает в случае если Pr не делится ни на одно число из промежутка (2, Pr div 2]
end;
var i: byte;
begin
for i := 1 to 14 do
  if Simple(i,2) then writeln(i:3, ' yes') else writeln(i:3, ' no');
  readln
end.

[Petyu]

Сообщение от eoln

http://programmersforum.ru/showthread.php?t=93531
некоторые паскали не понимают, поэтому чуть изменить надо

function Simple (Pr : Integer; i: integer ) : Boolean;
begin
  if Pr < 2 then Simple := false else//первое простое число - это 2
  if Pr = 2 then Simple := true else//если Pr=2, то сразу говорим ДА
  if Pr mod i = 0 then//делится ли число без остатка на i (первоначально i=2)
    Simple := false
  else
    if i < Pr div 2 then
      Simple := Simple(Pr, i + 1)//если не делится, то пытаемся делить на i+1
    else
      Simple := true//возникает в случае если Pr не делится ни на одно число из промежутка (2, Pr div 2]
end;
var i: byte;
begin
for i := 1 to 14 do
  if Simple(i,2) then writeln(i:3, ' yes') else writeln(i:3, ' no');
  readln
end.

введи цикл до 15 например, начинает ерунду считать

[eoln]

Какую ерунду? Интеграл Наполеона считает чтоль? Или анекдоты похабные печатает?
У меня всё прекрасно работает и в TP и в FP и в BP и т.п.

[Serge_Bliznykov]

Сообщение от Petyu

введи цикл до 15 например, начинает ерунду считать

не подтверждаю!

Код работает!
вот результат работы программы для цикла for i := 1 to 15 do

  1 no
  2 yes
  3 yes
  4 no
  5 yes
  6 no
  7 yes
  8 no
  9 no
 10 no
 11 yes
 12 no
 13 yes
 14 no
 15 no

Petyu, Вас что-то не устраивает?!!

[Petyu]

Сообщение от Serge_Bliznykov

не подтверждаю!

Код работает!
вот результат работы программы для цикла for i := 1 to 15 do

Petyu, Вас что-то не устраивает?!!

сравни результат с циклом до 14 и до 15 или число 2 к примеру не является простым а чдесь почему-то в результате работы программы оно простое.

[Poma][a]

число 2 к примеру не является простым

Шо простите?
Число 2 делится на само себя и на 1? Так? - Так. Другие делители есть?-Нет. => Число 2 какое? Прально! Простое!

[Serge_Bliznykov]

число 2 к примеру не является простым

О! Может быть, Вам стоит начать с того, что сходить на википедию Простое число, почитать определение, какие числа являются простыми.

ну или, хотя бы список чисел просмотреть:

Последовательность простых чисел начинается так:
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, …

[Petyu]

Сообщение от Serge_Bliznykov

О! Может быть, Вам стоит начать с того, что сходить на википедию Простое число, почитать определение, какие числа являются простыми.

ну или, хотя бы список чисел просмотреть:

мне по моему коду надо!!!!!!!!!!!!!!!!!!!!!!

[Petyu]

Сообщение от Petyu

мне по моему коду надо!!!!!!!!!!!!!!!!!!!!!!

сделать рекурсию