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

[Vladys95]

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

[Stilet]

Попытки и наработки узреть можно?

[Vladys95]

На данную программу наработок нету, так как вообще ничего не понятно(((. Как я понял порядок матрици n, это типа 3х3 или 4х4 и т.д?

[Stilet]

Ой не ))
Я думаю это просто обычная матрица, а n ее размерность.
врядли преподы настолько суровы.
С матрицей 5х5 сможешь наработки показать?

[Vladys95]

Паралельную главной диагонале, ето: 1.2, 2.3 и 2.1, 3.2 ?

[Aleksandr H.]

ууууух.. многа букаффф написАл

uses crt;
const n=5;
var a:array[1..n,1..5] of byte;
maxd:іnteger;nmaxd,і:byte;
f:text;
procedure readdata;
var і,j:byte;
begіn
randomіze;
for і:=1 to n do
begіn
    for j:=1 to n do
        begіn
           a[і,j]:=random(21);
           wrіte(f,a[і,j]:4);
        end;
    wrіteln(f);
end;
end;

procedure ShowDіagonal(nr:byte);
var іі,jj,і1,j1:byte;s:іnteger;
begіn
  s:=0;
  іf nr > n then
  begіn
   іі:=1;jj:=abs(n-nr)+1
  end
  else
  begіn
  іі:=n-nr+1;jj:=1;
  end;
  wrіteln(f,'startrow=',іі,',starcol=',jj);
 for і1:=1 to n do
 begіn
 for j1:=1 to n do
  begіn
     іf (і1=іі) and (j1=jj) then begіn wrіte(f,a[і1,j1]:4); іnc(іі);іnc(jj);s:=s+a[і1,j1]; end
     else wrіte(f,'  ':4);
   end;
 wrіteln(f);
 end;
 wrіteln(f);
 wrіteln(f,'suma d = ',s);
 іf s>maxd then begіn maxd:=s;nmaxd:=nr;end;
end;
BEGIN
assіgn(f,'vlad.txt');
rewrіte(f);
readdata;
wrіteln;
for і:=1 to 2*n - 1 do
begіn
 wrіteln(f);
 wrіteln(f,і,' dіag');
 іf і <> 2*n dіv 2 then showdіagonal(і) else wrіteln(f,'MAIN');
 wrіteln(f,'-----------');
end;
wrіteln(f);
wrіteln(f,'===========================');
wrіteln(f,'maxd = ',maxd,'; Nr = ',nmaxd);
showdіagonal(nmaxd);
close(f);
END.

[Vladys95]

Спасибо конечно, но попроще никак? И у вас в программе все і украинские, в общем программа их не четает и приходится менять)...

[Aleksandr H.]

А чем этот вариант не устраивает? "і" никак не русские

const n=5;
var a:array[1..n,1..5] of byte;
maxd:integer;nmaxdi,nmaxdj,i:byte;
procedure readdata;
var i,j:byte;
begin
randomize;
for i:=1 to n do
    for j:=1 to n do
           a[i,j]:=random(21);
end;
procedure ShowDiagonal(nr:byte);
var ii,jj,i1,j1:byte;s:integer;
begin
  s:=0;
  if nr > n then begin ii:=1;jj:=abs(n-nr)+1 end
  else begin ii:=n-nr+1;jj:=1;end;
 i1:=ii;j1:=jj;

 while (ii < n) and (jj < n) do
  begin
   s:=s+a[ii,jj];
   inc(ii);inc(jj);
  end;
 if s>maxd then begin maxd:=s;nmaxdi:= i1;nmaxdj:=j1;end;
end;
BEGIN
readdata;
for i:=1 to 2*n - 1 do
begin
 if i <> 2*n div 2 then showdiagonal(i);
end;
writeln('Diagonal, najbilsza suma jakoi, || osnovnij poczynatsa z [',nmaxdi,',',nmaxdj,']');
END.

[Vladys95]

Все работает спасибо, только вот маленькая делема, процедур мы еще не учили....

[Aleksandr H.]

Не дилемма, а "неполностью сформированое условие"

const n=5;
var a:array[1..n,1..5] of byte;
maxd:integer;nmaxdi,nmaxdj,i,j,ii,jj,i1,j1,s:byte;
BEGIN
randomize;
for i:=1 to n do
    for j:=1 to n do
           a[i,j]:=random(21);
for i:=1 to 2*n - 1 do
begin
 if i <> 2*n div 2 then 
  begin
  s:=0;
  if i > n then begin ii:=1;jj:=abs(n-i)+1 end
  else begin ii:=n-i+1;jj:=1;end;
  i1:=ii;j1:=jj;
  while (ii < n) and (jj < n) do
  begin
   s:=s+a[ii,jj];
   inc(ii);inc(jj);
   end;
  if s>maxd then begin maxd:=s;nmaxdi:= i1;nmaxdj:=j1;end;
  end;
end;
writeln('Diagonal, najbilsza suma jakoi, || osnovnij poczynatsa z [',nmaxdi,',',nmaxdj,']');
END.