[закрыть]

Регистрация на сайте

Если вы уже зарегистрированы, пожалуйста войдите на сайт!
Email:
Имя (ник):
Пароль:
Повторите пароль:
  
Защита от роботов:

Плохо видно


Turbo Pascal (файлы)

В символьном файле записаны слова, разделенные пробелами. Удалить из файла слова, состоящие менее чем из трех букв, и лишние пробелы. Мой исходник: program zz; var file:file of char; begin assign(file,'file.txt'); rewrite(file); writeln('Ведите строку слов:'); read(file); i:=i+1; while not eof(file) do begin while not eof(file) do i:=i+1 if file(i)=' ' then k:=i+1; delete(file;i,j) end; end. Все вроде бы шло гладко но вот остановилсяна проблеме запоминания позицый пробелов... Внесите пожалуйстакорективы



Знаю верный ответ Найти ответ на вопрос



Ключевые слова: pascal удалить файл, удалить все пробелы из файла, замена в файле pascal,

3 ответа к вопросу “Turbo Pascal (файлы)”

  • ответ #0 / ответил: Служба поддержки

    • ответ #1 / ответил: ormandiore
      Полезный ответ? Да (0) / Нет (0)


      Ну ты читай один файл, пиши в другой. А потом в случае необходимости замени старый файл новым. Либо просто выведи на экран новый файл.



      Ответить

    • ответ #2 / ответил:
      Полезный ответ? Да (0) / Нет (0)


      С пробелом у тебя проблема, вглядись в свою логическую ошибку, она у тебя в конце проги.



      Ответить

Ответить на вопрос


Не хотите вводить проверочный код? Пройдите регистрацию!
Проверочный код:

обновить картинку

Статистика

  • © 2010-2011. Копирование материалов с сайта строго запрещено
  • Не нашли ответ? задай свой вопрос