Найти максимальную сумму чисел по диагонали матрицы

@InMs_8 · Регистрация: 23.05.2015

Студворк — интернет-сервис помощи студентам

Нужно найти максимальную сумму чисел по диагонали (главной или побочной). И вывести ее
Пишу код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program Elvis;
 
var
  i, j, N: integer;
  F: array[1..501]of array [1..501] of integer;
  file_in: text;
  file_out: text;
  sd, sp: integer;
 
begin
  assign(file_in, 'max_table_in.txt');
  reset(file_in);
  read(file_in, N);
  for i := 1 to N do                                     
    for j := 1 to N do                                 
    begin
      read(file_in, F[i, j]);    
      if i = j then 
      inc(sd, F[i, j]);
      if i + j = N + 1 then 
      inc(sp, F[i, j]);
    end;
  assign(file_out, 'max_table_out.txt');
  rewrite(file_out);
  
  if (sd > sp) then
    write(file_out, sd)
  else
    write(file_out, sp);
    close(file_in);close(file_out);
end.

Но на одном из тестов система выдает WA.
Не могу найти ошибку, на моих примерах все работает

@mamedovvms · 23.05.2015, 20:28

на каком тесте выдает ошибку?

@InMs_8 · 23.05.2015, 20:30 **[ТС]**

Так не знаю, нет доступа к тестам

@mamedovvms · 23.05.2015, 20:48

может быть в случае если они равны вывести оба значения

@InMs_8 · 23.05.2015, 20:53 **[ТС]**

Нет, не проходит

@mamedovvms · 23.05.2015, 21:03

а если в файле нет матрицы или n = 0 тогда может быть ничего не нужно выводить в выходной файл

Добавлено через 29 секунд
а в вашем случае будет выводиться 0

@InMs_8 · 23.05.2015, 21:12 **[ТС]**

Сделать проверку на N?

Добавлено через 7 минут
И опять не проходит

Pascal
1
2
3
4
5
6
7
  read(file_in, N);
if (N<>0) then
begin
  for i := 1 to N do                                     
    for j := 1 to N do
... 
end;

@mamedovvms · 23.05.2015, 21:16

N>0

ФедосеевПавел · 23.05.2015, 21:20

Лучше прочитать исходное условие задачи.
А так можно ещё предположить переполнение разрядной сетки-сумму можно накапливать в более емком типе.
И непонятен алгоритм вычисления суммы побочной диагонали. Непонятно определение побочной диагонали, сколько их возможно.
Нет инициализации переменных.

@InMs_8 · 23.05.2015, 21:22 **[ТС]**

В условии оговорено, что N>0
Опять WA

Добавлено через 1 минуту
Вам дана квадратная таблица с числами. Найдите в ней диагональ с максимальной суммой.
Входные данные:
В первой строке дано число n (1 <= n <= 1000) - размер таблицы.
В следующих n строках по n чисел, не превосходящих по модулю 1000 - сама таблица.
Выходные данные:
Выведите максимальную сумму чисел на диагонали.

ФедосеевПавел · 23.05.2015, 21:29

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

В первой строке дано число n (1 <= n <= 1000) - размер таблицы.

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

F: array[1..501]of array [1..501] of integer;

Если в judje стоит FPC, то можно применить диамические массивы

Pascal
1
2
3
4
var
  F: array of array of integer;
.............
  SetLength(F, n, n);

И индексация от 0 до n-1.
Добавлено через 1 минуту
Это плюс к тому, что нужно искать диагональ с максимальной суммой - т.е. диагоналей не 2, а более.

@mamedovvms · 23.05.2015, 21:36

нужно суммировать числа находящиеся по диагонали, а не только сумму главной и побочной диагонали

@InMs_8 · 23.05.2015, 21:39 **[ТС]**

Тогда неудивительно, что выдает ошибку. Спасибо, не сообразил насчет диагоналей,исправлю

ФедосеевПавел · 23.05.2015, 21:49

Я бы попробовал так, но без гарантии работоспособности

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program Diagonals;
 
type
  TArray = array of longint;
var
  N: integer;
  A, MaxSum: longint;
  i, j: integer;
  SummArray: TArray;
begin
  Assign(input, 'max_table_in.txt');
  reset(input);
  readln(N);
  SetLength(SummArray, N + N - 1);
  for j := 0 to 2 * N - 2 do
    SummArray[j] := 0;
  for i := 0 to pred(N) do
  begin
    for j := 0 to pred(N) do
    begin
      Read(A);
      Inc(SummArray[N - 1 - i + j], A);
    end;
    readln;
  end;
  MaxSum := SummArray[0];
  for j := 1 to 2 * N - 1 do
    if MaxSum < SummArray[j] then
      MaxSum := SummArray[j];
  Assign(output, 'max_table_out.txt');
  rewrite(output);
  writeln(MaxSum);
end.

