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

[puporev]

У меня 20, не знаю, что Вы не так сделали. Прикладываю программу.

[Unikummm]

Показываю что получилось: (что то с цветами напутано наверно)

PHP код:

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(15);  {цвет по умолчанию}
              end
            else write(mas[p,j]:8); {выводим обычные слова в этом столбце}
          end
     else
       for i:=1 to M do
       write(mas[i,j]:8); {выводим обычным столбцы где сумма букв не кратна 3}
  end;
window(50,23,78,25);{новое окно}
TextBackGround(14); {цвет фона}
TextColor(15); {цвет текста}
readln;
clrscr;
write('Kolichestvo slov=',kol);{это надо в отдельном окне}
readln
end. 


[Unikummm]

А может просто цвет экрана мой надо с чёрного поменять на другой? как?

[puporev]

Я не знаю, у меня все нормально и с Вашими цветами работает, сейчас скопировал, прогнал, все нормально. Ну поменяйте цвета фона с помощью TextBackGround, цвета основного и выделяющегося шрифтов с помощью TextColor. Не знаю, это видеть надо. Приложите в архив файл *pas и *exe.

[Unikummm]

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

[DrugProfi]

помогите, плиииз, срочно...
Дана*целая*прямоугольная*матрица*ра змерности*NxM.*Найти*наибольший*эле мент*в*каждой*строке*и*упорядочить* строки*по*убыванию*этих*элементов.* (При*сортировке*использовать*метод* прямого*выбора).
Всю прогу написал. но сортиров ка не работает. Напишите, плиз саму сортировку для матрицы matrix[i,j].

[puporev]

Ну, у меня, что скопированный текст, что Ваш экзешник, одинаково нормально.

[Unikummm]

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

Ну, у меня, что скопированный текст, что Ваш экзешник, одинаково нормально.

Спасибо вам большущее! Дальше попробую доработать сам под так сказать свои условия экрана...

зы: хороший у вас тут форум,- добрый! на другом подобном мои задачи три дня провесели и никто даже пальцем не пошевелил что бы помочь..., а тут совсем другое дело! Хорошо что остались ещё не равнодушные люди!

[capta1n]

а зачем делать PHP код ))