program Ishem_prostie_chisla_v_sotne;
uses crt;
var
   a,b : array [1..100] of byte;
   p     : byte;
   i,n,z : byte;
label
   l,l2;
begin
ClrScr;
a[1]:=3;
b[1]:=3;
i:=3;
n:=0;
l: p:=0;
  for z := 1 to n do  begin
  b[z]:=b[z]-1;
  if b[z] = 0 then begin
                    b[z]:=a[z];
                    p := 1;
                    {goto l2;}
                   end;

  end;
if p<>1 then begin
    n:=n+1;
    a[n]:=i;
    b[n]:=i;
write(a[n],' ');
end;
l2: i:=i + 2;
{write(i,' ');}
if i<=100 then goto l;
{for i := 1 to 24 do begin
write(a[i],' ');
end;}
write(n);
end.

Я долго коптил, и нашёл закономерность "размножения" простых чисел. (кто не верит пусть компилит!!!!)
Я прошу помощи перевода етого кода на асм, при этом надо сделать возможность бесконечного увеличения массива. заранее сенкс

И чем конкретно этот метод новый?

Я  вообще особо не рублю на Дельфи/Паскале, но... вообще на кой чёрт тебе искать эти числа? ведь можно просто брать число, проверять простое оно или нет, потом, если оно простое кидать его в файл или куда надо. на С++ что то в роде:

int num_to_check = 1000;
for(int a = 0; a<num_to_check; a++)
 if(Prostoje4islo(a)==TRUE) printf("%i\n", a);

Ф-ция Prostoje4islo проверяет простое ли число и, если да, то printf выводит это число на экран. Не верю, что на Паскали/Дельфи так нельзя сделать.

2 Kefir - можно конечно, но проблема с простыми числами остаётся весьма острой, код автора тоже не поможет. Например видоизменим задачу - надо найти все простые числа в интервале от 10^20 до 10^22... Желательно за разумный интервал времени...

"Я долго коптил, и нашёл закономерность "размножения" простых чисел. "
Смелое утверждение :-). Если ты действительно сформулировал закон распределения простых чисел, тогда тебе нужно премию, как минимум, Филдса выдать. Кстати, кажется на Vingrade в каком-то разделе форума кто-то статью выдал, что какие-то ученые составили алгоритм получения простого числа, но чего-то я больше нигде подобной информации не читал. Для тех кто не в курсе (мало ли как бывает) простые числа - число которые деляться только на 1 и на себя (1,2,3,5,7,11,13,17 и т.д. (только вот как так? :-) ) ).

2 Vit:
Это примерно 99 в 20й итераций... нда... хорошего времени не получается, но быстродействие компьютеров постоянно растёт, так что очень возможно, что вскоре и такой способ подойдёт.
Вообще я не имел в виду таких астрономических чисел, просто при довольно нечасто надо находить все простые в этом интервале.
2 Dapo:
Может ты это имел в виду:
http://www.cse.iitk.ac.in/primality.pdf
?
Это алгоритм дающий 100% уверенность в простоте числа (или же в том что оно не простое).

Дело в том, что над этой проблемой "покоптили" еще в древности. В результате появился метод с названием "решето Эратосфена", который довольно часто изучается в школе...
если интересно - сходите, например, на www.nature.ru и наберите в поиске "решето Эратосфена"

2 maxim1000:
Решето - это конечно хорошо, но и ты тоже не поленись, зайди по ссылке в моём предидущем мсг. Тоже довольно интересно.

Тема перемещена в раздел алгоритмов

А как же Кнут с его алгоритмами.....

Поиск простых чисел практически нужен например в криптоанализе системы шифрования с открытым ключом (например RSA). По крайней мере очень сильно убыстрит его.

Ну вот, народ, ловите. Кто тут говорил, что статью хотел:
http://www.cse.iitk.ac.in/news/primality.pdf

Сделай exe и дизасемблируй его ))) Вот тебе и код в АСМ

а так нормально! но лучше в динамической памяти Так как на большие массивы места не хватит)

Выведена формула получения простых чисел
http://www.laplas.narod.ru/moiform.htm

пункт №4



где k целое число от 1 до бесконечности. Выражение в скобках ограниченных снизу обозначает целую часть дроби k/6, либо само значение этой дроби если k кратно 6, ну а функция n=[(k-1)mod(6)] и n=[(k)mod(6)] вам я надеюсь знакома - сравнимость чисел n и k-1, k по модулю 6.
Эта формула даёт все простые числа по порядку начиная с 5. Так же по этой формуле получаются составные числа. Общая доля отсева равна 11/15=0.73333(3).