@InMs_8 · 23.05.2015, 21:55 **[ТС]**

Сообщение от ФедосеевПавел

for j := 1 to 2 * N - 1 do if MaxSum < SummArray[j] then MaxSum := SummArray[j];

Здесь пишет ошибку времени исполнения
И при j=0 тоже

ФедосеевПавел · 23.05.2015, 21:58

Точно

Pascal
1
for j := 1 to 2 * N - 2

Опечатался, забыл о индексации от 0.

@InMs_8 · 23.05.2015, 22:09 **[ТС]**

А программа может принимать в расчет диагональ как один элемент,допустим угловой?
Потому что,даже если тестировать на наборе:
N=2;
-3 4
2 5
Выдает 4, а должно быть 6.Непонятно откуда 4

ФедосеевПавел · 23.05.2015, 22:27

Да - это же моя программа, для решения придуманной мною задачи, где диагонали строго параллельны и их ровно 2*N-1.
Это потому, что я не увидел в условии определения диагоналей. Потому и просил привести определения и постановку задачи.

Добавлено через 12 минут
Для ломаных диагоналей

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program Diagonals;
 
type
  TArray = array of longint;
var
  N: integer;
  A, MaxSum: longint;
  i, j: integer;
  SummArray: TArray;
begin
  Assign(input, 'max_table_in.txt');
  reset(input);
  readln(N);
  SetLength(SummArray, N);
  for j := 0 to N - 1 do
    SummArray[j] := 0;
  for i := 0 to pred(N) do
  begin
    for j := 0 to pred(N) do
    begin
      Read(A);
      Inc(SummArray[(N - i + j) mod N], A);
    end;
    readln;
  end;
  MaxSum := SummArray[0];
  for j := 1 to N - 1 do
    if MaxSum < SummArray[j] then
      MaxSum := SummArray[j];
  Assign(output, 'max_table_out.txt');
  rewrite(output);
  writeln(MaxSum);
end.

Добавлено через 1 минуту

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

Выдает 4, а должно быть 6.Непонятно откуда 4

Я поторопился, наградил тебя ошибочным кодом. Но задание ведь твоё - проверяй, разбирайся - поймёшь и "откуда".

@InMs_8 · 23.05.2015, 22:36 **[ТС]**

Спасибо большое

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	23.05.2015, 20:28
	на каком тесте выдает ошибку? 0

@InMs_8 0 / 0 / 0 Регистрация: 23.05.2015 Сообщений: 11
	23.05.2015, 20:30 [ТС]
	Так не знаю, нет доступа к тестам 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	23.05.2015, 20:48
	может быть в случае если они равны вывести оба значения 0

@InMs_8 0 / 0 / 0 Регистрация: 23.05.2015 Сообщений: 11
	23.05.2015, 20:53 [ТС]
	Нет, не проходит 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	23.05.2015, 21:03
	а если в файле нет матрицы или n = 0 тогда может быть ничего не нужно выводить в выходной файл Добавлено через 29 секунд а в вашем случае будет выводиться 0 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	23.05.2015, 21:16
	N>0 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	23.05.2015, 21:20
	Лучше прочитать исходное условие задачи. А так можно ещё предположить переполнение разрядной сетки-сумму можно накапливать в более емком типе. И непонятен алгоритм вычисления суммы побочной диагонали. Непонятно определение побочной диагонали, сколько их возможно. Нет инициализации переменных. 0

@InMs_8 0 / 0 / 0 Регистрация: 23.05.2015 Сообщений: 11
	23.05.2015, 21:22 [ТС]
	В условии оговорено, что N>0 Опять WA Добавлено через 1 минуту Вам дана квадратная таблица с числами. Найдите в ней диагональ с максимальной суммой. Входные данные: В первой строке дано число n (1 <= n <= 1000) - размер таблицы. В следующих n строках по n чисел, не превосходящих по модулю 1000 - сама таблица. Выходные данные: Выведите максимальную сумму чисел на диагонали. 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	23.05.2015, 21:36
	нужно суммировать числа находящиеся по диагонали, а не только сумму главной и побочной диагонали 1

@InMs_8 0 / 0 / 0 Регистрация: 23.05.2015 Сообщений: 11
	23.05.2015, 21:39 [ТС]
	Тогда неудивительно, что выдает ошибку. Спасибо, не сообразил насчет диагоналей,исправлю 0

@InMs_8 0 / 0 / 0 Регистрация: 23.05.2015 Сообщений: 11
	23.05.2015, 22:09 [ТС]
	А программа может принимать в расчет диагональ как один элемент,допустим угловой? Потому что,даже если тестировать на наборе: N=2; -3 4 2 5 Выдает 4, а должно быть 6.Непонятно откуда 4 0

@InMs_8 0 / 0 / 0 Регистрация: 23.05.2015 Сообщений: 11
	23.05.2015, 22:36 [ТС]
	Спасибо большое 0