Нахождение простых чисел в диапозоне от N1 до N2

Question

Простые числа - это – это числа которые делятся на 1 и на самих себя без остатка
У меня почему то выводит все числа.
Вот алгоритм и интерфейс.

{$R *.dfm}

//проверяет простые ли числа

procedure prover(N:integer; var ok:Boolean);
var d,r:integer;
begin
d:=2;
repeat
r:=N mod d;
if r<>0
then d:=d+1;
until r=0;
ok:=true;
end;

//вывод простых чисел

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
st:string;
yes:boolean;
begin
prover(StrToInt(Edit1.Text), yes );
st:='';
for i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do
if yes=true then
st:=st+inttostr(i)+#13;
label5.caption:=st;
end;
end.

Нахождение простых чисел в диапозоне от N1 до N2

Нахождение простых чисел в диапозоне от N1 до N2

Да и вопрос в том, чтобы выводились только простые числа, а не все подряд?

Нужно чтобы использовалась либо процедура либо функция. Я выбрал процедуру, так как решение может реализовываться как процедурой так и функцией.

Да и вопрос в том, чтобы выводились только простые числа, а не все подряд? Нужно чтобы использовалась либо процедура либо функция. Я выбрал процедуру, так как решение может реализовываться как процедурой так и функцией.

Кирилл Белокуров · Accepted Answer

{$R *.dfm}
//проверяет простые ли числа
procedure prover(N:integer; var ok:Boolean);
var d: integer;
begin
d := 2;
ok := true;
repeat
if (N < 2) or (N > 3) and (N mod d = 0) then
ok := false;
d := d + 1;
until not ok or (d >= N);
end;

//вывод простых чисел
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
yes:boolean;
begin
Memo1.Clear;
for i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do
begin
prover(i, yes);
if yes then
Memo1.Lines.Add(inttostr(i));
end;
end;

P.S. Зачем такой крупный шрифт?

P.S. Зачем такой крупный шрифт?

Aika · Answer

procedure prover(N:integer; var ok:Boolean); 
var d,r:integer; 
begin 
d:=2; 
ok:=true; 
repeat 
r:=N mod d; 
if r<>0 
then d:=d+1 else ok:=false; 
until r=0; 
end;