Из текста, расположенного в файле, удалить лишние пробелы, разделяющие слова

29.11.2012, 18:58. Показов 1667. Ответов 0

Метки нет (Все метки)

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

Из текста, расположенного в файле, удалить лишние пробелы, разделяющие слова.
Исходный код программы прилагается.
Я пытался, но почему-то не получается.
Доделайте программу, чтобы удаляла лишние пробелы.
Помогите пожалуйста!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program file2;
  type
    stroka=string[60];
    filename=string[10];
  var
    f: text;
    s: stroka;
    name: filename;
    i,k,n: byte;
begin
  writeln('введите имя файла');
  readln(name);
  k:=pos('.',name);
  if k=0
  then name:=name+'.txt';
  assign(f,name);            { создание текстового файла }
  rewrite(f);
  writeln('введите количество строк файла');
  readln(n);
  for i:=1 to n do
    begin
      writeln('введите',i:3,' строку файла');
      readln(s);
      writeln(f,s);
    end;
  close(f);
  {$I-}
  assign(f,name);
  reset(f);
  {$I+}                      { проверка наличия файла на диске }
  if ioresult<>0
  then writeln('нет такого файла')
  else begin
    writeln('строки исходного файла');
    writeln;
    while not seekeof(f) do  { чтение компонент файла   }
      begin
        readln(f,s);
        writeln(s);
      end;
  close(f);
  writeln;
       end;
  readln;
end.

Добавлено через 3 часа 42 минуты
Спасибо за вашу "помощь". Справился сам. Если кому-то надо, то нашел вот тут: Удалить из текстового файла лишние пробелы

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

29.11.2012, 18:58

Ответы с готовыми решениями:

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

Удалить лишние пробелы в текстовом файле
Здраствуйте!Пожалуйста помогите найти ошибку: Условие:Дан текстовый файл. Удалить из него все лишние пробелы, оставив между словами не...

Удалить из текста лишние пробелы
Напечатать заданный текст, удалив из него лишние пробелы, т.е. из нескольких подряд идущих пробелов оставить только один. Нужен код...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

29.11.2012, 18:58

Помогаю со студенческими работами здесь

Удалить из текста лишние пробелы
Дан текст, состоящий из слов, разделённый произвольным числом пробелов. Удалить из текста лишние пробелы, оставив по одному между словами.

Удалить из текста лишние пробелы
Здравствуйте, помогите решить такую задачу: нужно удалить из текста лишние пробелы-первый, если есть, и если между символами стоит более...

Удалить из текста лишние пробелы
Здравствуйте. Помогите написатьпрограмму на С. Удалить из текста лишние пробелы (между словами должен остаться только один пробел). И еще...

Удалить в файле лишние пробелы. (блок схема)
Здравствуйте народ! Помогите кто чем может. Нужно решить задачи на двух языках С++ и Pascal, и еще к задаче нужно сделать блок схему. ...

Нужно удалить все лишние пробелы в текстовом файле
во всем(не только в строке) Если через RichEdit. Помогите пожалуйста, везде есть решение для строки, а вот для всего текста я додуматься...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

Наверх