4 / 4 / 0
Регистрация: 26.09.2009
Сообщений: 45
1

Поменять местами столбец матрицы с номером один и первый из столбцов, содержащий только положительные элементы

26.10.2009, 12:15. Показов 2438. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана матрица размера 5 x 10. Поменять местами столбец с номером один и первый из столбцов, содержащий только положительные элементы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2009, 12:15
Ответы с готовыми решениями:

Поменять местами первый столбец с номером один и первый из столбцов, содержащий только положительные элементы
Дана матрица размера 5 x 10. Поменять местами первый столбец с номером один и первый из столбцов,...

Поменять местами первый столбец с номером один и первый из столбцов, содержащий только положительные элементы.
Дана матрица размера 5 x 10. Поменять местами первый столбец с номером один и первый из столбцов,...

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

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

1
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
26.10.2009, 13:16 2
Лучший ответ Сообщение было отмечено UnFam0uS как решение

Решение

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
uses crt;
const
  str=4;{количество строкб изменишь на нужное, а то 5х10 долго нажимать надо))))}
  sto=4;{количество столбцов}
var
  a:array [1..str,1..sto] of integer;
  i,j,num,temp:integer;
begin
  num:=0;
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  writeln('------------------');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  {определяем положительный столбец}
  for i:=2 to str do
    for j:=1 to sto do
    begin
      if a[j,i]<=0 then
        break;
      if (j=sto) and (a[j,i]>0) then
        num:=i;
    end;
  {проверка стоит ли дальше продолжать}
  if num=0 then
  begin
    writeln('В заданной матрице нет положительных столбцов для замены первого...');
    exit
  end;
  {производим замену столбцов}
  for i:=1 to str do
  begin
    temp:=a[i,1];
    a[i,1]:=a[i,num];
    a[i,num]:=temp
  end;
  {выводим матрицу}
  writeln('Полученная матрица:');
  writeln('------------------');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j],' ');
    writeln
  end;
  writeln('------------------');
  writeln('Мы произвели замену 1 и ',num,' столбцов')
end.
1
26.10.2009, 13:16
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2009, 13:16
Помогаю со студенческими работами здесь

Поменять местами столбец матрицы с номером 10 и последний из столбцов, содержащих только положительные элементы
(C++) Дана матрица размера 5x10. Поменять местами столбец с номером 10 и последний из столбцов,...

Поменять местами столбец матрицы с номером 1 и последний из столбцов, содержащий только положительніе элементы
1)Дан целочисленный масив (N&gt;2).Удалить из масива все элементы с нечетными номерами.Условный...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru