Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
sema
3 / 3 / 0
Регистрация: 14.10.2009
Сообщений: 31
#1

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

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

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

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

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

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

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

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

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

2
John_Pa9JIbHuK
Добрый самаритянин
1101 / 617 / 33
Регистрация: 31.03.2009
Сообщений: 2,568
19.02.2010, 23:33 #2
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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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