1 / 1 / 7
Регистрация: 04.12.2017
Сообщений: 74
1

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

04.12.2017, 22:13. Показов 2560. Ответов 1
Метки нет (Все метки)

Дан текстовый файл, содержащий строки. Напечатать заданный текст, удалив из него лишние пробелы, т.е. из нескольких подряд идущих пробелов оставить только один. Выполнить удаление в каждой строке
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2017, 22:13
Ответы с готовыми решениями:

Удалить из текста лишние пробелы (из нескольких подряд идущих пробелов оставить только один)
Вывести на экран заданный текст, удалив из него лишние пробелы, т.е. из нескольких подряд идущих...

Напечатать заданный текст, удалив из него лишние пробелы
Ребят,я начинающая программистка) помогите решить задачу на С Напечатать заданный текст, удалив из...

Напечатать заданный текст, удалив из него лишние пробелы
Только начали проходить, ещё ниче не понимаю... 1. Дана последовательность слов. Напечатать те...

Удалить в строке все лишние пробелы, то есть серии подряд идущих пробелов заменить на одиночные пробелы
Я уже решал эту задачу с помощью циклов и символьных массивов, и выкладывал на этот форум , но я не...

1
1 / 1 / 7
Регистрация: 04.12.2017
Сообщений: 74
10.12.2017, 13:36  [ТС] 2
Лучший ответ Сообщение было отмечено dim10102806 как решение

Решение

Вот правильный код
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
var a:array [1..100] of string;
f:text;
s,s1:string;
i,n,n1:integer;
begin
assign(f, 't1.txt');
reset(f);
while not eof(f) do begin
  readln (f,s);
  s:=s+' ';
  n1:=length(s);
  n:=0;
  i:=1;
  while (i<=n1) do begin
    s1:='';
    while (s[i]<>' ') do begin
      s1:=s1+s[i];
      i:=i+1;
    end;
    if (s1<>'') then begin
      n:=n+1;
      A[n]:=s1;
    end;
    i:=i+1;
  end;
  for i:=1 to n do
    write(A[i], ' ');    
    writeln();
  end;
  close(f);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2017, 13:36
Помогаю со студенческими работами здесь

В заданной строке удалить все лишние пробелы, заменяя несколько подряд идущих пробелов одним
Добрый день. Столкнулся с проблемой в программе. Пробелы удаляет, но если ввести пробелы перед...

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

Из каждой группы подряд идущих элементов оставить только один
Дан список строк. Написать подпрограмму, которая из каждой группы подряд идущих элементов оставляет...

Из каждой группы подряд идущих элементов оставить только один
Дан список строк. Написать подпрограмму, которая из каждой группы подряд идущих элементов оставляет...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru