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

@Максим Шевченко · Регистрация: 21.04.2016

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

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

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

@volvo · 30.05.2016, 10:02

Для простоты (поскольку обратное не было указано в задании) будем считать, что в файле каждое слово - на отдельной строке. Тогда вот так:

Pascal

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.

@Максим Шевченко · 30.05.2016, 11:26 **[ТС]**

Низкий поклон вам

@Максим Шевченко 0 / 0 / 0 Регистрация: 21.04.2016 Сообщений: 8
		1
	За один просмотр файла создать новый файл, в который будут записаны все слова наибольшей длинны 29.05.2016, 19:16. Показов 1055. Ответов 2 Метки нет (Все метки) Спасите мой степарь, пожалуйста! Надо напистаь такую прожку: Создать текстовый файл. За один просмотр файла создать новый файл, в который будут записаны все слова наибольшей длинны. 0

@Максим Шевченко 0 / 0 / 0 Регистрация: 21.04.2016 Сообщений: 8
	30.05.2016, 11:26 [ТС]	3
	Низкий поклон вам 0

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

Решение