Удалить из текста лишние пробелы

@Collmen · Регистрация: 19.03.2011

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

@Puporev · 19.03.2011, 17:01

Можно и без строк, раз строковые функции нельзя.

Pascal

uses crt;
var s:array[1..1000] of char;
    n,i,j:integer;
    c:char;
begin
clrscr;
writeln('Введите текст, содержащий пробелы, окончание ввода точка');
n:=0;
repeat
c:=readkey;
write(c);
n:=n+1;
s[n]:=c;
if c='.' then writeln;
until c='.';
i:=1;
while i<n do
if(s[i]=' ')and((i=1)or(s[i+1]=' '))then
 begin
  for j:=i to n-1 do
  s[j]:=s[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Текст без лишних пробелов:');
for i:=1 to n do
write(s[i]);
readln
end.

@Collmen 0 / 0 / 0 Регистрация: 19.03.2011 Сообщений: 7
		1
	Удалить из текста лишние пробелы 19.03.2011, 13:38. Показов 2254. Ответов 1 Метки нет (Все метки) Здравствуйте, помогите решить такую задачу: нужно удалить из текста лишние пробелы-первый, если есть, и если между символами стоит более одного пробела, то удалить их, оставив лишь один пробел. Функции DELETE, COPY использовать нельзя. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Удалить из текста лишние пробелы

Решение