Работа с файлом. Проверка чисел - составное или простое

@Klays90 · Регистрация: 13.02.2017

Author24 — интернет-сервис помощи студентам

Добрый вечер! Прошу помощи в решении задачи.
ТЗ: Имеется исходный текстовый файл, в котором записано некоторое количество любых целых чисел. Необходимо проверить числа в файле (определить простое или составное) и разделить эти числа на два файла (в-первом файле записать простые числа, а во-втором файле записать составные).

@Hitoku · 10.04.2017, 21:14

Pascal

function IsPrime(n:integer):boolean;
var k:byte;
begin
  for var i:=2 to n div 2 do
     if n mod i = 0 then begin
       k:=1; break;
     end;
    if k=0 then Result:=true
     else Result:=false;
end;
begin
  var n:=ReadAllText('E:\nums.txt').ToIntegers;
  WriteAllText('E:\primes.txt',n.Where(v -> IsPrime(v)).JoinIntoString(' '));
  WriteAllText('E:\n_primes.txt',n.Where(v -> not IsPrime(v)).JoinIntoString(' '));
end.

@volvo · 11.04.2017, 16:58

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

Pascal

begin
  var n := ReadAllText('nums.txt').ToIntegers.
    Partition(v -> ((v > 1) and Range(2, Trunc(Sqrt(v)) - 1).All(t -> v mod t <> 0))); // теперь в n[0] все простые, а в n[1] - составные числа
  WriteAllText('primes.txt', n[0].JoinIntoString(' '));
  WriteAllText('n_primes.txt',n[1].JoinIntoString(' '));
end.

@Klays90 0 / 0 / 0 Регистрация: 13.02.2017 Сообщений: 1
		1
	Работа с файлом. Проверка чисел - составное или простое 10.04.2017, 20:54. Показов 1407. Ответов 2 Метки нет (Все метки) Добрый вечер! Прошу помощи в решении задачи. ТЗ: Имеется исходный текстовый файл, в котором записано некоторое количество любых целых чисел. Необходимо проверить числа в файле (определить простое или составное) и разделить эти числа на два файла (в-первом файле записать простые числа, а во-втором файле записать составные). 0

	11.04.2017, 16:58

Работа с файлом. Проверка чисел - составное или простое

Решение