Найти № строки сумма числовых значений входящих, в текст равен длинне текста. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Найти № строки сумма числовых значений входящих, в текст равен длинне текста. |
Santrex |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Репутация: 0 |
Есть одна задачка.Кто сможет помочь с выполнением буду признателен.
Задан текст в который входят только цифры и буквы.Определить удовлетворяет ли этот текст следующему свойству:сумма числовых значений цифр входящих в текст равна длинне текста. Если весь алгаритм не получиться написать напшите такие алгоритымы. 1.Как отлечить число в тексте от буквы и записать сумму букв в новый массив b[i] а сумму цифр в массив s[i]. (желательно наглядный пример в виде работающего алгоритма). |
volvo |
Сообщение
#2
|
Гость |
Santrex, может хватит дублировать вопросы? Этот вопрос уже поднимался...
http://forum.pascal.net.ru/index.php?showt...584entry35584 Вот здесь. Кроме этого - переформулируйте вопрос: Цитата 1.Как отлечить число в тексте от буквы и записать сумму букв в новый массив b[i] а сумму цифр в массив s[i]. Сумму букв? Ну, например, вот текст: "asd56fgw234" Чему должна быть равна сумма букв ? |
Santrex |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Репутация: 0 |
В этом примере :
длинна текста состоит из 11 символов а сумма цифр 20 и получаеться что этот текст не удовлетворяет услвию,так как сумма цифр не равна длинне текста. Ну насчет сложения букв я значит ошибся. |
volvo |
Сообщение
#4
|
Гость |
Код var s: string; i: byte; sum: integer; begin write('Введите текст: '); readln(s); sum := 0; for i := 1 to length(s) do if s[i] in ['1' .. '9'] then inc(sum, ord(s[i]) - 48); if sum = length(s) then writeln('Длина текста = сумме цифр') else writeln('Длина текста отличается от суммы цифр') end. А теперь объясните мне, что в этом было сложного? Настолько сложного, что даже после объяснений, которые давались по ссылке приведенной выше, задачу нельзя было решить? Или просто хотелось не прилагая НИКАКИХ усилий получить готовое решение? Ведь задача решается в 11 (!!!!) строк... |
Santrex |
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 32 Пол: Мужской Репутация: 0 |
Ну извени я не такой умный как ты.И я некоторые функции незнаю.
Например что это за штука: Код inc(sum, ord(s[i]) - 48); Скажи что это оно тут делает ну например ord превращает символ в АСКИ код а остальное тут я не понял. Ну всеравно спасибо. Надо будет больше почитать об этих функциях мне А так ОГРОМНОЕ СПАСИБО. |
Altair |
Сообщение
#6
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
увеличивает (inc) переменную (sum) на число записанное в s[i]
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 10.05.2024 16:33 |