|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.03.2008, 23:58 | #1 |
Пользователь
Регистрация: 21.02.2008
Сообщений: 17
|
Проверти код! на паскале! Спасибо!
#2
Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке: все глухие согласные буквы, которые входят в каждое нечетное слово и не входят хотябы в одно четное слово. Примечание: гласные буквы: а,е,и,о,у,ы,э,ю,я (без ё); согласные - все остальные буквы, кроме й,ь,ъ; звонкие согласные - б,в,г,д,ж,з,л,м,н,р; глухие согласные - к,п,с,т,ф,х,ц,ч,ш,щ. Не правильный ответ вывод, то букву содержащюю в нечетном и четном слове, то какую другую букву... Код:
|
10.03.2008, 09:18 | #2 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Ну, если вы смогли это написать, значит оно работает. Я, например, потерял
нить рассуждений где-то на третьем цикле. Попробуем сделать проще ? Начало практически правильно. В соответствии с условиями. Только одно замечание. Точки может не быть и цикл не закончится. Мы немного изменим. Сами слова нам не нужны. Нам нужно множество символов в каждом слове. Так и запишем: Код:
Подсчитаем в каких словах встречается каждый из символов. Код:
Например, 6 div 2 = 3, 6 div 2 + 6 mod 2 = 3 5 div 2 = 2, 5 div 2 + 5 mod 2 = 3 Код:
Осталось проверить условия: Код:
Вводим строку L := 'тфпк,тфп,тфпк,тпк,тфпк.'; получаем 'кф' По моему ничего не напутал. Остальные переменные: Код:
{если логическое Нет не изменилось, то в массив записать этот символ} лишнее. Благодарю за внимание. Удачи. |
10.03.2008, 21:54 | #3 |
Пользователь
Регистрация: 21.02.2008
Сообщений: 17
|
Спасибо - воспользовался!
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Опять Паскаль...Тема множества...Заранее огромное спасибо!!! | Miledi | Помощь студентам | 1 | 20.04.2008 16:34 |
Пожайлуйста помогите решить задачки...Заранее спасибо!И удачи всем! | vdv08 | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 06.04.2008 21:01 |
Спасибо братцы !!!!!!! | merax | Свободное общение | 5 | 16.04.2007 05:29 |