Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Задача.двумерный массив.

Автор: Холодная 19.6.2006, 01:24

Доброе всем!!!Столкнулась с проблемой.Прошу вас помоч.В паскале дуб дубом.А нужно решить срочно.Перейду к задаче.

Дан двумерный массив B(N,N), N<=20

-вычеслить сумму элементов массива,рассположенных подглавной диагональю.
-определить номер строки,сумма элементов которой максимальна.

Очень прошу помоч мне.
Моя почта NASTOYAWAYA18@yandex.ru
ICQ 228-570-705

smile

Автор: comtat 19.6.2006, 11:34

Код


var i:integer; // счетчик по строкам
      j:integer; // -//- по столбцам
      arraySum: array of integer;
      matrix: array [1..N] of array [1..N] of integer;
begin
 Setlength(arraySum, N);
 for j:=0 to N-1 do
   for i:=j to N-1 do
     begin
       arraySum[j]:=arraySum[j]+matrix[j,i];
     end;
end;

-определить номер строки,сумма элементов которой максимальна.

Код


metka:=0;
max:=arraySum[0];
for j:=1 to N-1 do
 if (max<arraySum[j]) then 
  begin
    max:=arraySum[j];
    metka:=j;
  end;

Автор: Bulat 19.6.2006, 11:45

Давно с Паскалем не баловался smile

, но припоминаю, вроде что-то такое будет:

Код


program massiv;

type mas = array [1..20, 1..20] of real; 

var B: mas;
      x, summa, sum, str: real;
      N, index, i, j: integer;

begin
  N=0;
  if N<1 and N>20 then
  begin
    writeln('Введите N: (N>0 и N<21)');
    readln(N);
  end else 
  begin

    for i:=1 to N do
      for j:=1 to N do
      begin
        writeln('Введите B[' + i + ',' + j + '] элемент');
        readln(x);
        B[i,j]:=x;
      end;

    summa:=0;
    for i:=2 to N do
      for j:=i-1 to N-1 do
      begin
        summa:= summa + B[i,j];
      end;
    writeln('Сумма диагонали: ' + summa);

    sum:=0;
    str:=0;
    index:=0;
    for i:=1 to N do
    begin
      for j:=1 to N do
      begin
        sum:= sum + B[i,j];
      end;
      if i=1 then 
      begin 
        str:= sum;
        sum:=0;
        index:=1;
      end else
      begin
        if sum>str then 
        begin
          str:=sum;
          index:=i;
        end;
        sum:=0;
      end;
    end;

    writeln('строка: ' + index);
    writeln('сумма: ' + str);

  end;
end;

Вроде бы должно работать, но все же проверь, мож где-то что-то упустил smile

Автор: UpL1nK 19.6.2006, 13:39

Bulat, проверил твою программку, выдает 105 )
вот рабочая

Код


uses wincrt;
const n=3;
Type matrix=array[1..n,1..n] of integer;
Var
   x:matrix;i,j,t:byte;
   s,max,s2:integer;
Procedure Input(var x:matrix);
begin
for i:=1 to n do begin
    for j:=1 to n do
        x[i,j]:=random(20)-10;
        end;
end;
Procedure Print(x:matrix);
Begin
for i:=1 to n do begin
    for j:=1 to n do
    write(x[i,j]:3);writeln;end;
end;
Begin
Randomize;
max:=-10000;
s:=0;s2:=0;
Input(x);
Print(x);
for i:=2 to n do
     for j:=i-1 to n-1 do
         s:=s+x[i,j];       {Суммма элементов под главной диагональю}

for i:=1 to n do begin
    for j:=1 to n do
        s2:=s2+x[i,j];
        if s2>max then begin
        max:=s2;
        t:=i;
        end;                {-определить номер строки,сумма элементов которой максимальна.}
        end;
Writeln('Сумма = ',s);
Writeln;
Writeln('Номер строки -> ',t);
End.

Автор: UpL1nK 19.6.2006, 13:57

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

Код


for i:=1 to n do
for j:=1 to n do 
Readln(x[i,j]);

Автор: Bulat 19.6.2006, 14:31

Цитата(UpL1nK @ 19.6.2006, 13:39)

Bulat, проверил твою программку, выдает 105 )

Ну я давно уже не паскалю, остались лишь кое-какие воспоминания. Теперь у меня другая, настоящая любовь - java. smile