Если заданная последовательность символов встречается в символьном файле, то добавить в его конец заданные символы

@Ekaterina829 · Регистрация: 01.12.2017

Author24 — интернет-сервис помощи студентам

Дан символьный файл f. Если последовательность символов END встречается в файле хотя бы один раз,то добавить в его конец символы e,n,d.

@ZX Spectrum-128 · 16.12.2017, 15:10

Сообщение от Ekaterina829

добавить в его конец символы e,n,d.

Дан символьный файл f. Добавить в его конец символы e, n, d

@Cyborg Drone · 16.12.2017, 16:13

Программа по ссылке требует существенной переделки.

Сообщение от Ekaterina829

Дан

Следовательно, уже существует. Если нет, то создайте текстовый файл, например, с помощью блокнота, с соответствующим именем в соответствующем месте. Он вполне может интерпретироваться как символьный. Выводить файл на печать по заданию не требуется. Поэтому можно так:

Pascal

var
  f: file of char;
  e: string[3];
  c: char;
  i: integer;
 
begin
  e := 'XXX';
  assign(f, 'file.txt');
  reset(f);
  for i := 0 to FileSize(f) - 1 do
    begin
      read(f, c);
      delete(e, 1, 1);
      e := e + c;
      if e = 'END'
        then begin
          seek(f, FileSize(f));
          write(f, 'e', 'n', 'd');
          break
        end
    end;
  close(f)
end.

@Ekaterina829 0 / 0 / 0 Регистрация: 01.12.2017 Сообщений: 3
		1
	Если заданная последовательность символов встречается в символьном файле, то добавить в его конец заданные символы 16.12.2017, 13:24. Показов 1092. Ответов 2 Метки нет (Все метки) Дан символьный файл f. Если последовательность символов END встречается в файле хотя бы один раз,то добавить в его конец символы e,n,d. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	16.12.2017, 15:10	2
	Сообщение от Ekaterina829 добавить в его конец символы e,n,d. Дан символьный файл f. Добавить в его конец символы e, n, d 0

	16.12.2017, 16:13

Если заданная последовательность символов встречается в символьном файле, то добавить в его конец заданные символы

Решение