Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Максим Шевченко
0 / 0 / 0
Регистрация: 21.04.2016
Сообщений: 8
1

За один просмотр файла создать новый файл, в который будут записаны все слова наибольшей длинны

29.05.2016, 19:16. Просмотров 730. Ответов 2
Метки нет (Все метки)

Спасите мой степарь, пожалуйста! Надо напистаь такую прожку:

Создать текстовый файл. За один просмотр файла создать новый файл, в который будут записаны все слова наибольшей длинны.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2016, 19:16
Ответы с готовыми решениями:

Переобразовать массив, увеличив все его серии наибольшей длинны на один элемент
Помогите пожалуйста... Дан целочисленный массив размера n. Переобразовать массив, увеличив все...

Используя стек, создать другой текстовый файл, в котором числа будут записаны в обратном порядке - Free Pascal
Создать текстовый файл, содержащий текстовую и числовую информацию. Используя стек, создать другой...

Удалить из файла все слова чётной длинны
Дан файл, состоящий из символов (типизированый, прямой доступ). Удалить из него все слова чётной...

Напечатать все элементы файла, в котором записаны отдельные слова
Напечатать все элементы файла, в котором записаны отдельные слова. Известно, что в существующем...

За один просмотр файла вывести сначала все числа, меньшие а
Товарищи, помогите написать программу. С меня вознаграждение в размере 100-150 рублей. Условие...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26101 / 17501 / 6943
Регистрация: 22.10.2011
Сообщений: 30,827
Записей в блоге: 6
30.05.2016, 10:02 2
Лучший ответ Сообщение было отмечено volvo как решение

Решение

Для простоты (поскольку обратное не было указано в задании) будем считать, что в файле каждое слово - на отдельной строке. Тогда вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  fin, fout : text;
  s : string;
  maxlen : integer;
begin
  assign(fin, 'd:\test\file_01.txt'); reset(fin);
  assign(fout, 'd:\test\file_011.txt'); rewrite(fout);
  maxlen := 0;
  while not seekeof(fin) do // вот он, один проход...
  begin
    readln(fin, s);
    if length(s) < maxlen then continue;
 
    if length(s) > maxlen then rewrite(fout);
    maxlen := length(s);
    writeln(fout, s);
  end;
  close(fin);
  close(fout)
end.
1
Максим Шевченко
0 / 0 / 0
Регистрация: 21.04.2016
Сообщений: 8
30.05.2016, 11:26  [ТС] 3
Низкий поклон вам
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2016, 11:26

Создать строковый файл и записать в него , все слова длины К из исходного файла.
Помогите написать програмку на Паскаль! Дано целое число К и текстовый файл .Создать строковый...

Получение нового текстового файла, в котором все слова во всех предложениях записаны в обратном порядке
Запрограммировать получение нового текстового файла, в котором все слова во всех предложениях...

Создать строковый файл и запи-сать в него все слова длины K из исходного файла
Text31. Дано целое число K и текстовый файл. Создать строковый файл и запи- сать в него все слова...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru