Помогите пожалуйста исправить задачу на строки, Паскаль

Lucy · 30.10.2011, 16:26

Помогите пожалуйста решить задачу: в каждом слове строки удалить символы, совпадающие с первым символом слова.
Я написала программу, но она не работает: в первом слове удаляет символы, совпадающие с первым, а дальше удаляет символы, совпадающие с первым символом второго слова(даже если слов больше чем 2) и если ввести подряд несколько совпадающих символов, то удаляется только половина.

Программа:

uses crt;
var s:string;
c:char;
i:integer;
begin
readln(s);
while s[1]=' ' do
delete(s,1,1);
c:=s[1];
for i:=2 to length(s) do
if s[i]<>' ' then
begin
if s[i]=c then delete(s,i,1);
end
else
begin
c:=s[i+1];
i:=i+2;
while s[i]<>' ' do
begin
if s[i]=c then delete(s,i,1);
i:=i+1;
end;
end;
write(s);
end.

Vladimir_S · 30.10.2011, 18:03

Цитата:

Сообщение от Lucy

Помогите пожалуйста решить задачу: в каждом слове строки удалить символы, совпадающие с первым символом слова. Я написала программу, но она не работает: в первом слове удаляет символы, совпадающие с первым, а дальше удаляет символы, совпадающие с первым символом второго слова(даже если слов больше чем 2) и если ввести подряд несколько совпадающих символов, то удаляется только половина. Программа:

Чего-то Вы там явно лишнего накрутили. Я бы решил так (проверено):

Код:

var
 s:string;
 c:char;
 i:integer;
begin
 writeln('Enter the string:');
 readln(s);
 while s[1]=' ' do
  delete(s,1,1);
 i:=0;
 Repeat
  inc(i);
  c:=s[i];
  repeat
   inc(i);
   if s[i]=c then
    begin
     delete(s,i,1);
     dec(i);
    end;
  until (s[i]=' ') or (i=length(s));
 Until i=length(s);
 writeln(s);
 readln
end.

Lucy · 30.10.2011, 20:06

Спасибо большое, всё работает!

30.10.2011, 16:26	#1 (permalink)
Lucy Новичок Регистрация: 30.10.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста исправить задачу на строки, Паскаль Помогите пожалуйста решить задачу: в каждом слове строки удалить символы, совпадающие с первым символом слова. Я написала программу, но она не работает: в первом слове удаляет символы, совпадающие с первым, а дальше удаляет символы, совпадающие с первым символом второго слова(даже если слов больше чем 2) и если ввести подряд несколько совпадающих символов, то удаляется только половина. Программа: uses crt; var s:string; c:char; i:integer; begin readln(s); while s[1]=' ' do delete(s,1,1); c:=s[1]; for i:=2 to length(s) do if s[i]<>' ' then begin if s[i]=c then delete(s,i,1); end else begin c:=s[i+1]; i:=i+2; while s[i]<>' ' do begin if s[i]=c then delete(s,i,1); i:=i+1; end; end; write(s); end.

30.10.2011, 16:26
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Аналогичные темы уже тут встречались, вот их список Помогите решить задачу по C++, пожалуйста Open GL, пожалуйста, помогите исправить ошибки в программе

30.10.2011, 20:06	#3 (permalink)
Lucy Новичок Регистрация: 30.10.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое, всё работает!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070