Помогите плиз решить задачу

[Warezhunter@]

Помогите плиз решить задачу в Turbo Pascal 7.0, вторую неделю ковыряюсь уже, не могу решить:
Задача

Задание:
С помощью ПСП сформировать двухмерный MxN массив из элементов. В качестве элементов использовать слова из K..L символов A..Z (одномерный массив символов). Осуществить подсчет элементов, удовлетворяющих условиям задания.
Вывести на экран сформированный массив, выделив цветом подсчитанные элементы. Вывести результат подсчета на экран в отдельное окно.

Здесь: M и N - соответственно число строк и столбцов формируемой матрицы;
K и L - соответственно минимальное и максимальное число букв в формируемых словах - элементах массива.
При формировании массива использовать стандартные подпрограммы генерации случайных чисел. Коды ASCII символов A..Z - 65..90.
Слова формируются в одномерных массивах, каждый из которых состоит из L ячеек; буквы записываются без пробела, начиная с первой ячейки.
Незаполненные буквами позиции массива в конце слов заполнить символами пробела - код ASCII - 32.

Выделить цветом и подсчитать число слов, удовлетворяющих следующим условиям.
1.Слово содержит нечетное число букв, из которых не менее 2-х гласные.
2.Слово принадлежит нечетному столбцу и строке с индексом, кратным «3». K = 2, L = 7, M = 20, N = 10

Результат нужно представить в виде исходника с расширением *.pas
Заранее спасибо.

[axlwor]

Цитата: При формировании массива использовать стандартные подпрограммы генерации случайных чисел. Коды ASCII символов A..Z - 65..90.

Это сделал?

[Warezhunter@]

Цитата: Сообщение от axlwor Это сделал?

Я то сделал, но там должно быть все увязано в одной программе, вот это я сделать не могу.

[axlwor]

Ну тогда пости что сделал и показывай что не получается. Глупо каждому с начала решать одно и тоже. Проще и быстрее посмотреть где у тебя затык, чтобы решить его.

Цитата: но там должно быть все увязано в одной программе, вот это я сделать не могу

У тебя есть отдельные процедуры, но увязать их в один модуль ты не можешь?

[Zhlobny Hmur]

Цитата: Сообщение от Warezhunter@ Выделить цветом

Ха, прикололо! А выводной девайс какой? Или это предлагаеться на стандортной ДОС-моде сделать? Тогда четко должны проговорены, какие библиотеки должны быть использованы!

[DinAmiT]

Warezhunter, ниже программа которая заполняет и выводит массив на экран, если всё устраивает допишу проверку условий и выделение цветом... Кстати не понятно цветом выделять слова удовлетворяющие и 1-му и 2-му условию? Или слова удовлетворяющие условию 1 выделять одним цветом, а удовлетворяющие условию 2 другим??

Program NoWa;
Uses
   Crt;
Const
   K = 2;
   L = 7;
   M = 20;
   N = 10;
Type
   Slovo = array[1..L] of char;
   Massiv = array[1..M,1..N] of Slovo;
Var
   A: massiv;
 
Procedure VvodSlova(var z: Slovo);
Var
   i,n: byte;
Begin
   n := K + Random(6);
   for i := 1 to L do
      if i <= n
      then z[i] := Chr(65 + Random(26))
      else z[i] := Chr(32);
End;
 
 Procedure VvodMass(var z: massiv);
Var
   i,j: byte;
Begin
   Randomize;
   for i := 1 to M do
      for j:= 1 to N do
         VvodSlova(z[i,j]);
End;
 
Procedure PrintMass(z: massiv);
Var
   i,j: byte;
Begin
   for i := 1 to M do
   begin
      for j:= 1 to N - 1 do
         Write(z[i,j], ' ');
      Write(z[i,j]);
      Writeln;
   end;
End;
 
Begin
   ClrScr;
   VvodMass(A);
   PrintMass(A);
   Repeat Until KeyPressed
End.

[Zhlobny Hmur]

DinAmiT, Массив у тебя 3-мерный получился....


И не совсем понятно по задачи - действительно нужна полная диначичность? Или все решается на уровне компиляции?

[DinAmiT]

Цитата: Сообщение от Zhlobny Hmur DinAmiT, Массив у тебя 3-мерный получился....

Двумерный массив слов... Слово - семь символов можно в принципе и двумерный массив типа string[6] описать... суть бы от этого неизменилась. String это тот же массив символов (char) от 0 до 255...

P.S.: Гы... не могу предыдущее своё сообщение отредактировать... процедура PrintSlova там лишняя...

[Zhlobny Hmur]

DinAmiT, формально по заданию - слово строиться как линейный массив из CHAR с условием максимальной генерации (забиванием пробелами).

[DinAmiT]

Цитата: Сообщение от Zhlobny Hmur DinAmiT, формально по заданию - слово строиться как линейный массив из CHAR с условием максимальной генерации (забиванием пробелами).

Ну... а я про что...?! Это ли не оно Slovo = array[1..L] of char
Как в задании было, так и сделал..., т.е. двумерный массив слов
Massiv = array[1..M,1..N] of Slovo, "на взгляд" он конечно выглядит как трехмерный массив,
но на самом деле это двумерный массив слов описанного типа Slovo, как в задании...

Warezhunter, с условием всё понятно нужны слова удовлетворяющие и первому и второму условию, вот твоя программа:

Program NoWa;
Uses
   Crt;
