Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Юлия_nev
0 / 0 / 0
Регистрация: 24.11.2013
Сообщений: 24
1

Вставить в заданную матрицу столбец с номером К

29.12.2013, 18:13. Просмотров 846. Ответов 4
Метки нет (Все метки)

Дана матрица MxN Вставить в данную матрицу столбец с номером к

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
program mxn;
uses crt;
const n=5;
      m=4;
var a: array [1..n,1..m] of integer;
    i,j,min,max,k,l,zm: integer;
 begin
  clrscr;
   randomize;
    writeln ('source array:');
   for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20);
     write(a[i,j]:3);
    end;
     writeln;
  end;
  min:=a[1,1];
  max:=a[1,1];
   for i:=1 to n do
    for j:=1 to m do
      begin
       if max< a[i,j] then
        begin
         max:=a[i,j];
         k:=i;
        end
         else
          if min>a[i,j] then
           begin
            min:=a[i,j];
            l:=i;
           end;
      end;
        if l=k then
         begin
          if l=n then
            for j:=1 to m do
             begin
              zm:=a[1,j];
              a[1,j]:=a[l,j];
              a[l,j]:=zm;
             end
          else
               for j:=1 to m do
                begin
                 zm:=a[l,j];
                 a[l,j]:=a[l+1,j];
                 a[l+1,j]:=zm;
                end
        end
          else
           for j:=1 to m do
            begin
             zm:=a[l,j];
             a[l,j]:=a[k,j];
             a[k,j]:=zm;
            end;
            writeln ('finished array');
 
             for i:=1 to n do
             begin
              for j:=1 to m do
               write (a[i,j],' ');
              writeln;
            end;
               writeln;
                  readln;
 end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2013, 18:13
Ответы с готовыми решениями:

Дана матрица размера NxM и целое число К (1<=K<=N). После столбца матрицы с номером К вставить столбец из единиц
. Программа должна содержать процедуру ввода массива, процедуру вывода массива, процедуру...

Отсортировать каждый столбец с четным номером по неубыванию, а с нечетным номером -по невозрастанию
Дана целочисленная прямоугольная матрица размера M·N. Отсортировать каждый столбец с четным номером...

Удалить строку с номером k и столбец с номером i
Удалить строку с номером k и столбец с номером iю С процедурами и функциями ...плиз.. Добавлено...

Преобразовать заданную прямоугольную матрицу Х (р,к) в матрицу строку У (п, расположив последовательно все столбцы матрицы Х
Преобразовать заданную прямоугольную матрицу Х (р,к) в матрицу строку У (п, расположив...

После столбца матрицы с номером K вставить столбец из единиц
Дорогие программисты.Решите пожалуста хоть что то из этого. 1)Дана целочисленная матрица размера M...

4
ermolay
3430 / 2369 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
29.12.2013, 18:46 2
Юлия_nev, а какое полное задание?
0
Юлия_nev
0 / 0 / 0
Регистрация: 24.11.2013
Сообщений: 24
29.12.2013, 20:05  [ТС] 3
Дана матрица порядка MxN Вставить в данную матрицу столбец с номером К (это как бы есть всё задание)

Добавлено через 10 минут
Цитата Сообщение от ermolay Посмотреть сообщение
Юлия_nev, а какое полное задание?


Дана матрица порядка MxN Вставить в данную матрицу столбец с номером К (это как бы есть всё задание)
0
ermolay
3430 / 2369 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
29.12.2013, 20:20 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Юлия_nev Посмотреть сообщение
как бы есть всё задание
у вас как бы решение не соответствует заданию, зачем то ищутся минимумы и максимумы, далее я не очень понял, что делается.
Цитата Сообщение от Юлия_nev Посмотреть сообщение
Вставить в данную матрицу столбец с номером К
и не совсем понятно что представляем из себя столбец.
ниже в программе в матрицу вставляется столбец с номером k, состоящий из единиц:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program mxn;
 
uses
  crt;
 
const
  nmax = 20;
 
var
  a: array [1..nmax, 1..nmax] of integer;
  n, m, i, j, k: integer;
 
begin
  clrscr;
  randomize;
  repeat
    write('Enter n, m: (n<=',nmax,'; m<',nmax,'):');
    readln(n, m);
  until (n in [1..nmax]) and (m in [1..nmax-1]);
  writeln('Source array:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(20);
      write(a[i, j]:3);
    end;
    writeln;
  end;
  // ââîäèì k
  repeat
    write('Enter k (k<=',nmax,'):');
    readln(k);
  until k in [1..nmax];
  // óâåëè÷èâГ*ГҐГ¬ êîëè÷åñòâî ñòîëáöîâ Г*Г* 1
  inc(m);
  // ñäâèãГ*ГҐГ¬ ýëåìåГ*ГІГ» ïîñëå ñòîëáöГ* k ГўГЇГ°Г*ГўГ®
  // ГЁ ГўГ±ГІГ*âëÿåì ýëåìåГ*ГІ Гў ñòîëáöå k
  for i:=1 to n do
  begin
    for j:=m downto k do
      a[i,j]:=a[i,j-1];
    a[i,k]:=1;
  end;
 
  writeln('New array:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:3);
    writeln;
  end;
  readln;
end.
Добавлено через 7 минут
Цитата Сообщение от Юлия_nev Посмотреть сообщение
порядка MxN
да, и у меня (как и у вас) матрица NxM. Привычка..
1
Юлия_nev
0 / 0 / 0
Регистрация: 24.11.2013
Сообщений: 24
08.01.2014, 15:38  [ТС] 5
Цитата Сообщение от ermolay Посмотреть сообщение
да, и у меня (как и у вас) матрица NxM. Привычка..
спасибо вам большое за помощ И С прошедшими вас праздниками)
0
08.01.2014, 15:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2014, 15:38

После столбца матрицы с номером K вставить столбец из единиц.
Не могу найти где надо исправить код.Помогите пжл . Условие задачи: Дана матрица размера M × N и...

Вставить К-й столбец с нулевыми значениями в матрицу
Дана матрица размерностью M*N. Вставить К-й столбец с нулевыми значениями в матрицу. Обнулить в...

Вставить в исходную матрицу между пятым и шестым столбцами новый столбец с элементами
11


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru