+ Ответить в теме
Показано с 1 по 5 из 5

Тема: Помогите пожайлуста решить задание с текстовым файлом

  1. #1
    dummy MegaHandsome is on a distinguished road
    Регистрация
    18.02.2010
    Возраст
    27
    Сообщений
    5
    Вес репутации
    0

    Unhappy Помогите пожайлуста решить задание с текстовым файлом

    1)Дан текстовый файл f.Преобразовать строки файла f по правилу - Выбрать строки,длина которых отличается от самой длинной строки не более чем на 5 символов.Преобразованные строки переписать в файл g.
    Долго искал в интернете,но ничего похожего не нашёл...=/

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    Moderator Куратор
    system architect
    dr.Jekill will become famous soon enough dr.Jekill will become famous soon enough
    Регистрация
    03.01.2009
    Адрес
    Voronezh
    Сообщений
    507
    Вес репутации
    12

    По умолчанию Re: Помогите пожайлуста решить задание с текстовым файлом

    Код :
    1. var f,g:textfile;
    2.     tmp:String;
    3.     MaxLength:byte;
    4.     Count:integer;
    5. begin
    6.  assign(f,'Исходный файл.txt');
    7.  reset(f);
    8.  Count:=0;
    9.  MaxLength:=0;
    10.  while not eof(f) do
    11.   begin
    12.    inc(Count);
    13.    readln(f,tmp);
    14.    if (Count=1) or (Length(tmp)>MaxLength) then MaxLength:=Length(tmp);  
    15.   end;
    16.  assign(g,'Rez.txt');
    17.  rewrite(g);
    18.  reset(f);
    19.  while not eof(f) do
    20.   begin
    21.    readln(f,tmp);
    22.    if abs(Length(tmp)-MaxLength)<=5 then
    23.    writeln(g,tmp);
    24.   end;
    25.  closefile(f);
    26.  closefile(g);
    27. end.
    Нет религии выше истины

  4. #3
    dummy MegaHandsome is on a distinguished road
    Регистрация
    18.02.2010
    Возраст
    27
    Сообщений
    5
    Вес репутации
    0

    По умолчанию Re: Помогите пожайлуста решить задание с текстовым файлом

    Большое спасибо))

  5. #4
    Moderator Куратор
    system architect
    dr.Jekill will become famous soon enough dr.Jekill will become famous soon enough
    Регистрация
    03.01.2009
    Адрес
    Voronezh
    Сообщений
    507
    Вес репутации
    12

    По умолчанию Re: Помогите пожайлуста решить задание с текстовым файлом

    Если Вам помогли, необходимо щелкнуть на шестиконечную звездочку (Reputation) в левом нижнем углу сообщения и выбрать "Одобряю"->"Добавить отзыв"
    Нет религии выше истины

  6. #5
    dummy MegaHandsome is on a distinguished road
    Регистрация
    18.02.2010
    Возраст
    27
    Сообщений
    5
    Вес репутации
    0

    По умолчанию Re: Помогите пожайлуста решить задание с текстовым файлом

    А у меня нету звёздочки под вашим сообщением...( Есть под моим,но под вашим почему-то нету(

+ Ответить в теме

Похожие темы

  1. Задача с текстовым файлом
    Добрый день, помогите с алгоритмом. вот задача: Дан текстовый файл. Длина строк произвольна. Слова в строках отделены друг от друга одним или...
    от PetrovVasya в разделе Алгоритмы
  2. Работа с текстовым файлом.
    С помощью какого кода SQL, я могу произвести поиск('слова') в текстовом файле(с расширением .txt) расположенном на жёстком диске? Всем...
    от ORA-01403: в разделе SQL
  3. Помогите составить программу работающую с текстовым файлом...
    Задача программы : 1. Программа дополняет существующие файлы информацией; 2. Выводит на экран существующие файлы; 3. Выводит на экран строку,...
    от skynet в разделе Решите мне задачку
  4. Работа с текстовым файлом
    Есть текстовый файл text.txt, где есть несколько фраз. Вопрос: КАК заставить прогу, написаную на Borland 5.02, выводить определённую фразу из...
    от Feniksa в разделе C и C++
  5. Пожайлуста, помогите решить 2 задачки для экзамена!!!!
    На файлы Написать программу, которая считывает текстовый файл, выравнивает содержащийся в нем текст по правой границе и выводит результат в другой...
    от Wudro в разделе Решите мне задачку

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения