IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача на строки, ужасс
DieZel
сообщение 14.05.2008 17:41
Сообщение #1


Гость






Вобщем такая задачка :
В заданном предложении заменить все строчные латинские буквы прописными.
Определить ,сколько раз в преобразованном предложении встречается
сочетание символов "А+В" Напечатать исходный и преобразованный тексты,
а также число встретившихся сочетаний.

Возникает сразу 2 вопроса:
-Как перевести строчные в прописные (говорят что както при помощи таблицы ASCII)
и -Как вообще понимать второе предложение?)))

Помогите пожалуйста кто силён?... я в тупике
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Айра
сообщение 14.05.2008 18:14
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Вот через таблицу, но для латинского алфавита:

for i:=1 to length(s) do if (ord(s[i])>=97) and (ord(s[i])<=122) then s[i]:=chr(ord(s[i])-32);
end.


Цитата
Определить ,сколько раз в преобразованном предложении встречается сочетание символов "А+В"

Во-первых, сочетание AB или именно А+B..
Вообще можно через pos('AB",s).. ищем, если нашли, то увеличили счетчик, а найденное сочетание удалили, и так пока не получится, что подстроки нет.. Правда это не самый лучший вариант.. придется исходную строку копировать в другую переменную, иначе потеряем..

Сообщение отредактировано: Айра - 14.05.2008 18:24
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 18:44
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"