Файлы паскаль

[netsky9]

Файлы паскаль

Задача такая: Дан текстовый файл f. Получить самую длинную строку файла. Если в файле имеется несколько строк с наибольшей длиной, то получить одну из них и записать в новый файл.

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

Var
f1,f2:Text;
s:string;
max:integer;

Begin
max:=1;
Assign(f1,'C:\Program Files\PABC\readme.txt');
Reset(f1);
Assign(f2,'C:\Program Files\PABC\f1.txt');
Rewrite(f2);
while not eof(f1) do
begin
readln(f1,s);
if max<length(s) then
max:=length(s);
while not eof(f1) do
begin
repeat
readln(f1,s);
if length(s)=max then Write(f2,s);
Until EoF(f1);
end;
end;
Close(f1);
Close(f2);
End.

 

[Vladimir_S]

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

А потому что с циклами черт-те что наворотили! Попробуйте так:

Var
 f1,f2:Text;
 s:string;
 max:integer;

Begin
 max:=1;
 Assign(f1,'C:\Program Files\PABC\readme.txt');
 Reset(f1);
 Assign(f2,'C:\Program Files\PABC\f1.txt');
 Rewrite(f2);
 while not eof(f1) do
  begin
   readln(f1,s);
   if max<length(s) then max:=length(s);
  end;
 Reset(f1);
 repeat
  readln(f1,s);
  if length(s)=max then Writeln(f2,s);
 until length(s)=max;
 Close(f1);
 Close(f2);
End.

 

[netsky9]

А потому что с циклами черт-те что наворотили! Попробуйте так:

Var
 f1,f2:Text;
 s:string;
 max:integer;

Begin
 max:=1;
 Assign(f1,'C:\Program Files\PABC\readme.txt');
 Reset(f1);
 Assign(f2,'C:\Program Files\PABC\f1.txt');
 Rewrite(f2);
 while not eof(f1) do
  begin
   readln(f1,s);
   if max<length(s) then max:=length(s);
  end;
 Reset(f1);
 repeat
  readln(f1,s);
  if length(s)=max then Writeln(f2,s);
 until length(s)=max;
 Close(f1);
 Close(f2);
End.

:tehnari_ru_288: Спасибо!!! очень помогли, буду разбираться с файлами дальше.