 опять строки |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Анчоус |
 5.12.2006 14:26
Сообщение
#1
|
 Группа: Пользователи Сообщений: 4 Пол: Женский Реальное имя: Аня Репутация:  0   |
Привет, умный народ.
 У меня проблемы с задачками в школе по Паскалю. Вот задача: "Дана строка STR длиной неболее 100 символов, и дана строка STR1 неболее 7 символов. Определить сколько раз в строке STR встречается строка STR1" я попробовала через функцию copy и процедуру insert, но у меня что-то не получается, короче, я делаю что-то не так, и до меня что-то не допирает. Вообщем, кто может, помогите тупой девочке(т.е. мне). |
   |
 
|
  |
Ответов
| klem4 |
5.12.2006 14:59
Сообщение
#2
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
ой
 Delete(s, p, Length(STR1)); ну или в начале процедуры дополнительной переменной присвоить Length(STR1) чтобы все время не пересчитывать. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
Сообщений в этой теме
Анчоус опять строки 5.12.2006 14:26
klem4 function GetCount(S, S1: String): Integer;
var
c... 5.12.2006 14:50
Malice
Delete(s, p, _7_);
Ну это на вряд ли.. 5.12.2006 14:53 volvo :blink: Во-первых, откуда 7 ? Допустим, что там до... 5.12.2006 14:56 Malice
ой :)
Volvo, кстати, хороший пример привел, пров... 5.12.2006 15:54 klem4 Да пример хороший :))))
function GetCount(s: Str... 5.12.2006 16:02 Анчоус Спасибо, парни! :cool:
Большое спасибо 5.12.2006 16:55 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 13.12.2025 13:45 |