простые числа

[Koko Shanel']

begin
r := 2;
repeat
j := n mod r;
if j <> 0 then r := r+1
until j=0;
if r=n then prost := true
else prost := false;
end;

Помогите пожалуйста нужно видоизменить эту программу,на основе нее создать функцию аргумент кот будет двухбайтное целое число,значение фун-ции истина если аргумент простое число в противном ложь.
создать программу вывода в поле мемо простые числа от 0 до заданного.

[Arigato]

function prost (n: SmallInt): Boolean;
...
begin
  r := 2;
  repeat
    j := n mod r;
    if j <> 0 then r := r+1
  until j=0;
  if r=n then prost := true
    else prost := false;
end;

Для вывода просто в цикле перебираем все числа:

for I := 0 to Lim do
  if prost (I) then // тут добавляем I в мемо

При добавлении в мемо пригодится функция IntToStr - переводит из числа в строку.

[Serge_Bliznykov]

to Koko Shanel'

алгоритм определения простоты числа, просто жуткий!
При n=1 из цикла выходит только за счёт переполнения r

Это уже не говоря о том, что функция определения простоты числа просто неоптимальная (грубо говоря, Вы считаете сколько чисел не делится нацело...)

Хотя, это и будет работать...

я бы, например, предложил такую функцию определения простоты числа

function isPrime(X: word): boolean;
var i: word;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

выделенные красным типы данных задают двухбайтовый тип целых положительных чисел. для учебной задачи.
В реальной задаче, разумеется, их лучше заменить на LongInt