процедура.

[stil]

всем привет.

создайте пжл. процедуру.

найти все простые числа в диапозоне (от 0 до 255)

буду благодарен.

[Valio]

В чём проблемы?

PS: Предположим, что Delphi.

[stil]

я вообще не понимаю как создать её.

[SNUPY]

не самый быстрый алгоритм но сойдет

var
   i, j:Integer;
   log: Boolean;
begin
  for i:=0 to 255 do
  begin
    log := false;
    for j:=2 to trunc(sqrt(i)) do
    begin
      if i mod j =0 then
      begin
        log := true;
        Break;
      end;
    end;

    if not log then
    Memo1.Lines.Add(IntToStr(i));
  end;
end;

[stil]

спасибо большое.

[Hacker19_90]

for j:=2 to trunc(sqrt(i))

округлить квадратный корень? заачем?

i div 2

помоему проще

[s-andriano]

Проще вообще ни на что не делить.
Но практика хорошего тона требует не озадачивать комп лишней работой.
или у нас по определению (i div 2)=trunc(sqrt(i))?

[SNUPY]

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

округлить квадратный корень? заачем?

i div 2

помоему проще

Дальше за целой частью квадратного корня исследуемого числа бежать нет смыла, т.к. это точка симметрии делителей.
Например:
возьмем число 256 (16*16)
и имеем
1*256=256
2*128=256
4*64=256
8*32=256
16*16=256
32*8=256
64*4=256
128*2=256
256*1=256



Простой пример:
возьмем 10^100 мой вариант остановиться на 10^50, а ваш на 5*10^99. Дальше подсказывать что из этого лучше?

[Hacker19_90]

(i div 2)=trunc(sqrt(i))?

ВОт это ща вообще к чему?

[BDA]

"Выпендрился"

function simplest(a:integer):boolean;
begin
asm
  cmp a,1
  jle @go
  cmp a,2
  jz @ok
  mov ecx,1
  @looper:
  inc ecx
  xor edx,edx
  mov eax,a
  div ecx
  cmp edx,0
  jz @go
  cmp ecx,eax
  JB @looper
  @ok:
  mov result,true
  jmp @end
  @go:
  mov result,false
  @end:
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Memo1.Clear;
for i:=0 to 255 do
  if simplest(i) then
    Memo1.Lines.Add(IntToStr(i));
end;

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

ВОт это ща вообще к чему?

К тому, что, как уже объяснили выше, будет гораздо больше итераций.