Получить символы из главной и побочной диагонали. Найти сумму кодов этих символов - 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.

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

  1. Объявлены константы n = 7 и m = 7, а также переменные a, b, c, i, j, sum и массив alf.
  2. В цикле заполняются ячейки массива alf случайными символами от 'А' до 'Я'.
  3. Выводится сообщение Главная диагональ и в цикле выводятся символы и их коды по главной диагонали массива alf.
  4. Выводится сообщение Побочная диагональ и в цикле выводятся символы и их коды по побочной диагонали массива alf.
  5. Выводится сообщение Массив и в цикле выводятся все символы массива alf.
  6. Выводится сообщение сумма кодов = и сумма кодов всех символов массива alf.

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


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

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

15   голосов , оценка 3.867 из 5
Похожие ответы