0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 9
1

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

25.04.2014, 09:07. Показов 8125. Ответов 1
Метки нет (Все метки)

Дана строка.Найти в ней те слова, которые начинаются и заканчиваются одной и той же буквой.Вывести эти слова на экране.
Вот код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program tr;
uses crt;
var
  s, 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2014, 09:07
Ответы с готовыми решениями:

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

Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. Код...

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

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

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.04.2014, 10:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
a:='';
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;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2014, 10:28
Помогаю со студенческими работами здесь

Дана строка. Найти в ней те слова, которые начинаются и заканчиваются одной и той же буквой
#include &lt;stdio.h&gt; #include &lt;string.h&gt; int main() { char str = &quot;Сегодня состоялось...

Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой
1. Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой....

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru