матрицы, нужна помошь

[lelia222]

uses crt;
var a,b:array[1..50,1..50] of real;
    n,i,j,m,k:integer;
    z,sm:real;
begin
clrscr;
randomize;
write('Размер матрицы n=');
readln(n);
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random-6;
    write(a[i,j]:7:2);
   end;
  writeln;
 end;
readln;
repeat
write('Введите целое число больше 1 m=');
readln(m);
until m>1;
writeln('Матрица B=A*m:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=a[i,j]*m;
    write(b[i,j]:7:2);
   end;
  writeln;
 end;
readln;
repeat
write('Введите номер строки от 1 до ',n,' k=');
readln(k);
until k in [1..n];
write('Введите число для умножения');
readln(z);
writeln('Матрица B, строка ',k,' умножена на ',z:0:2);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=k then b[i,j]:=b[i,j]*z;
    write(b[i,j]:7:2);
   end;
  writeln;
 end;
readln;
sm:=0;
for i:=1 to n do
for j:=1 to n do
if(j<i)and(j mod 2=0)and(b[i,j]<0)then sm:=sm+b[i,j];
write('Сумма отрицательных ниже главной диагонали в четных столбцах=',sm:0:2);
readln
end.


я сделала так скажите правильно или ваш вариант всетки верней???

[Данила]

в программировании нет слова верней\неверней) ваша программа делает то что вам нужно? если да,то в чем тогда вопрос?)

[SmartStudent]

Экономней хранить матрицу в одномерном массиве)

[Данила]

в таких программах главное понять ход алгоритма и развить програмистское мышление) а умение оптимизировать код придет с опытом)

[Asix]

Может в одномерном и экономнее, но кто знает кто еще будет Вашу прогу редактировать, так что лучше ее сделать как можно понятнее =))
Я всегда использую двумерный массив в таких случаях =))

[lu]

ну вообще кому как удобнее...
программа - это творчество программиста =))) хоть как может усложнить или облегчить %-)

[Asix]

Знаешь Ален, когда я писал программы для данного сайта я понял как важна оптимизация и четкость каждого шага.
Чем проще и понятнее напишешь, тем легче будет потом искать ошибки =))

[lu]

ну ет ж зависит от программиста. вдруг он маньяк)))) любит все усложнять и искать неделями ошибки)))))

[Asix]

Как в объявлении - ищу мазахиста =))

[lu]

%-) нее ну правда люди бывают разные)) и мозг у всех по разному работает =)) кому то кажется что этот метод попроще , а другому наоборот сложно очень =)))

[lelia222]

Преобразование прямоугольной матрицы
Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании.
а) Заменить заданным вектором столбцы матрицы В, не содержащие ни одного отрицательного элемента;
б) в полученной матрице найти сумму элементов строк с четными номерами, содержащих хотя бы один нулевой элемент.
Пожалуста помогите!!!
           

[Данила]

в чем загвоздка? задача похожа не предыдущую...

[lelia222]

Преобразование прямоугольной матрицы
Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании.
а) Заменить заданным вектором столбцы матрицы В, не содержащие ни одного отрицательного элемента;
б) в полученной матрице найти сумму элементов строк с четными номерами, содержащих хотя бы один нулевой элемент.
Пожалуста помогите!!!
           

const MaxSize=50;
var b:array[1..MaxSize,1..MaxSize] of integer;
    a:array[1..MaxSize] of integer;
    i,j,m,n,k,Sum:integer;
begin
  clrscr;
  repeat
    writeln('Введите количество строк матрицы ');
    readln(m);
  until (m>1) and (m<MaxSize);
  repeat
    writeln('Введите количество столбцов матрицы ');
    readln(n);
  until (n>1) and (n<MaxSize);
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          writeln('Введите элемент b[',i,' ',j,']');
          readln(b[i,j]);
        end;
    end;
  clrscr;
  writeln('Введите элементы вектора ');
  for i:=1 to m do
    begin
      writeln('Введите элемент № ',i);
      readln(a);
    end;
  clrscr;
  writeln('Исходная матрица ');
  for i:=1 to m do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
        writeln;
    end;
  k:=0;
  for j:=1 to n do
    begin
      for i:=1 to m do
        if b[i,j]>=0 then
          begin
            inc(k);
            if k=m then
              begin
                for i:=1 to m do
                  b[i,j]:=a;
                  k:=0;
              end;
          end;
    end;
  writeln('Преобразованная матрица:');
  for i:=1 to m do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
        writeln;
    end;
  Sum:=0;
  for i:=1 to m do
    for j:=1 to n do
      if (i mod 2=0) then
        begin
          if b[i,j]=0 then
            begin
              for j:=1 to n do
                Sum:=Sum+b[i,j];
              writeln('Сумма ',i,' строки равна ',Sum);
              inc(i);
            end;
        end;
  readln;
end.
что то у меня не получается , после ввода вектора он мне не выдает преобразованную матрицу и не сумирует ее

[Данила]

Код: [Выделить]

writeln('Введите элементы вектора ');
  for i:=1 to m do
    begin
      writeln('Введите элемент № ',i);
      readln(a);
    end;
тут вы получаете элемент,и ничего с ним не делаете...он просто напросто теряется