Работа с псевдослучайными последовательностями (ПСП). Работа с цветом.(Pascal)

[Shick]

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

Выделить цветом и подсчитать число слов, удовлетворяющих следующим условиям.
1. Слово содержит нечетное число гласных букв.
2. Слово принадлежит строке, в которой хотя бы 3 слова содержат не более 5 букв.
К = 2, L = 7, М = 20, N = 10

[Serge_Bliznykov]

что вызывает вопросы/сложности?

и ещё, в связи с тем, что в задании "Выделить цветом", определитесь, с тем, в каком Паскале и каком режиме Вы будете выполнять вывод и "выделение цветом".
(консоль текстовая или графическая, визуальные компоненты в окне Windows и т.п.)

[ZX Spectrum-128]

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

...

Randomize;
For i:=1 to m do
For j:=1 to n do
Begin
  Len:=RandomRange(k,l);
  For k:=1 to len do
    Mas[i,j]:=mas[i,j]+chr(random(26)+64)); 
 // не помню код буквы Латинской А 64?
 End;

[Serge_Bliznykov]

// не помню код буквы Латинской А 64?

нет, 65
кстати, я в таких случая пишу вот так:

....chr(random(26)+ord('A'));

[Shick]

Сообщение от Serge_Bliznykov

что вызывает вопросы/сложности?

и ещё, в связи с тем, что в задании "Выделить цветом", определитесь, с тем, в каком Паскале и каком режиме Вы будете выполнять вывод и "выделение цветом".
(консоль текстовая или графическая, визуальные компоненты в окне Windows и т.п.)

Pascal ABC net)
сложность вызывает сам паскаль,не знаю как делать абсолютно ничего

[Shick]

если можно переделайте эту прогу , под моё условие)

Uses Crt;
Const
     k=2; l=7; m=20; n=10;
     CharA = 65; {Ord('A');}
     CharZ = 90; {Ord('Z');}
     G=['A','E','I','O','U','Y'];
TYPE
     TWord    = String[L];
     TArrWord = array[1..M,1..N] of TWord;
     
//функции для набора рандомной строки
FUNCTION  RandChar:Char;
BEGIN
  RandChar:=Chr(CharA+Random(CharZ-CharA));
END;

//процедура для заполнения массива рандомными строками
PROCEDURE RandWord(VAR S : TWord);
VAR
  Len : Integer;
  i   : Integer;
BEGIN
  Len:=K+Random(L-K);    {случайная длина слова}
  S:='';
  for i:=1 to Len do begin
    S:=S+RandChar;
  end;
END;

VAR
  i,j,w,z,mtr,v:Integer;
  Mass  : TArrWord;
  d:string[L];

BEGIN
  Randomize;  {инициализация генератора случайных чисел}
  {заполнение массива слов}
  for i:=1 to M do begin
    for j:=1 to N do begin
      RandWord(Mass[i,j]);
    end;
  end;

z:=0;
v:=0;
mtr:=0;
for i:=1 to M do begin
    for j:=1 to N do begin
    TextColor(0);
    begin d:=Mass[i,j];
        for w:=1 to Length(d) do begin
                                              If d[w] in G Then
                                                 z:=z+1         {кол-во гласных}
                                                           else
                                                 v:=v+1;
                                         end;
        If (z=v) and (i mod 2 <> 0) Then begin
                          mtr:=mtr+1;            {счетчик подходящих слов}
                          TextBackground(15);
                          TextColor(5);
                          end;
                          end;
         Write(Mass[i,j]:7);
         z:=0;
         v:=0;
         end;
    writeln;
    end;
    WriteLn(mtr);
end.

[ZX Spectrum-128]

кстати, я в таких случая пишу вот так:

Спасибо. И в отличие от моего кода, будет работать на других таблицах кодировки.

[Shick]

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

Выделить цветом и подсчитать число слов, удовлетворяющих следующим условиям.
1. Слово содержит нечетное число гласных букв.
2. Слово принадлежит строке, в которой хотя бы 3 слова содержат не более 5 букв.
К = 2, L = 7, М = 20, N = 10

Программа:

Uses Crt;
Const
     k=2; l=7; m=20; n=10;
     CharA = 65; {Ord('A');}
     CharZ = 90; {Ord('Z');}
     G=['A','E','I','O','U','Y'];
TYPE
     TWord    = String[L];
     TArrWord = array[1..M,1..N] of TWord;
     
//функции для набора рандомной строки
FUNCTION  RandChar:Char;
BEGIN
  RandChar:=Chr(CharA+Random(CharZ-CharA));
END;

//процедура для заполнения массива рандомными строками
PROCEDURE RandWord(VAR S : TWord);
VAR
  Len : Integer;
  i   : Integer;
BEGIN
  Len:=K+Random(L-K);    {случайная длина слова}
  S:='';
  for i:=1 to Len do begin
    S:=S+RandChar;
  end;
END;

VAR
  i,j,w,z,mtr,v:Integer;
  Mass  : TArrWord;
  d:string[L];

BEGIN
  Randomize;  {инициализация генератора случайных чисел}
  {заполнение массива слов}
  for i:=1 to M do begin
    for j:=1 to N do begin
      RandWord(Mass[i,j]);
    end;
  end;

z:=0;
v:=0;
mtr:=0;
for i:=1 to M do begin
    for j:=1 to N do begin
    TextColor(0);
    begin d:=Mass[i,j];
        for w:=1 to Length(d) do begin
                                              If d[w] in G Then
                                                 z:=z+1         {кол-во гласных}
                                                           else
                                                 v:=v+1;
                                         end;
        If (z=v) and (i mod 2 <> 0) Then begin
                          mtr:=mtr+1;            {счетчик подходящих слов}
                          TextBackground(15);
                          TextColor(5);
                          end;
                          end;
         Write(Mass[i,j]:7);
         z:=0;
         v:=0;
         end;
    writeln;
    end;
    WriteLn(mtr);
end.