0 / 0 / 0
Регистрация: 13.02.2017
Сообщений: 1
1

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

10.04.2017, 20:54. Показов 1468. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый вечер! Прошу помощи в решении задачи.
ТЗ: Имеется исходный текстовый файл, в котором записано некоторое количество любых целых чисел. Необходимо проверить числа в файле (определить простое или составное) и разделить эти числа на два файла (в-первом файле записать простые числа, а во-втором файле записать составные).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.04.2017, 20:54
Ответы с готовыми решениями:

Определить, простое или составное введённое число
Помогите создать программу,которая при введении любого числа показывает: простое или составное это...

Определить введенное число простое или составное
Определить введенное число простое или составное. Очень нужна... Можно на мыло jiehuh-das@ya.ru

Что больше - минимальное простое число в матрице или максимальное составное?
4. Дана матрица А(3,4). Что больше: минимальное простое число в ней или максимальное составное?...

Число простое или составное - проверка
Помогите, пожалуйста, студентке! Программа должна проверять, простое число ввел пользователь, или...

2
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
10.04.2017, 21:14 2
Лучший ответ Сообщение было отмечено Klays90 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
33022 / 21323 / 8186
Регистрация: 22.10.2011
Сообщений: 36,629
Записей в блоге: 9
11.04.2017, 16:58 3
По мне - так проще было бы сразу пробежаться по всем числам, и разделить их на 2 части: простые и составные, а потом просто записать каждую часть отдельно в файл, чем делать одну и ту же операцию с противоположными условиями над общей последовательностью чисел.

Pascal
1
2
3
4
5
6
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.
0
11.04.2017, 16:58
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
11.04.2017, 16:58
Помогаю со студенческими работами здесь

Простое или составное
Недавно создавал тему по поводу задачки из олимпиады. Вот еще одна. Решить я ее решил но опять же...

Простое или составное число
Не могу понять, почему мой код не работает Если ввожу, например, 13 пишет, что это составное число...

Простое или составное число
При проверке чисел 9 и 15 прога выдает результат, что они простые. И не знаю как засунуть 1 и 2 для...

Как проверить - простое число или составное
Доброго времени суток! понять не могу, как проверить простое оно или составное? так и писать:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Как узнать директорию bash-скрипта из самого bash-скрипта
InfoMaster 20.01.2025
При разработке bash-скриптов одной из важных задач является определение директории, в которой находится исполняемый скрипт. Это критически важно для корректной работы с файлами, загрузки конфигураций. . .
В чем разница между let и var в JavaScript
InfoMaster 20.01.2025
JavaScript прошел длинный путь эволюции с момента своего создания в 1995 году. Одним из важнейших аспектов развития языка стало совершенствование механизмов объявления и управления переменными. . . .
Эффективная работа со строками в Go
InfoMaster 20.01.2025
Язык программирования Go предлагает уникальный подход к работе со строками, который существенно отличается от многих других языков программирования. В Go строки представляют собой неизменяемые. . .
Как проверить, что отображение (map) содержит ключ в Go
InfoMaster 20.01.2025
Отображения (maps) в языке программирования Go представляют собой мощные структуры данных, которые позволяют хранить пары ключ-значение и обеспечивают быстрый доступ к данным по уникальным. . .
Как организовать домашнее хранилище фильмов с общим доступом для всей семьи
InfoMaster 20.01.2025
Преимущества домашнего медиасервера В современном мире, где цифровой контент стал неотъемлемой частью нашей жизни, организация домашнего медиасервера становится все более актуальной задачей. . . .
Перспективы развития жестких дисков: есть ли у них будущее?
InfoMaster 20.01.2025
История и эволюция жестких дисков История развития жестких дисков начинается в 1956 году, когда компания IBM представила первое устройство для хранения данных на магнитных пластинах - IBM 350. . .
Распознавание изображений (компьютерное зрение) на C++
InfoMaster 20.01.2025
Введение в компьютерное зрение и основы работы с изображениями Компьютерное зрение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, позволяющую. . .
Какой язык программировани­я лучший для разработки нейронных сетей
InfoMaster 20.01.2025
В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .
Как подключить JavaScript файл в другом JavaScript файле
InfoMaster 20.01.2025
В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .
Как откатить изменения в исходниках, не внесенные в Git
InfoMaster 20.01.2025
При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .
В чем разница между px, in, mm, pt, dip, dp, sp
InfoMaster 20.01.2025
В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .
Как изменить адрес удалённого репозитория (origin) в Git
InfoMaster 20.01.2025
В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru