Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [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)

Помогите студенту-раздолбаю! smile  В будущем обИСЧаю стараться всё делать сам! smile 

Автор: Unikummm 22.1.2009, 08:53
Извиняюсь за флуд. Тут реально кто то кому то помогает???

Автор: Unikummm 22.1.2009, 20:53
...никогда и ни при каких обстоятельствах я всерьёз не поверю в равнодушность и отсутствие сострадания людей.

Мне действительно ОЧЕНЬ нужна ВАША помощь! smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)