Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Kursant_999
1 / 1 / 2
Регистрация: 18.03.2012
Сообщений: 28
#1

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

25.05.2013, 17:36. Просмотров 1336. Ответов 1
Метки нет (Все метки)

Как решить задачу? найти в строке слова, начинающиеся и заканчивающиеся на одинаковые буквы и удалить их.
как удалить помогите могу только вывести на екран
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  s,s2, a: string;
  i: integer;
begin
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] <> ' ' then a := a + s[i];
    if (s[i] = ' ') or (i = length(s)) then
    begin
      if a[1] = a[length(a)] then writeln(a);
      a := '';
     end;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2013, 17:36
Ответы с готовыми решениями:

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

Из текста удалить все слова начинающиеся и заканчивающиеся на одну букву
Из текста удалить все слова начинающиеся и заканчивающиеся на одну букву.

Удалить из строки все слова начинающиеся и заканчивающиеся одной и той же буквой
Дана строка X. Модифицируйте строку следующим образом: удалите из строки все...

Слова, начинающиеся заканчивающиеся на букву ''я'', удалить из текста
Дан текст, состоящий из слов, разделенных пробелами. Слова, начинающиеся...

В предложении найти слова, начинающиеся и заканчивающиеся на одну и ту же букву
В предложении найти слова, начинающиеся и заканчивающиеся на одну и ту же букву

1
Taftis
Pascal, Delphi, C++
215 / 128 / 91
Регистрация: 01.12.2012
Сообщений: 628
25.05.2013, 21:48 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses
  crt;
var
  s,temp:string;
  i:integer;
begin
  clrscr;
  readln(s);
  temp:='';
  writeln('Найденные слова: ');
  for i:=1 to length(s) do
  begin
    if s[i]<>' ' then
      temp:=temp+s[i];
    if (s[i]=' ') or (i=length(s)) then
    begin
      if (temp<>'') and (temp[1]=temp[length(temp)]) then
        write(temp,' ');
      temp:=''
    end;
  end
end.
вот так
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2013, 21:48

В предложении найти слова, начинающиеся и заканчивающиеся на букву «а» и третья буква в которых «о»
Как решить задачу? В предложении найти слова, начинающиеся и заканчивающиеся на...

Дана символьная строка. Найти слова, начинающиеся и заканчивающиеся на одну и ту же букву
Дана символьная строка. Найти слова, начинающиеся и заканчивающиеся на одну и...

Дана строка. Найти слова, начинающиеся и заканчивающиеся одной буквой (через процедуры)
1. Дана строка. Найти в ней все слова, которые начинаются и заканчиваются одной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru