Паскаль (двухмерный массив)

[Unikummm]

вроде прикрепил...

[puporev]

Что-то запутался с выводом, 86 слов выводит и все. Считает правильно, цвет правильно, но не до конца.

[Unikummm]

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

Что-то запутался с выводом, 86 слов выводит и все. Считает правильно, цвет правильно, но не до конца.

Чем то помочь могу?

[puporev]

Все основное сделал. Сейчас в порядок приведу и выложу. Вывод в новом окне с ходу не помню как делать, ни разу не делал, если сам не знаешь, то по-позднее или завтра, а то у меня уже поздно.

[Unikummm]

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

Все основное сделал. Сейчас в порядок приведу и выложу. Вывод в новом окне с ходу не помню как делать, ни разу не делал, если сам не знаешь, то по-позднее или завтра, а то у меня уже поздно.

СПАСИБО огромное!
Завтра я на работе, так что можно не торопиться до послезавтра!

[puporev]

uses crt;
const
  K=2; 
  L=7; 
  M=20;
  N=10;
  AA=Ord('A');           {код буквы А в таблице символов}
  ZZ=Ord('Z');            {код буквы Z в таблице символов}
 gl=['A','E','I','O','U','Y'];
 sgl=['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Z'];
var
  mas:  array [1..M,1..N] of string[L];
  i,j,t,p,q, {счетчики циклов}
  len,           {длина текущей строки=элемента матрицы (K..L)}
  ss,kg,ks, {кол. букв в столбце, кол. гласных и согласных в слове}
  kol: byte;              {кол-во слов, удовлетвлоряющих условию }
begin
clrscr;
randomize;
for i:=1 to M do
for j:=1 to N do
 	begin
   	len:=random(L-K+1)+K;
   	mas[i,j]:='';             {строка соответствующая сначала пустая}
    for t:=1 to len do          {затем добавляем по одному к ней символы в количестве len}
    mas[i,j]:=mas[i,j]+Char(random(ZZ-AA+1)+AA);         {псевдослучайные от A до Z}
  end;
TextColor(0); {цвет текста по умолчанию}
kol:=0; {пока не нашли ни одного подходящего слова}
for j:=1 to N do {идем по столбцам}
  begin
    ss:=0;
    for i:=1 to M  do {считаем буквы в столбцах}
    ss:=ss+length(mas[i,j]);
    if ss mod 3=0 then{если кратно 3}
      for p:=1 to M do {снова по этому столбцу}
          begin
            kg:=0;ks:=0;
            for q:=1 to length(mas[p,j]) do {смотрим каждое слово}
               begin
                if mas[p,j][q] in gl then kg:=kg+1; {считаем гласные}
                if mas[p,j][q] in sgl then ks:=ks+1; {считаем согласные}
               end;
            if kg*5<=ks then {если согласных в 5 раз больше}
              begin
               TextColor(red);                  {меняем цвет на красный}
			         write(mas[p,j]:8);                 {выводим красным}
			         kol:=kol+1;   {считаем количество}
               TextColor(0);  {цвет по умолчанию}
              end
            else write(mas[p,j]:8); {выводим обычные слова в этом столбце}
          end
     else
       for i:=1 to M do
       write(mas[i,j]:8); {выводим обычным столбцы где сумма букв не кратна 3}
  end;
readln;
write('Kolichestvo slov=',kol);{это надо в отдельном окне}
readln
end.

[puporev]

Вот доделал конец, исправьте. С цветами и положением окна можете поэкспериментировать.

 write(mas[i,j]:8); {выводим обычным столбцы где сумма букв не кратна 3}
  end;
window(50,23,78,25);{новое окно}
TextBackGround(14); {цвет фона}
TextColor(0); {цвет текста}
write('Kolichestvo slov=',kol);{это вводим в отдельном окне}
readln
end.

[Unikummm]

Почти получилось, но почему то кроме выделенных слов не видно остального массива, а вроде как должно, и так и не открывается следуещее окно в котором должно быть написано: столько то слов удовлетворяют условию 1(это написано на этой же странице) и должно быть написано слово(слова) удовлетворяющее(ие) условию 2.

[puporev]

Ой, простите, у меня на экране по умолчанию стоит светло-серый цвет, а текст черный. Исправте где TextColor(0) на (15) -белый.
А новое окно не открывается, а создпется в пределах этого экранного поля по координатам, которые задаем, т.е. у нас оно находится в пределах 23-25 строк с позиции в строке от 50 до 78.

P.S. Если хотите не в новом окне, а на чистом экране, то напишите так:
readln;
clrscr;
write('Kolichestvo slov=',kol);{это надо в отдельном окне}
readln
end.

[Unikummm]

с цветом разобрался, осталось маленький НО:
скачет количество строк....Как исправить?

И упорно не хочет показывать слово подпадающее под второе условие...