Страница 1 из 1
Помогите пожайлуста решить задание с текстовым файлом
Добавлено: 18 фев 2010, 10:56
MegaHandsome
1)Дан текстовый файл f.Преобразовать строки файла f по правилу - Выбрать строки,длина которых отличается от самой длинной строки не более чем на 5 символов.Преобразованные строки переписать в файл g.
Долго искал в интернете,но ничего похожего не нашёл...=/
Re: Помогите пожайлуста решить задание с текстовым файлом
Добавлено: 18 фев 2010, 16:10
dr.Jekill
Код: Выделить всё
var f,g:textfile;
tmp:String;
MaxLength:byte;
Count:integer;
begin
assign(f,'Исходный файл.txt');
reset(f);
Count:=0;
MaxLength:=0;
while not eof(f) do
begin
inc(Count);
readln(f,tmp);
if (Count=1) or (Length(tmp)>MaxLength) then MaxLength:=Length(tmp);
end;
assign(g,'Rez.txt');
rewrite(g);
reset(f);
while not eof(f) do
begin
readln(f,tmp);
if abs(Length(tmp)-MaxLength)<=5 then
writeln(g,tmp);
end;
closefile(f);
closefile(g);
end.
Re: Помогите пожайлуста решить задание с текстовым файлом
Добавлено: 19 фев 2010, 14:41
MegaHandsome
Большое спасибо))
Re: Помогите пожайлуста решить задание с текстовым файлом
Добавлено: 20 фев 2010, 02:31
dr.Jekill
Если Вам помогли, необходимо щелкнуть на шестиконечную звездочку (Reputation) в левом нижнем углу сообщения и выбрать "Одобряю"->"Добавить отзыв"
Re: Помогите пожайлуста решить задание с текстовым файлом
Добавлено: 20 фев 2010, 19:01
MegaHandsome
А у меня нету звёздочки под вашим сообщением...( Есть под моим,но под вашим почему-то нету(