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

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

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

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

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

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

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

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

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

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

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25610 / 17163 / 6825
Регистрация: 22.10.2011
Сообщений: 30,360
Записей в блоге: 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