Удалить все слова, начинающиеся и заканчивающиеся на одну и ту же букву

@Янкаяяя · Регистрация: 15.12.2017

Студворк — интернет-сервис помощи студентам

написать программу с комментарием

@ZX Spectrum-128 · 21.02.2018, 14:01

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

@Янкаяяя · 21.02.2018, 15:27 **[ТС]**

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

Pascal

var
  s: string; 
  i, m: integer;
 
begin
  write('Введите текст: ');
  readln(s);
  i := 1; 
  m := 1;  
  repeat
    if s[i] = ' ' then 
    begin
      if UpperCase(s[i - 1]) = UpperCase(s[m]) then 
      begin
        delete(s, m, i - m + 1); 
        i := m;  
      end 
      else m := i + 1;  
    end; 
    i := i + 1;  
  until m > length(s); 
  if s[length(s)] in ['.', '?', '!'] then 
    if s[m] = s[length(s) - 1] then delete(s, m - 1, length(s) - m + 1)  
  else 
  else if s[m] = s[length(s)] then delete(s, m - 1, length(s) - m + 2); 
  writeln('Новая строка: ', s);
end.

@Puporev · 21.02.2018, 16:32

Во первых Вы должны определиться какой текст будет введен, как отделяются слова.
Потом пройти по тексту, выделять слова, и если 1 и последняя буквы равны, удалить это слово.

@Янкаяяя 0 / 0 / 0 Регистрация: 15.12.2017 Сообщений: 15
		1
	Удалить все слова, начинающиеся и заканчивающиеся на одну и ту же букву 21.02.2018, 13:51. Показов 3237. Ответов 3 Метки нет (Все метки) написать программу с комментарием 0

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	21.02.2018, 14:01	2
	Найти в строке слова, начинающиеся и заканчивающиеся на одинаковые буквы и удалить их 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	21.02.2018, 16:32	4
	Во первых Вы должны определиться какой текст будет введен, как отделяются слова. Потом пройти по тексту, выделять слова, и если 1 и последняя буквы равны, удалить это слово. 0

Опции темы