Для заданной целочисленной матрицы найти максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы - Turbo Pascal

  1. Для заданной целочисленной матрицы найти максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.


textual

Код к задаче: «Для заданной целочисленной матрицы найти максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы - Turbo Pascal»

procedure TForm1.Button2Click(Sender: TObject);
begin
  for j := 1 to m-1 do begin
    sum := 0;
    for i := 1 to n-j do
      sum := sum + a[i+j,i];
    if j=1 then max_sum := sum
    else if sum>max_sum then max_sum := sum;
    end;
  for j := 1 to m-1 do begin
    sum := 0;
    for i := 1 to n-j do
      sum := sum + a[i,j+i];
    if j=1 then max_sum1 := sum
    else if sum>max_sum1 then max_sum1 := sum;
    end;
    if max_sum1>max_sum then max_sum := max_sum1;
    label2.caption:=IntToStr(max_sum);
end;

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.000 из 5



Похожие ответы
  1. Есть процедура на Pascal (посчитует суму в кажой строке матрицы)

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. Помогите дописать в задаче сортировку пузырьком и если можно с пояснением как она будет применяться. Условие задачи: Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы матрицы, расположить их в соответствии с ростом характеристик. Вот какой кусок кода получился у меня (Программу я стал писать через процедуры и функции), что бы легче было понять мою идею, я оставлю сбоку к элементам когда свои комментарии:

  1. Составить алгоритм и написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли:

  1. Вычислить и вывести на экран(В Паскале) значение заданной функции

  1. Вычислить значение суммы членов бесконечного ряда с заданной точностью.Определить число членов ряда, вошедших в сумму.

  1. Напечатать элементы заданной матрицы А(N, N) в следующем порядке: (смотреть вложение)

  1. Найти сумму бесконечного числового ряда с заданной точностью ε. Считать, что точность достигнута, если очередное слагаемое по модулю меньше ε. Вывести на экран значение суммы, число членов ряда, вошедших в сумму, и очередное слагаемое. Сравнить вычисленное значение суммы ряда со значением, указанным справа от ряда.

  1. Помогите написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Заранее спасибо!

  1. Помогите написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Заранее спасибо! Задание: