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

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

29.05.2012, 23:48. Просмотров 847. Ответов 1
Метки нет (Все метки)

. Программа должна содержать процедуру ввода массива, процедуру вывода
массива, процедуру обработки массива. Процедуры должны иметь список формальных
параметров, содержать локальные переменные.
Исходные данные задать самостоятельно.
Дана матрица размера NxM и целое число К (1<=K<=N).После столбца матрицы с номером К вставить столбец из единиц
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2012, 23:48
Ответы с готовыми решениями:

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

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

Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Найти сумму и произведение элементов K-й строки данной матрицы.
Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Найти сумму и...

Дана матрица размера M × N. Поменять местами столбец с номером 1 и последний из столбцов, содержащих только положительные элементы.
Matrix53°. Дана матрица размера M × N. Поменять местами столбец с номером 1 и...

Дана матрица размера M × N. Продублировать столбец матрицы, содержащий ее минимальный элемент.
Друзья, прошу вас, хелп ми, мне еще около 40 подобных решать, подскажите как...

1
ermolay
3431 / 2370 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
30.05.2012, 07:43 2
Лучший ответ Сообщение было отмечено Lurs как решение

Решение

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
const
  nmax=100;
type
  tArr=array[1..nmax,1..nmax] of integer;
  
procedure init(n1,m1: integer; var ar: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
    for j:=1 to m1 do
      ar[i,j]:=random(199)-99;
end;
 
procedure outPut(n1,m1: integer; var ar: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
      write(ar[i,j]:5);
    writeln;
  end;
  writeln;
end;
 
procedure change(n1,m1,k: integer; var ar: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
    for j:=m1 downto k+1 do
      ar[i,j]:=ar[i,j-1];
  for i:=1 to n1 do
    ar[i,k+1]:=1;
end;
  
var
  a: tArr;
  n,m,k: integer;
begin
  randomize;
  write('Введите размеры массива: ');
  readln(n,m);
  init(n,m,a);
  writeln('Исходный массив:');
  outPut(n,m,a);
  inc(m);
  repeat
    write('Введите число k (1<=k<=m): ');
    readln(k);
  until k in [1..m];
  change(n,m,k,a);
  writeln('Полученный массив:');
  outPut(n,m,a);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2012, 07:43

Вставить столбец из нулей после столбца, который содержит минимальный элемент матрица
1) Вставить столбец из нулей после столбца, который содержит минимальный...

Дано число k и матрица размером 4х10. Удалить столбец матрицы с номером k.
Дано число k и матрица размером 4х10. Удалить столбец матрицы с номером k.

Дана матрица К(Р, С). Вставить строку, удалить столбец
Дана матрица К(Р, С). Вставить новую строку, состоящую из 1 в М – позицию....


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

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

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