Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
Форум программистов > Центр помощи > [Pascal] двухмерный массив |
Автор: Unikummm 20.1.2009, 19:29 |
Задача № 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 22.1.2009, 08:53 |
Извиняюсь за флуд. Тут реально кто то кому то помогает??? |
Автор: Unikummm 22.1.2009, 20:53 |
...никогда и ни при каких обстоятельствах я всерьёз не поверю в равнодушность и отсутствие сострадания людей. Мне действительно ОЧЕНЬ нужна ВАША помощь! ![]() |