VPF::Удалить из строки слова. - Форум программистов

Fighter

Дата 28.1.2006, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 810
Регистрация: 5.1.2005

Репутация: нет
Всего: 2

Задание. Надо ввести строку и удалить из нее слова начинающиеся с заданного символа.
Помогите пожалуйста.

karataev

Дата 28.1.2006, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 28.1.2006
Где: Россия, Нижний Но вгород

Репутация: нет
Всего: нет

Ну вот я тут быстренько накатал скелет smile

Код


 uses
       crt;
  var
      i   :byte;
      ch  :string[2];
      str :string;
begin
readln(str); {читаем строку}
readln(ch); {читаем символ, с которого должны начинаться удаляемые слова}
ch:=' '+ch;
str:=' '+str;
while pos(ch,str)>0 do  {функция pos(a,b) возвращает 0, если подстрока в строке не найдена,}
 begin                  {или если она найдена, возвращает номер символа в строке,}
 i:=pos(ch,str);        {где найден первый символ подстроки}
 delete(str,i,1);
 while (str[i]<>' ') and (i>0) do
  begin
  delete(str,i,1);                        {если находим, что слово начинается с заданного символа,}
  dec(i);
  if i<length(str) then inc(i) else i:=0; {удаляем по символу из слова, пока не встретим пробел}
  end;                                    {или конец строки}
 end;
if str[1]=' ' then delete(str,1,1); {убираем пробел в начале строки}
if str[length(str)]=' ' then delete(str,length(str),1); {убираем пробел в конце строки}
writeln(str); {выводим полученную строку}    
readln;    
end.

Но там если до ума доводить, нужно проверить длину введенной строки и т.п. чтобы ошибок не возникало... Ну а так - все работает!

P.S: Конечно же, имеется алгоритм разбивки текста на слова, но в данном случае я думаю, что мой вариант компактнее и предпочтительнее...

Это сообщение отредактировал(а) karataev - 28.1.2006, 15:32

UpL1nK

Дата 28.1.2006, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 102
Регистрация: 3.12.2005
Где: Тюмень

Репутация: нет
Всего: нет

Код



while pos(str,ch)<>0 do    
 begin    
 end;

Можно обьяснить что это ?

--------------------

Макс

karataev

Дата 28.1.2006, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Цитата

Можно обьяснить что это ?

Смотри выше, я сейчас все опишу подробно...

darkart

Дата 28.1.2006, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: нет
Всего: 31

Набросок...

Код


program DelWords;
procedure DeleteWords(var strText:string;chStart:char);
{процедура удаляет слова из строки strText, начинающиеся с символа chStart}
const
  Symbols=['a'..'z','A'..'Z'];{мн-во букв, в процедуре считается: что ни буква, то разделитель }
var
  i,start,len:integer;{i-счетчик,start-начало удаления,len-длина(или текста или слова)}
  strWord:string;{очередное слово}
begin
  i:=1;{на начало строки}
  len:=Length(strText);{вычисление длины текста}
  while i<=len do{пока не конец строки}
  begin
    strWord:='';{игициализация пустым словом}
    while (i<=len) and not (strText[i] in Symbols) do{пока не буква или не конец строки}
      inc(i);{следующий символ}
    start:=i;{запоминаем начало}
    while(i<=len) and (strText[i] in Symbols) do{пока буква}
    begin
      strWord:=strWord+strText[i];{добавляем к слову очередную букву}
      inc(i);{следующий символ}
    end;
    len:=Length(strWord);{вычисляем длину слова}
    if len>0 then{если в слове есть хотя бы одна буква}
      if strWord[1]=chStart then{если первый символ слова совпадает с нужным}
      begin
        Delete(strText,start,len);{удаляем начиная с позиции start, длиной в длину слова}
        i:=i-len;{раз слово вырезали нужно перейти назад на его длину}
      end;
    len:=Length(strText);{вычисляем длину текста}
  end;
end;
var
  strText:string;{текст}
  ch:char;{вводимый символ}
begin
  writeln('Please enter a text:');
  readln(strText);
  writeln('Please enter a first symbol of deleting words:');
  readln(ch);
  DeleteWords(strText,ch);
  writeln('String without words:');
  writeln(strText);
  readln;
end.

volvo877

Дата 28.1.2006, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

karataev,
я бы все-таки заменил все While на Repeat ... Until, чтобы одни и те же действия не повторять дважды:

Код


uses crt;
var
  i: byte;
  ch: char;
  str: string;
begin
  readln(str); { str := 'this is a simple test of working...'; }
  readln(ch); { ch := 't'; }

  str := ' ' + str;
  repeat

    i := pos(' ' + ch, str);
    if i > 0 then
      repeat
        delete(str,i,1);
        dec(i);
        if i < length(str) then inc(i) else i := 0;
      until (str[i] = ' ') or (i = 0);

  until i = 0;
  if str[1] = ' ' then delete(str, 1, 1);
  if str[length(str)] = ' ' then delete(str, length(str), 1);
  writeln(str);
  readln;
end.

Fighter

Дата 28.1.2006, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 810
Регистрация: 5.1.2005

Репутация: нет
Всего: 2

Спасибо всем, я уже сам написал. Вот моё решение:

Код


Uses crt;

var
  s: string;
  c: char;
  i,m: integer;

begin
  clrscr;
  write('‚¢¥¤¨â¥ áâà®ªã: '); {Vvedite stroky}
  readln(s);
  s := s + ' ';
  write('‚¢¥¤¨â¥ á¨¬¢®«: '); {Vvedite simvol}
  readln(c);
  i := 1;
  m := 1;
  while i <= Length(s) do
  begin
    if s[i] = c then
    begin
      while (s[i] <> ' ') do
        delete(s, i, 1);
    end;
    inc(i);
  end;
  while s[1] = ' ' do
    delete(s, 1, 1);
  while s[Length(s)] = ' ' do
    delete(s, Length(s), 1);
  i := 1;
  while i <= Length(s) do
  begin
    if s[i] = ' ' then
      while s[i+1] = ' ' do
        delete(s, i+1, 1);
    inc(i);
  end;
  write(s);
  readkey;
end.

karataev

Дата 28.1.2006, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Длинное какое-то у тебя решение... Думаю, здесь были варианты получше smile

Fighter

Дата 29.1.2006, 02:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 810
Регистрация: 5.1.2005

Репутация: нет
Всего: 2

Цитата(karataev @ 28.1.2006, 22:01

)

Длинное какое-то у тебя решение... Думаю, здесь были варианты получше

Ну, если выкинуть отсюда нормализацию строки (это с 26 по 37) то работать тоже будет только будет выводить результат не красиво (попробуй сам вот так скомпилить без этих 11 строк посмотри что будет.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »