[guranvir]

Мне надо было написать код функции проверки числа на простоту. Вот написал:

Код:

function IsSimp(i:integer):boolean;
 var
 j:integer;
 begin
   for j := 2 to i - 1 do
   begin
   if (i mod j)=0 then
    begin
IsSimp:=true;
    end;
   end;
IsSimp:=false;
 end;    

. И дельфи пишет: значение присваиваемое в блоке if никак не используется, хотя основной текст программы таков:

Код:

 var
chis:integer;
begin
chis:=4;
if IsSimp(chis)=true then
begin
 writeln('Prostoe');
end;
readln;
end.

Если можно помогите разобраться, я вот не пойму разве функция не прекращает работу после IsSimp:=true;?Хотя вот если приписать exit в if то все ок, но не хотелось бы прибегать к таким мерам

[friz]

во первых твоя функция криво считает. простое число - это число которое делиться на себя и на единицу. вот функция которая правильно считает:

Код:

function IsSimp(i:integer):boolean;
 var
 j:integer;
 begin
   for j := 2 to i  do
   if ((i mod j)=0) then result:=true
                        else result:=false;

 end;

во вторых: после "result:=" - функция не прекращает работу.

[s0Creator]

Функция не прекращает работу до последнего end или exit
поэтому надо И ничего страшного в этой мере нет. Наоборот, Вы не прокручиваете весь цикл ( который можно проверять не до самого числа а до его квадратного корня ) и экономите время.
В Delphi 2010 можно записать Exit(True);
Тоже не обратил внимания. Надо наоборот

Код:

function IsSimp(i:integer):boolean;
 var
 j:integer;
 begin
   for j := 2 to Trunc(Sqrt(i)) + 1  do
    if ((i mod j)=0) then
    begin
     result:=false; // делиться значит не простое
     exit;
    end;
   result:=true;
 end;

[guranvir]

Большое спасибо, насчет того что работает до последнего end я то же экспериментальным путем понял, просто решил уточнить) Да правильно насчет квадратного корня, еще раз спасибо

[Ama]

Есть выражение еще короче: Result:= ((i mod j)=0);