Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
sema
3 / 3 / 3
Регистрация: 14.10.2009
Сообщений: 31
#1

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

19.02.2010, 23:07. Просмотров 978. Ответов 2
Метки нет (Все метки)

дана строка, состоящая из русских слов,разделенных пробелами(одним или несколько). Определить количество слов, которые начинаются и заканчиваются одной и той же буквой(содержат хотя бы 1 букву "A")
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2010, 23:07
Ответы с готовыми решениями:

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

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

Определить, сколько слов в строке начинаются и заканчиваются одной и той же буквой
Решите до завтра.....хотя бы 2 плз

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

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

2
John_Pa9JIbHuK
Добрый самаритянин
1101 / 617 / 136
Регистрация: 31.03.2009
Сообщений: 2,568
19.02.2010, 23:33 #2
Лучший ответ Сообщение было отмечено sema как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
s,sbuf:string;
i,count:Integer;
Function Deleted(S:String):String; //удаляем лишние пробелы
var
i:Integer;
Begin
For i :=length(s) downto 2 do
if (s[i]=' ') and (s[i-1]=' ') then
delete(s,i,1);
result:=s;
end;
//------------------------------
begin
readln(s);
s:=Deleted(s);
s:=s+' ';
For i:=1 to length(s) do
                        Begin
                        sbuf:= Copy(s,1,pos(' ',s)-1);
                        delete(s,1,pos(' ',s));
                        if (sbuf[1]=sbuf[length(sbuf)]) and (pos('а',sbuf)>0) then
                        inc(count);
                        End;
writeln('Таких слов ',count);
end.
1
sema
3 / 3 / 3
Регистрация: 14.10.2009
Сообщений: 31
20.02.2010, 05:01  [ТС] #3
Спасибо всё работает!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.02.2010, 05:01

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

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

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


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

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

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