 Поиск слов с окончаниями, из файла |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Zloy student |
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 16 Пол: Мужской Реальное имя: Козел настоящий Репутация:  -1   |
Найти слова из текстового файла с окончаниями -онок и -енок и вывести их на экран.Как искать слова по их началу я знаю, а вот как наоборот? Наработки приводить не буду т.к. вам этот бред скорее всего не пригодиться. Заранее спасибо!
|
   |
 
|
Сообщений в этой теме
Zloy student Поиск слов с окончаниями 29.11.2005 16:44
virt pos('енок',s) 29.11.2005 16:56 Zloy student uses crt;
var s:string;
i,n,nah… 29.11.2005 17:07 Ozzя
...
var F: Text;
...
Assign(F, 'name.txt… 29.11.2005 17:16 volvo
А ты этот "вариант" откомпилировать про… 29.11.2005 17:33 Zloy student program a;
var f : text;
s:string;
i,n,nah… 29.11.2005 17:59 Ozzя (s[i+1]=' ') or (i=n)
Условия, разделяемые… 29.11.2005 18:01 volvo Zloy student, я про это и говорил :yes2:
Приорит… 29.11.2005 18:03 Ozzя Zloy student
Ты забыл вставить
ReadLn(F, S);
У теб… 29.11.2005 18:17 Zloy student Спосибо! У меня еще вопрос. Что нужно поменять… 29.11.2005 18:35 Ozzя ...
if s[i] in ['А'..'Я'] then {За… 29.11.2005 18:49 Zloy student Тогда выводятся слова кончающиеся на заглавную. 29.11.2005 19:16 volvo Zloy student,
...
if (copy(StrUpper(s),i-3,4)=… 29.11.2005 19:24 Zloy student А попроще никак нельзя? мне не поверят что это я п… 29.11.2005 19:25 Zloy student Нужно выводить слова содержащие заглавную букву… 29.11.2005 19:27 volvo Ну что за народ... Мало того, что даешь решение, т… 29.11.2005 19:34 Zloy student Вот блин! Мне надо понятней выражаться. Забейт… 29.11.2005 19:47
volvo Правила прочти ВНИМАТЕЛЬНО !!! Свалку … 29.11.2005 19:57  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.12.2025 21:57 |
Связь с администрацией: bu_gen в домене octagram.name