Получить символы из главной и побочной диагонали. Найти сумму кодов этих символов - PascalABC.NET
Формулировка задачи:
Собственно символы я вывел из диагоналей. Вопрос: как найти сумму кодов этих символов.
Благодарю за помощь!
Решение задачи: «Получить символы из главной и побочной диагонали. Найти сумму кодов этих символов»
textual
Листинг программы
const n = 7;m = 7; var a, b, c: string; i, j: byte; sum: integer; alf: array[1..n, 1..m] of char; begin randomize; for i := 1 to n do for j := 1 to m do alf[i, j] := chr(random(64) + ord('А')); write('Главная диагональ ');sum := 0; for i := 1 to min(n, m) do begin sum := sum + ord(alf[i, i]); write(alf[i, i]:2); end; writeln; write('Побочная диагональ '); for i := 1 to min(n, m) do begin sum := sum + ord(alf[i, m - i + 1]); write(alf[i, m - i + 1]:2); end; writeln;writeln; write('Массив');writeln; writeln; for i := 1 to n do begin for j := 1 to m do write(alf[i, j]:3);writeln end; writeln; writeln('сумма кодов = ', sum); end.
Объяснение кода листинга программы
- Объявлены константы n = 7 и m = 7, а также переменные a, b, c, i, j, sum и массив alf.
- В цикле заполняются ячейки массива alf случайными символами от 'А' до 'Я'.
- Выводится сообщение
Главная диагональ
и в цикле выводятся символы и их коды по главной диагонали массива alf. - Выводится сообщение
Побочная диагональ
и в цикле выводятся символы и их коды по побочной диагонали массива alf. - Выводится сообщение
Массив
и в цикле выводятся все символы массива alf. - Выводится сообщение
сумма кодов =
и сумма кодов всех символов массива alf.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д