Формирование массива простых чисел из текстового файла

[Vitalyas]

Задача такая: Сформировать массив из 10 простых чисел. Простые числа будут браться из текстового файла (f1), а сформированный массив будет выводиться в текстовый файл (f2).
Знаю, что должны писаться коды Read() и Write(), но у меня возник вопрос:"Как можно из текстового файла с рандомным набором чисел сформировать массив простых чисел"
Написал код простого формирования массива из 10 простых чисел, но без текстовых файлов. Может пригодится =)

var
   a: array[1..10] of integer;
   k: real;    l, r, m, i: integer;
begin
{формирование и вывод массива}
     for i:=1 to 10 do
          begin
               a[i]:=2*i-1; write(a[i]:4);
     end;
end.

Текстовый файл (f1)

[OldOwlOll]

я что-то не понимаю...

for i:=1 to 10 do
          begin
               a[i]:=2*i-1; write(a[i]:4);
     end;

a[5] = 9 - не простое число

может быть имелось в виду "нечетные числа" ?

[Vitalyas]

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

я что-то не понимаю...
может быть имелось в виду "нечетные числа" ?

Код, который я написал - да, он рассчитан на нечетные числа, видно когда тему создавал опечатался =)

[xatabich]

Открываешь первый файл считываешь по одному числу проверяешь число простое если простое то записываешь в вектор после десяти записей в вектор останавливаемся закрываем файл вторая часть программы из вектора выводит в файл всё

[Vitalyas]

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

Открываешь первый файл считываешь по одному числу проверяешь число простое если простое то записываешь в вектор после десяти записей в вектор останавливаемся закрываем файл вторая часть программы из вектора выводит в файл всё

Это я понимаю, но как расписать алгоритм проверки (является число простым или нет)?

[Serge_Bliznykov]

но как расписать алгоритм проверки (является число простым или нет)?

поиском по форуму воспользоваться лень?

например, так можно проверить:

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

[Vitalyas]

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

поиском по форуму воспользоваться лень?

например, так можно проверить:

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

Да нет, не лень, но тут на четность нечетность или я ошибаюсь? Надо на простые числа... Простые числа - такие числа, которые делятся только на 1 и сами на себя (например 3 5 7 11 13 и т.д.)

[Vitalyas]

Была идея сделать просто, чтобы числа с одного текстового файла, в котором набор простых чисел, переписывало в другой текстовый файл (КОД ПРОГРАММЫ прикрепил ниже) и все =) Но мне хочется, чтобы была проверка чисел так скажем на простоту и чтобы писало только 10 случайных чисел из набора чисел в первом текстовом файле.

var 
   a:real;
   f1, f2:text;
begin
     assign(f1,'f1.txt');
     reset(f1);
     assign(f2,'f2.txt');
     rewrite(f2);
     while (not eof(f1)) do
          begin
          readln(f1,a);
          writeln(f2,a);
          end;
     close(f2);
     close(f1);
end.

[Serge_Bliznykov]

Да нет, не лень, но тут на четность нечетность или я ошибаюсь?

ошибаетесь.

неужели трудно вставить функцию в код и ПРОВЕРИТЬ!??!

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

var i : integer;
begin
  Write('простые числа в диапазоне от 1 до 100 : ');
  for i:=1 to 100 do
    if isPrime(i) then Write(i,' ');
  WriteLn;
  Readln
end.

(например 3 5 7 11 13 и т.д.)

простые числа начинаются с 2. Двойка это тоже простое число, как ни странно.
А вот единица, вопреки распространнёному заблуждению, простым числом не является. Как-то так исторически сложилось!

[Vitalyas]

Все спасибо ребята. Кому интересно как написать массив из простых чисел взятых из текстового файла, в котором написаны все числа (не только простые), то вот код программы.

function isPrime(X: LongInt): boolean;
var i: integer;
  xsqrt : longint;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     xsqrt := trunc( sqrt(x) );
     while i <= xsqrt do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;
var
   f1,f2:text;
   i,n:integer;
   a:array[1..100] of integer;
begin
     assign(f1,'f1.txt');
     reset(f1);
     read(f1,n);
     assign(f2,'f2.txt');
     rewrite(f2);
     for i:=1 to n do
          begin
               Read(f1,a[i]);
               if IsPrime(i) then Write(f2,a[i],' ');
          end;
     close(f2);
     close(f1);
end.

Модераторы! Тему можно закрыть.