|
Вопрос # 3 858/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Помогите, пожалуйста с задачей, а то что-то я запутался:
Дана строка, в которой группы символов(слова) разделены пробелами. Подсчитать число слов в строке, которые начинаются и заканчиваются на одну и ту же букву и распечатать эти слова.
Заранее примного благодарен!)
 |
Вопрос задала: kollen666 (статус: Посетитель)
Вопрос отправлен: 7 марта 2010, 19:48
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Егор
Здравствуйте, kollen666!
Поздравляю с 8 марта :)
Вот, в подарок :)
program WordCounter;
var
s : string;
i, count : integer;
i_begin : integer;
begin
{ запросим строку:}
writeln('Vvedite stroku');
readln(s);
writeln;
{добавим пробелы в начало и конец строки:}
s:=' ' + s + ' ';
{количество слов пока равно нулю:}
count:=0;
{начинаем перебирать все символы строки, начиная со второго, т.к. первый
символ - пробел:}
for i:=2 to length(s) do
begin
if (s[i-1]=' ') and (s[i]<>' ') then {если имеем начало слова}
i_begin:=i; {то запомним позицию первой буквы}
if (s[i-1]<>' ') and (s[i]=' ') then
if s[i-1]=s[i_begin] then {начальная и конечная буквы слова совпали}
begin
count:=count+1; {количество слов на одно больше}
writeln(count, ': ',
copy(s,i_begin,i-i_begin)); {выведем найденное слово}
end;
end;
writeln('kol-vo slov: ', count);
readln;
end.
Программа написана на Паскале. Если вам надо было сделать в Дельфи (в виде консольного или оконного приложения), пишите в минифорум.
 |
Ответ отправил: Егор (статус: 10-ый класс)
Время отправки: 8 марта 2010, 16:41
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 8 марта 2010, 16:55; участников в обсуждении: 3.
|
|
Егор (статус: 10-ый класс), 7 марта 2010, 21:54 [#1]:
Цитата (kollen666):
Вопрос задала: kollen666
хм...
Цитата (kollen666):
Заранее примного благодарен!)
так с кем имеем дело? с "эм" или "жо"? 
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
kollen666 (статус: Посетитель), 8 марта 2010, 03:11 [#2]:
в общем-то "жо")))
Ад нужен не для того, чтобы злые получили воздаяние, а для того, чтобы человек не был изнасилован добром.
|
|
min@y™ (статус: Доктор наук), 8 марта 2010, 11:56 [#3]:
Цитата (kollen666):
в общем-то "жо")))
Не понял, что за скобки такие?
Тебя поздравлять с 8 марта или где?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
kollen666 (статус: Посетитель), 8 марта 2010, 12:08 [#4]:
можно поздравить) я не против))
Ад нужен не для того, чтобы злые получили воздаяние, а для того, чтобы человек не был изнасилован добром.
|
|
|
kollen666 (статус: Посетитель), 8 марта 2010, 16:55 [#5]:
Егор, большое спасибо!)))
Ад нужен не для того, чтобы злые получили воздаяние, а для того, чтобы человек не был изнасилован добром.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