Const
   K = 2;
   L = 7;
   M = 20;
   N = 10;
Type
   Slovo = array[1..L] of char;
   Massiv = array[1..M,1..N] of Slovo;
Var
   A: massiv;
   Kol_Slov: integer;
Procedure VvodSlova(var z: Slovo);
Var
   i,n: byte;
Begin
   n := K + Random(6);
   for i := 1 to L do
      if i <= n
      then z[i] := Chr(65 + Random(26))
      else z[i] := Chr(32);
End;
Function Proverka1(z: Slovo): boolean;
Const
   alf: string[5] = 'AEIOUY';
Var
   i,j, lenght, kol: byte;
Begin
   kol := 0;
   for i := 1 to L do
   begin
      if z[i] = ' ' then
      begin
         lenght := i - 1;
         Break;
      end;
      if (i = 7) then lenght := i;
      for j := 0 to 5 do
         if z[i] = alf[j] then
         begin
            Inc(kol);
            Break;
         end;
   end;
   if (lenght mod 2 <> 0) and (kol >= 2)
   then Proverka1 := true
   else Proverka1 := false;
End;
Procedure VvodMass(var z: massiv);
Var
   i,j: byte;
Begin
   Randomize;
   for i := 1 to M do
      for j:= 1 to N do
         VvodSlova(z[i,j]);
End;
Procedure PrintMass(z: massiv; var kol: integer);
Var
   i,j: byte;
Begin
   kol := 0;
   for i := 1 to M do
   begin
      for j := 1 to N do
      begin
         if Proverka1(z[i,j]) = true
         then
            if (j mod 2 <> 0) and (i mod 3 = 0)
            then
            begin
               TextColor(10);
               Inc(kol);
            end
            else TextColor(14)
         else TextColor(7);
         if j <> N then Write(z[i,j], ' ')
         else Write(z[i,j])
      end;
      Writeln;
   end;
End;
Begin
   ClrScr;
   VvodMass(A);
   PrintMass(A, Kol_Slov);
   Writeln;
   Write('Количество слов удовлетворяющих условию = ', Kol_Slov);
   Repeat Until KeyPressed
End.

P.S.: Для наглядности выкладываю исполняемый модуль
(можно запустить и посмотреть как будет выглядеть...)
А вот скрин:

[IMG]http://img181.**************/img181/1923/nowakb2.jpg[/IMG]

На скрине в массиве желтым цветом для наглядности выделены слова удовлетворяющие условию 1, а зеленым удовлетворяющие всем условиям они же и посчитаны... Вроде получилось то что нужно, если надо подкорректировать чего-то Пиши!!! Успехов!!! )

[Warezhunter@]

Цитата: Сообщение от axlwor Ну тогда пости что сделал и показывай что не получается. Глупо каждому с начала решать одно и тоже. Проще и быстрее посмотреть где у тебя затык, чтобы решить его. У тебя есть отдельные процедуры, но увязать их в один модуль ты не можешь?

Я только самое простое на паскале могу сделать, а это не могу.
DinAmiT, спасибо, попробую завтра отнести это преподу.

[Zhlobny Hmur]

DinAmiT, Сорь, на свежую голову (в смысле приперся с работы не в 3 часа ночи а в 11) прочитал, твоя правда.

Кстати, для нетипичности можно проверку на вхождение гласной сделать через Set. Тогда процедурка сводиться к:

Function Proverka1(z: Slovo): boolean;
Type
   Letters=Set of 'A'..'Z';
Const
   glassnaj:Letters = ['A','E','I','O','U','Y'];
Var 
   i,gl:integer;
Begin
   gl:=0;
   i:=1;
   repeat
       inc(gl,integer(a[i] in glassnaj));
       inc(i)
   until (a[i]=' ') or (i=L+1);
   Proverka1:=((i-1) mod 2 <> 0) and (gl >= 2)
End;

И для прикола выделять: Цианом - если выполняеться 1 условие, желтым - второе, а зеленым - оба одновременно!

[Warezhunter@]

Опять проблема, теперь надо сделать то же самое, но только условие поменялось

Цитата: Выделить цветом и подсчитать число слов, удовлетворяющих следующим условиям. 1.Последняя и первая буквы в слове - согласные 2.Слово принадлежит нечетному столбцу, в котором больше всего слов с двумя буквами K = 2, L = 7, M = 20, N = 10

[Zhlobny Hmur]

Warezhunter@, Блин, делать то тут нечего.

1) Перед вызовом PrintMass опредлеляешь столбец, удовлетворяющий твоим условиям, заносим полученное значение в FindColumn, скажем.
2) Меняешь процедуру Proverka1 на определение согласных
3) чуток меняешь PrintMass

         if Proverka1(z[i,j]) and (J=FindColumn) then
            begin
               TextColor(10);
               Inc(kol)
            end
         else TextColor(7);

ВСЕ.

З.Ы. Если не секрет, где так от программирования народ отгоняют?

[Warezhunter@]

Zhlobny Hmur,
Мне надо конкретно знать, где и чего менять.
Если результат заносить в FindColumn, то эту переменную надо сначало объявить в разделе var.
Может я не прав, за количество столбцов и строк отвечают вроде переменные kol и lenght соответственно?
И что надо поменять на определение согласных:

Цитата: Const alf: string[5] = 'AEIOUY';

на

Цитата: Const alf: string[18] = 'BCDFGHKLMNPQRSTVWXZ;

?

Такую хрень мне уже второй раз дают в политехе.