VPF::[Pascal] Удаление из матрицы i-ой cтроки

СМЕХ

Дата 26.12.2006, 18:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите пожалуйста решить задау…..
Задана матрица {A:j}3,4 и переменные m, n характеризующие размеры матрицы. Удалить из матрицы i-ую cтроку с последующим удалением оставшейся матрицы и изменением характеристики m.

Kuvaldis

Дата 26.12.2006, 19:33 (ссылка)

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

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

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

СМЕХ,

Код


const
    MAX = 20;

Var
   matrix : Array [1..MAX, 1..20] of integer;
   m, n : integer;
   i, k, line : integer;

Begin
   Writeln('Input matrix rows (max = ', max, ')');
   Readln(m);

   Writeln('Input matrix columns (max = ', max, ')');
   Readln(n);

   Writeln('Input elements');
   for i := 1 to m do
      for k := 1 to n do
         read(matrix[i, k]);

   Writeln('Input line to delete (max = ', max, ')');
   Readln(line);

   for i := line + 1 to m do
   begin
       for k := 1 to n do
          matrix[i - 1, k] := matrix[i, k];
   end;

   Dec(m); // уменьшаем количество строк
   Writeln('Rows count = ', m);

  Writeln('New matrix');
   for i := 1 to m do
   begin
      for k := 1 to n do
         write(matrix[i, k] : 3);
      writeln;   
   end;
          
   Writeln('Press any key to exit');   
   readln;

end.

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

СМЕХ

Дата 26.12.2006, 20:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Огромное спасибо. С наступающим smile

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