Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Pascal] Дан двумерный массив размером 5 х 6...


Автор: dark99 20.4.2011, 17:04
Дан двумерный массив размером 5 х 6, заполненный случайным образом.

 - Заменить максимальный элемент каждой строки на противоположный;
 - Вставить после столбцов с максимальными элементами столбец и нулей;
 - Удалить среднюю строку;
 - Поменять местами средние столбцы

 ___________________________________


Код

Program ild;
uses crt;
const
  n=5;
  m=6;
var
  a,b,c,d,i:integer;
  z:array[1..n,1..(m+1)]of integer;
begin
  c:=1;
  d:=1;
  randomize;
  for a:=1 to n do
    begin
      for b:=1 to m do
        begin
          z[a,b]:=random(50);
          write(z[a,b]:4);
          if z[a,b]>z[c,d] then
            begin
              c:=a;
              d:=b;
            end;
        end;
      writeln;
    end;
for a:=1 to n do
begin
i:=1;
for b:=1 to m do
if z[a,b]>z[a,i] then i:=b;
z[a,i]:=- z[a,i];
end;
  writeln(chr(13),chr(10),'I:',chr(13),chr(10),'maximum z[',c,',',d,']:=',z[c,d],chr(13),chr(10));
  for a:=1 to n do
    begin
      for b:=m+1 downto d+1 do
        z[a,b]:=z[a,b-1];
      z[a,d+1]:=0;
    end;
  for a:=1 to n do
    begin
      for b:=1 to m+1 do
        write(z[a,b]:4);
      writeln;
    end;
  readln;
  writeln(chr(13),chr(10),'II:',chr(13),chr(10));
end;
readkey;
for a:= 1 to n-1 do
x[a]:= z[a,m div 2];
for a:= 1 to n-1 do
z[a,m div 2]:= z[a,m div 2 +1];
for a:= 1 to n-1 do
z[a,m div 2 + 1]:= x[a];
end;
  for a:=((n div 2)+(n mod 2)) to n-1 do
    for b:=1 to m do
      z[a,b]:=z[a+1,b];
  for a:=1 to n-1 do
    begin
      for b:=1 to m do
        write(z[a,b]:4);
      writeln;
    end;
  readln;
  end.



Мне нужно чтобы вы помогли найти ошибки или недочеты, исправили этот код. Желательно полным кодом.

Автор: volvo877 20.4.2011, 20:26
Цитата(dark99 @  20.4.2011,  16:04 Найти цитируемый пост)
Мне нужно чтобы вы помогли найти ошибки или недочеты, исправили этот код. Желательно полным кодом. 
Это ты разделом ошибся. Если б достаточно было тебе показать, а ты сам исправил - тогда пожалуйста. А так... Переезжаем...

Автор: volvo877 20.4.2011, 20:26
Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена! 

Автор: dark99 21.4.2011, 09:49
Код

program ild;
uses crt;
const
  n=5;
  m=6;
var
  a,b,c,d,i:integer;
  z:array[1..n,1..(m+1)]of integer;
procedure printtable;
begin
  for a:=1 to n do begin
    for b:=1 to m+1 do
      write('     ',z[a,b]:4);
    writeln;
  end;
end;
begin
  {начальное заполнение}
  randomize;
  for a:=1 to n do
    for b:=1 to m do
      z[a,b]:=random(99);
  printtable;
  {п.1 - заменяем максимальный элемент каждой строки на противоположный}
  write('A ');
  for a:=1 to n do begin
    i:=1;
    for b:=1 to m do
      if z[a,b]>z[a,i] then i:=b;
    z[a,i]:=-z[a,i];
  end;
  printtable;
  {п.2 - вставляем после столбца с максимальным элементом столбец нулей}
  write('B ');
  c:=1;
  d:=1;
  for a:=1 to n do begin
    for b:=1 to m do begin
      if z[a,b]>z[c,d] then
        begin
          c:=a;
          d:=b;
        end;
    end;
  end;
  {здесь в переменных c и d содержатся индексы максимального элемента в таблице}
  {сдвигаем оставшиеся столбцы вправо}
  for a:=1 to n do begin
    for b:=m+1 downto d+1 do
      z[a,b]:=z[a,b-1];
  end;
  {теперь заполняем нужный столбец нулями}
  for a:=1 to n do
    z[a,d+1]:=0;
  printtable;
  {п.3 - удаляем среднюю строку}
  write('C ');
  for a:=4 to n do begin
    for b:=1 to m+1 do
      z[a-1,b]:=z[a,b];
  end;
  for b:=1 to m+1 do
    z[5,b]:=0;
  printtable;
  {п.4 - меняем местами средние столбцы}
  write('D ');
  for a:=1 to n do begin
    i:=z[a,3];
    z[a,3]:=z[a,4];
    z[a,4]:=i;
  end;
  printtable;
end.
 



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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)