Вывести на экран номера тех столбцов матрицы, в которых хранятся только малые латинские буквы - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте, решал задачку: Дан двумерный массив N*M, заполненный символами. Вывести на экран номера тех столбцов, в которых хранятся только малые латинские буквы. Получился код, но до нормального состояния довести не получается. Запутался. Наставьте на истинный путь.
Листинг программы
  1. var a:array[1..20,1..20] of char; b: array[1..10] of integer;
  2. i,j,k,m,n:byte;
  3. begin
  4. randomize;
  5. readln(m,n);
  6. for i:=1 to m do
  7. begin
  8. for j:=1 to n do
  9. begin
  10. repeat
  11. k:=65+random(58);
  12. until k in [65..90,97..122];
  13. a[i,j]:=chr(k);
  14. write(a[i,j]:2);
  15. end;
  16. writeln;
  17. end;
  18. k:=0;
  19. for i:=1 to m do begin
  20. for j:=1 to n do begin
  21. if ord(a[i,j]) in [65..90]
  22. then begin
  23. b[i]:=j;
  24. end;
  25. end;
  26. end;
  27. for i:=1 to m do
  28. write(b[i]:2);
  29. end.

Решение задачи: «Вывести на экран номера тех столбцов матрицы, в которых хранятся только малые латинские буквы»

textual
Листинг программы
  1. i:=m; while (i>0) and (a[i,j] in ['a'..'z']) then Dec(i);

Объяснение кода листинга программы

  1. Переменная i инициализируется значением m, что предположительно означает количество строк в матрице.
  2. Затем, пока i больше нуля и значение элемента a[i,j] находится в диапазоне от 'a' до 'z', выполняется следующий код:
    • Dec(i) - функция, которая уменьшает значение i на единицу.
  3. Этот цикл будет выполняться, пока i не станет равным нулю или пока все элементы матрицы не будут проверены на наличие только малых латинских букв.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы