Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Простые числа

Автор: roar 25.1.2006, 21:32

Помогите пожалуйста с алгоритмом нахождения простых чисел (только не циклом до sqrt или что то в этом роде) smile

Автор: Fin 25.1.2006, 22:12

Иногда Гугл помогает быстро решать проблемы http://algolist.manual.ru/maths/teornum/gene_prime.php

Автор: Quadr0 25.1.2006, 23:03

...

Автор: Rencom 25.1.2006, 23:43

2Quadr0: на что существует цикл с пост-условием? ИМХО, лучше использовать репеат-антил, чем лепить if и while...

Автор: roar 26.1.2006, 10:28

Если честно Fin , я пытался найти там что нибудь , но нашел только теорему ферма а оно мне не дается
Но и за это спасибо

Автор: armageddon 26.1.2006, 15:22

т.е ты хочешь чтобы пользователь вводил несколько чисел, а программа выводит какие из них простые?

Автор: roar 26.1.2006, 16:27

armageddon хотя бы так

Автор: Quadr0 26.1.2006, 17:32

...

Автор: armageddon 7.2.2006, 20:47

Код


uses crt;
var
b:boolean;
n,i,j,x1:integer;
begin
clrscr;
readln(n);
j:=2;
 while x1<n do
  begin
    b:=true;
    for i:=2 to round(sqrt(j)) do
      begin
       if j mod i = 0 then begin b:=false; break;  end;
      end;
   if b=true then begin writeln(j); x1:=x1+1; end;
         j:=j+1;
   end;
readkey;
end.

Добавлено @ 20:50
прога выводит n простых чисел, я не знаю надо ли тебе это, но на всякий случай скинул