Замена сиволов в файле на Pascal

      Комментарии к записи Замена сиволов в файле на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Замена сиволов в файле на Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 4 мес., 4 нед. назад.

  • Автор
    Сообщения
  • #3763

    Дан текстовый файл, состоящий из N строк. Организовать замену символов в файле. «Старый» и «новый» символы вводятся с клавиатуры.

    program file_3;
    uses crt;
    var
      n, i: integer;
      s: string;
      c1, c2: char;
      f1, f2: text;
    begin
      clrscr;
      assign(f1, 'fail1.txt');
      assign(f2, 'fail2.txt');
      rewrite(f1);
      write('Количество строк > '); read(n);
      for i:=1 to n do
      begin
        write(i, ' строка > '); read(s);
        writeln(f1, s);
      end;
      reset(f1); rewrite(f2);
      write('Убрать символ > '); read(c1);
      write('Вставить символ > '); read(c2);
      while not eof(f1) do
      begin
        readln(f1, s);
        for i:=1 to length(s) do
          if s[i]=c1 then
            write(f2, c2)
          else write(f2, s[i]);
        writeln;
      end;
      reset(f2);
      writeln('Результат:');
      while not eof(f2) do
      begin
        readln(f2, s);
        writeln(s)
      end;
      close(f1); close(f2);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.