Консультация онлайн # 160944

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Orlova Svetlana Stanislavovna
Дата: 19.02.2009, 23:55 Консультация неактивна
Поступило ответов: 1
Пожалуйста помогите составить две программы:
1)Определить количество слов, которые начинаються с буквы, которой заканчиваеться предыдущее слово. Слова отделены пробелами.
2)В данной матрице заменить K строчку и L столбец нулями, кроме элемента, находящегося на их пересечении

Ответ # 1, Minin (Посетитель)

Здравствуйте, Orlova Svetlana Stanislavovna!

В первой программе перебираем символы, и если пробел, а вокруг два одинаковых символа, то счетчик слов увеличиваем на 1

Во второй программе решено через boolean переменную если выполняется условие то меняем значение на противоположное. когда оба условия - значение исходное. если значение ложь, то эта ячейка 0.

Приложение:


Minin

Посетитель
20.02.2009, 09:11
Нет оценки ответа

Мини-форум консультации # 160944

Шевченко Дмитрий

177087

= общий =    20.02.2009, 11:49
Насчёт задачи №1:
Если слова могут отделяться друг от друга не одним, а несколькими пробелами, то правильнее будет использовать следующий код (он сначала удалит по два идущих подряд пробела):
Код
{...}
  if length(s)>3 then
    begin
      While pos('  ',s)>0 do{удаляем по два идущих подряд пробела}
        delete(s,pos('  ',s),1);
      for i:=2 to length(s)-1 do
        if (s[i]=' ')and(s[i-1]=s[i+1]) then n:=n+1;
    end;
{...}

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.