VPF::[Pascal] Дан двумерный массив размером 5 х 6...

dark99

Дата 20.4.2011, 17:04 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 20.4.2011

Репутация: нет
Всего: нет

Дан двумерный массив размером 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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(dark99 @ 20.4.2011, 16:04

)

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

Это ты разделом ошибся. Если б достаточно было тебе показать, а ты сам исправил - тогда пожалуйста. А так... Переезжаем...

volvo877

Дата 20.4.2011, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

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

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

dark99

Дата 21.4.2011, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 20.4.2011

Репутация: нет
Всего: нет

Код


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.

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

Присоединённый файл ( Кол-во скачиваний: 8 )

__________.jpg 65,44 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »