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

netsky9 · 01.03.2014, 13:29

Задача такая: Дан текстовый файл 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 · 01.03.2014, 15:42

Цитата:

Сообщение от 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.

netsky9 · 01.03.2014, 18:44

Цитата:

Сообщение от 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.

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

01.03.2014, 13:29	#1 (permalink)
netsky9 Новичок Регистрация: 15.02.2014 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Файлы паскаль Задача такая: Дан текстовый файл 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.

01.03.2014, 13:29
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Возможно вам будет полезно обратить внимание на эти топики Паскаль, файлы Паскаль, файлы Паскаль, файлы Файлы в Паскаль Типизированные файлы, Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070