Переписать текстовый файл в 5 новых. - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите, пожалуйста, написать программу. Пусть дан текстовый файл. Максимальная длина слова в этом файле равна пяти символам. Создайте пять файлов. Каждой строке входного файла соответствует одна строка в каждом из пяти файлов, в которые переписаны через пробел слова соответствующей длины : в первом файле - слова длины 1, во втором - слова длины 2 и т.д. Если слов длины K нет, то соответствующая строка K-го должна быть пустой. Даже не понимаю с чего тут начать((

Решение задачи: «Переписать текстовый файл в 5 новых.»

textual
Листинг программы
  1. const n=5;
  2. var
  3.   f: array [0..n] of Text;
  4.   s, w: String;
  5.   i: Integer;
  6. begin
  7.   Assign(f[0],'0.txt'); Reset(f[0]);
  8.   for i:=1 to n do begin
  9.     Assign(f[i],Chr(Ord('0')+i)+'.txt'); Rewrite(f[i]);
  10.   end;
  11.   while not eof(f) do begin
  12.     Readln(f,s);
  13.     while Pos('  ',s)>0 do Delete(s,Pos('  ',s),1);
  14.     if s[1]=' ' then Delete(s,1,1);
  15.     if s[length(s)]<>' 'then s:=s+' ';
  16.     while Pos(' ',s)>0 do begin
  17.       w:=Copy(s,1,Pos(' ',s)-1);
  18.       if Length(w) in [1..n] then Write(f[Length(w)],' ',w);
  19.       Delete(s,1,Pos(' ',s));
  20.     end;
  21.     for i:=1 to n do WriteLn(f[i]);
  22.   end;
  23.   for i:=0 to n do Close(f[i]);
  24.   WriteLn('Файл прочитан и переписан в ',n,' файлов');
  25. end.

Объяснение кода листинга программы

  1. Объявлены следующие переменные:
    • f: массив из 5 текстовых файлов
    • s, w: строки
    • i: целое число
  2. Первый файл (0.txt) открывается на чтение, остальные файлы (от 1 до 5) открываются на запись.
  3. В цикле до тех пор, пока не достигнут конец файла, происходит чтение строк из первого файла.
  4. В каждой строке удаляются пробелы в начале и в конце.
  5. Если в строке есть пробелы, они удаляются, кроме последнего.
  6. Каждая строка записывается в соответствующий файл.
  7. После завершения чтения всех строк, файлы закрываются.
  8. Выводится сообщение о том, что файл прочитан и переписан в 5 новых файлов.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.455 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы