Удалить слова из данного файла, длина которых превышает данное число n

@alex245bl · Регистрация: 09.12.2018

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

Помогите пожалуйста написать программу на паскале.
Дан текстовый файл.Удалить слова из данного файла, длина которых превышает данное число n, если таких строк нет, то заменить третью строку, строкой введенной пользователем.

@ZX Spectrum-128 · 17.12.2018, 12:25

Pascal

var
  F1, F2: Text;
  s, st: string;
  n, k: integer;
 
begin
  k := 0;
  Assign(F1, 'f1.txt');
  Assign(F2, 'f2.txt');
  Reset(F1); 
  Rewrite(F2); 
  write('Введите число N: ');
  readln(n);
  write('Введите строку: ');
  readln(st);
  while not eof(f1) do
  begin
    Readln(F1, s); 
    inc(k);
    if length(s) <= n then
    begin
      if k = 3 then
        s := st;
      Writeln(f2, s); 
    end;
  end;
  Close(F1);
  Close(f2);
  reset(f2);
  while not eof(f2) do
  begin
    Readln(F2, s); 
    Writeln(s); 
  end;
  Close(f2);
end.

@alex245bl 0 / 0 / 0 Регистрация: 09.12.2018 Сообщений: 5
		1
	Удалить слова из данного файла, длина которых превышает данное число n 09.12.2018, 13:47. Показов 1767. Ответов 1 Метки нет (Все метки) Помогите пожалуйста написать программу на паскале. Дан текстовый файл.Удалить слова из данного файла, длина которых превышает данное число n, если таких строк нет, то заменить третью строку, строкой введенной пользователем. 0

	17.12.2018, 12:25

Опции темы

Удалить слова из данного файла, длина которых превышает данное число n

Решение