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

Обработка файлов. Типизированные файлы

11.10.2017, 21:54. Показов 542. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составьте программу, определяющую чаще всего встречающуюся компоненту файла f.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.10.2017, 21:54
Ответы с готовыми решениями:

Обработка файлов. Текстовые файлы
Создайте текстовый файл р, разбитый на непустые строки. Составьте программу, удаляющую строку под известным номером из текста.

Типизированные файлы
Помогите с составлением кода по теме типизированные файлы. Тоже условие задачи по теме Записи(STRING) у меня есть. Как связать это с...

Типизированные файлы
Ввести файл F1 . Записать в файл F2 компоненты файла F1 в обратном порядке. В каждом из файлов элемент, стоящий справа от максимума...

5
 Аватар для JuriiMW
5090 / 2659 / 2352
Регистрация: 10.12.2014
Сообщений: 10,055
12.10.2017, 07:02
Что за файл такой „f“?
0
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
12.10.2017, 07:49
Определить чаще всего встречающуюся компоненту файла
0
0 / 0 / 0
Регистрация: 04.05.2017
Сообщений: 58
16.10.2017, 15:00  [ТС]
просто файла, файл и это f, при его описании
0
Alvin Seville
 Аватар для Соколиный глаз
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
16.10.2017, 16:05
Например, так:
Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
const
  Path1 = 'C:\Ilya\AlgoРитмы\Файл1.txt';
 
begin
  Writeln(ReadAllLines(Path1).SelectMany(x->x.ToWords()).GroupBy(x -> x).OrderByDescending(x -> x.Count()).First.Key);
end.
Добавлено через 2 минуты
Для файла:
1 2
2
4 2
5
1 7 2
5
1 3 2

Выведет 2.

Добавлено через 3 минуты
Но это не для типизированных файлов. Для типизированных подумаю ща.

Добавлено через 4 минуты
Для типизированных, вроде так:
Pascal
1
2
3
4
5
6
const
  Path1 = 'C:\Ilya\AlgoРитмы\Файл1.txt';
 
begin
  Writeln(System.IO.File.ReadAllBytes(Path1).GroupBy(x -> x).OrderByDescending(x -> x.Count()).First.Key);
end.
Добавлено через 1 минуту

Не по теме:

Хотя, я не уверен, но хотел бы узнать, если мой вариант неверный, правильный ответ, например от volvo.

0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33116 / 21412 / 8219
Регистрация: 22.10.2011
Сообщений: 36,746
Записей в блоге: 9
16.10.2017, 17:04
Цитата Сообщение от Volobuev Ilya Посмотреть сообщение
но хотел бы узнать, если мой вариант неверный, правильный ответ
Твой вариант верен только для file of byte. Для любого другого типа компонент будут проблемы. Скажем, если файл целых (file of integer) создавался вот так:

Pascal
1
2
3
4
5
6
7
8
var 
  f : file of integer;
  
begin
  assign(f, 'x.dat'); reset(f);
  write(f, 1, 2, 3, 4, 2, 5, 1, 7, 2, 5, 1, 3, 2);
  close(f);
end.
, то обрабатывать его нужно, приводя каждые sizeof(integer) последовательных байт к integer-у, и только потом уже делать всё остальное:
Pascal
1
2
3
4
begin
  Writeln(System.IO.File.ReadAllBytes('x.dat').Batch(sizeof(integer), v -> System.BitConverter.ToInt32(v.ToArray, 0)).
    GroupBy(x -> x).OrderByDescending(x -> x.Count()).First.Key);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.10.2017, 17:04
Помогаю со студенческими работами здесь

типизированные файлы
Добрый ВЕЧЕР!Запарился с задачкой, помогите мне пожалуйста! Задан файл содержащий фамилию,группу и 3 оценки студентов. Найти...

Типизированные файлы
1. Дан файл SCHOOL, в котором содержится информация о школьниках: 1) Ф.И.О. 2) год рождения, месяц, число 3) оценки экзаменов ...

Типизированные файлы
Создать файл F1, компонентами которого являются целочисленные массивы a1,.., a10, закрыть его. Затем считать массивы из файла и за-писать в...

типизированные файлы
сделал программу БД библиотеки..но не могу сделать следующее: 1)процедуры : 1)определить кол-во книг определенного автора; 2)определить...

Типизированные файлы
Эту задачу уже решали и она правильно решена! Только мне нужно чтобы в этой задаче использовалась Procedura. Задание:Дан файл...


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

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

Новые блоги и статьи
Вопросы на собеседованиях по микросервисам
ArchitectMsa 27.03.2025
Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .
Взаимодействие Python с REST API
py-thonny 27.03.2025
REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .
sshd restrictions, ssh access limitations
jigi33 26.03.2025
sshd restrictions | ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel
Компиляция C++ с Clang API
NullReferenced 24.03.2025
Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .
Многопоточное программировани­е в C#: Класс Thread
UnmanagedCoder 24.03.2025
Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями
mobDevWorks 23.03.2025
При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .
Моки в Java: Сравниваем Mockito, EasyMock, JMockit
Javaican 23.03.2025
Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов
ArchitectMsa 22.03.2025
Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов
GameUnited 22.03.2025
Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .
Образование и практика
Igor3D 21.03.2025
Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru