простые числа, простая но не рабочая функция Опции

[compiler]

Добрый день!
написал свою функцию проверяющею простоту числа, а она не работает. Покажите пожалуйста ошибку.

var
	den,d:integer;
function simple(a:integer):boolean;
var
	i: integer;
begin
	simple:=true;
	i:=2;
	while (i< (trunc(sqrt(a)) )) and (simple=true)do begin
		if a mod i = 0 then simple:=false;		
		inc(i);
	end;
end;
begin
	ReadLn(d);
	
	for den:=0 to d do begin
		if simple(den)=true then 
			writeLn(den);
	end;
	ReadLn(d);
end.

Заранее благодарен
ЗЫ да, я знаю про то что в ЧаВо есть подобная функция..

Сообщение отредактировано: compiler - 29.04.2007 15:38

[klem4]

я знаю про то что в ЧаВо есть подобная функция..

И чем она тебе не понравилась ?

[compiler]

И чем она тебе не понравилась ?

Exit-ом.

[klem4]

function simple(a:integer):boolean;
var
	i: integer;
        s: boolean;
begin
	s:=true;
	i:=2;
	while (i<= (trunc(sqrt(a)) )) and (s=true)do begin
		if a mod i = 0 then
                 s:=false;
		inc(i);
	end;
        simple := s;
end;

ps
Можно сделать и без exit'a в одну строчку ...

[compiler]

klem4, конечно спасибо но почему при знаке < вместо <= функция работает не коректна

[klem4]

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

вот такой вариант еще:

function Simple(n, i: Integer): Boolean;
begin
  if i > trunc(sqrt(n)) then Simple := true else
   if (n mod i = 0) then Simple := false else simple := (Simple(n, i + 1));
end;

вызов

 for i := 1 to 20 do
   if simple(i, 2) then writeln(i);