![]() |
Модераторы: Poseidon |
![]() ![]() ![]() |
|
Unikummm |
|
|||
Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 20.1.2009 Репутация: нет Всего: нет |
Задача № 3:выделить цветом и подсчитать число слов удовлетворяющих условиям:
1. Слово содержит гласных букв в 5 и более раз больше чем согласных. 2. Слово принадлежит столбцу, в котором сумма всех букв кратна "3". K=2, L=7, M=20, N=10; С помощью ПСП сформировать двухмерный MxN массив из элементов. В качестве элементов использовать слова из K..L символов A..Z (одномерный массив символов латинского алфавита). Осуществить подсчет элементов, удовлетворяющих условиям задания. Проверку заданных условий поиска реализовать с использованием типа множества. Вывести на экран сформированный массив в виде таблицы, выделив цветом подсчитанные элементы. Результат подсчета вывести на экран в отдельном окне. (Здесь: M и N - соответственно число строк и столбцов формируемой таблицы; K и L - соответственно минимальное и максимальное число букв в формируемых словах - элементах массива). Методические указания При формировании массива использовать стандартные подпрограммы ПСП - Random, Randomize, а также, возможно использование функции CHR. Коды ASCII символов A..Z - 65..90. Слова формируются в одномерных массивах, каждый из которых состоит из L ячеек; буквы записываются без пробела, начиная с первой ячейки. Незаполненные буквами позиции массива в конце слов заполнить символами пробела - код ASCII - 32. Для вывода на экран строки заданного цвета необходимо: - в программе указать об использовании модуля CRT (USES CRT; - эта директива должна присутствовать в начале текста программы). - перед использованием стандартной процедуры вывода необходимо задать цвет вывода соответствующим значением параметра X стандартной процедуры TextColor(X) Помогите студенту-раздолбаю! ![]() ![]() Это сообщение отредактировал(а) Unikummm - 20.1.2009, 22:04 |
|||
|
||||
Unikummm |
|
|||
Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 20.1.2009 Репутация: нет Всего: нет |
Извиняюсь за флуд. Тут реально кто то кому то помогает???
|
|||
|
||||
Unikummm |
|
|||
Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 20.1.2009 Репутация: нет Всего: нет |
...никогда и ни при каких обстоятельствах я всерьёз не поверю в равнодушность и отсутствие сострадания людей.
Мне действительно ОЧЕНЬ нужна ВАША помощь! ![]() |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Центр помощи" | |
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Центр помощи | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |