строки в паскале, не могу написать программу... |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
строки в паскале, не могу написать программу... |
radeon37 |
Сообщение
#1
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Реальное имя: radeon37 Репутация: 0 |
Подсчитать сколько слов во фразе «Программа модификации объектных модулей предназначена для внесения изменений в объектные модули» заканчивается на одинаковые буквы. Если таких слов нет, то подсчитать количество букв «п» в тексте.
|
Гость |
Сообщение
#2
|
Гость |
Чуть ошибся)
Вот так function rav(s:string) : boolean; begin if s[1]=s[length(s)] then rav:=true else rav:=false; end; type prob=array[1..128] of integer; slova=array[1..128]of string; var p:prob; t:slova; sc,i,k,r,j:integer; s:string; begin readln(s); s:=' '+s+' '; k:=1; for i:=1 to length(s) do begin if s[i]=' ' then begin p[k]:=i; k:=k+1 end; end; for i:=0 to (k) do begin for j:=p[i]+1 to p[i+1]-1 do begin t[r]:=t[r]+s[j]; end; r:=r+1; end; for i:=1 to r do begin if rav(t[i])=true then sc:=sc+1; end; if sc<>0 then writeln(sc,' слов начинающихся и заканчивающихся на одну и ту же букву') else begin for i:=1 to length(s) do begin if (s[i]='п') or (s[i]='П') then sc:=sc+1; end; writeln(sc, ' букв "П"'); end; readln end. |
radeon37 |
Сообщение
#3
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Реальное имя: radeon37 Репутация: 0 |
не могли бы вы написать код для "заканчивающихся на одинаковую букву")) там получается два слова заканчиваются на букву "а" и два слова на букву "я"...и можно ли сделать без массива?)))))
Сообщение отредактировано: radeon37 - |
Lapp |
Сообщение
#4
|
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
не могли бы вы написать код для "заканчивающихся на одинаковую букву")) там получается два слова заканчиваются на букву "а" и два слова на букву "я"... radeon37, ты пойми, что от тебя хотят тут более конкретной постановки задания. Никому неясно, что означает "сколько слов заканчиваются на одинаковые буквы". Это задание можно трактовать двояко. Скажи, что должно быть в ответе к данному примеру. Пока не поставишь условие - какой смысл решать?варианты ответа такие: 1-й вариант: 6 2-й вариант: а - 2 и - 2 я - 2 -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Текстовая версия | 15.05.2024 9:55 |