Удалить из файла числа на Pascal

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

Главная Форумы Программирование Программирование на Pascal Удалить из файла числа на Pascal

Помечено: 

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

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

    Текстовый файл, имеющий n строк, заполняется с клавиатуры. Удалить в нем все числа.

    program file_9;
    uses crt;
    var
      n, i: integer;
      s: string;
      f1, f2: text;
    begin
      clrscr; randomize;
      assign(f1, 'fail1');
      assign(f2, 'fail2');
      rewrite(f1); rewrite(f2);
      write('Количество строк > '); read(n);
      for i:=1 to n do
      begin
        write(i, ' строка > '); read(s);
        writeln(f1, s); writeln(f2, s);
      end;
      reset(f1); rewrite(f2);
      while not eof(f1) do
      begin
        readln(f1, s);
        i:=1;
        while i<=length(s) do
        begin
          if (ord(s[i])>47) and (ord(s[i])<58) then
          begin
            delete(s, i, 1);
            i:=i-1;
          end;
          i:=i+1;
        end;
        writeln(f2, s);
      end;
      reset(f2);
      writeln('Результат:');
      while not eof(f2) do
      begin
        readln(f2, s); writeln(s);
      end;
      close(f1); close(f2);
      readkey;
    end.

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