Форум программистов, компьютерный форум, киберфорум
Наши страницы
C# для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
T-Tim
1 / 1 / 0
Регистрация: 24.03.2015
Сообщений: 198
1

В матрице поменять местами наибольшие элементы в первом и третьем столбцах

21.10.2015, 21:29. Просмотров 908. Ответов 1
Метки нет (Все метки)

В матрице А(4-строки,3-столбца) поменять местами наибольшие элементы в первом и третьем столбцах.

Как этот код будет выглядеть в С# , и как вместо процедуры исп массив.

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
program ch31;
 
var i, j, k, m, max, x: integer;
    a: array [1..3] of array [1..4] of integer;
 
procedure maxind(t: integer);
 
var r: integer;
 
begin
  k := 1;
  max := a[1, t];
  for r := 2 to 3 do
    if a[r, t] > max
      then begin
        k := r;
        max := a[r, t];
      end;
end;
 
begin
  randomize;
  writeln('Source array:'); writeln;
  for i := 1 to 3 do
    begin
      for j := 1 to 4 do
        begin
        a[i, j] := random(201) - 50;
        write(a[i, j]:4, '   ');
      end;
      writeln;
    end;
  writeln;
  maxind(1);
  m := k;
  maxind(3);
  x := a[m, 1];
  a[m, 1] := a[k, 3];
  a[k, 3] := x;
  writeln('Destination array:'); writeln;
  for i := 1 to 3 do
    begin
      for j := 1 to 4 do
        begin
        write(a[i, j]:4, '   ');
      end;
      writeln;
    end;
  readln;
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2015, 21:29
Ответы с готовыми решениями:

В матрице поменять местами наибольшие элементы в первом и последнем столбце
В матрице (задаётся вручную) поменять местами наибольшие элементы в 1ом и...

В заданной матрице целых чисел размером (N, N) поменять местами элементы главной и побочной диагонали
Заданная матрица целых чисел размером (N, N). Поменять местами элементы главной...

В матрице поменять местами столбец с номером N с тем, который содержит только отрицательные элементы
Вот эта не понятная. Есть решение у кого? Дана матрица размера MxN. Поменять...

Как в одномерном массиве поменять местами четные и нечетные элементы местами
Как в обычном одномерном массиве поменять местами четные и нечетные элементы...

поменять местами строки в матрице c#
Помогите пожалуйста: дан массив размера 7 × 8. Создать новый массив, получаемый...

1
Марина1314
0 / 0 / 1
Регистрация: 10.02.2014
Сообщений: 2
22.10.2015, 14:53 2
Лучший ответ Сообщение было отмечено T-Tim как решение

Решение

C#
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
namespace ConsoleApplication5
{
    class Program
    {
        static void Main(string[] args)
        {
          //  int max = m0;
           // int max1 = 0;
            //int p;;
            int i1 = 0;
            int j1 = 0;
            int i2 = 0;
            int j2 = 0;
            Random rnd = new Random();
            int[,] mass = new int[3, 3];
            for (int i = 0; i < 3; i++)
                for (int j = 0; j < 3; j++)
 
                    mass[i, j] = rnd.Next(10);
            for (int i = 0; i < 3; i++)
            {
                for (int j = 0; j < 3; j++)
 
                    Console.Write(mass[i, j] + "\t");
                Console.WriteLine();
            }
 
            int max = mass[0,0];
            int max1 = mass[0,0];
            int p = mass[0, 0];
 
 
            Console.ReadLine();
 
             for (int i = 0; i < 3; i++)
                 for (int j = 0; j < 1; j++)
                 {
                     if (mass[i, j] > max)
                     {
                         max = mass[i, j];
                         i1 = i;
                         j1 = j;
                     }
                
                 }
            
           
             for (int i = 0; i < 3; i++)
                 for (int j = 3-1; j > 1 ; j--)
                 {
                     if (mass[i, j] > max1)
                     {
                         max1 = mass[i, j];
                         i2 = i;
                         j2 = j;
 
                     }
 
                 }
 
             mass[i1, j1] = max;
             mass[i2, j2] = max1;
             for (int i = 0; i < 3; i++)
                 for (int j = 0; j < 3;j++ )
 
                     p = mass[i1, j1];
                 mass[i1, j1] = mass[i2, j2];
                 mass[i2, j2] = p;
             
 
 
                  Console.WriteLine("Меняем значения {0}(максимальное число 1го столбца) и {1}"+
                     "(максимально число последнего столбца) друг с другом",max,max1);
                 Console.ReadLine();
 
           
 
                     for (int i = 0; i < 3; i++)
                     {
                         for (int j = 0; j < 3; j++)
 
                             Console.Write(mass[i, j] + "\t");
                         Console.WriteLine();
                     }
             Console.ReadLine();
 
 
 
 
 
 
 
        }
    }
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2015, 14:53

В матрице поменять местами строку и столбец
Как в квадратной матрице порядка N поменять местами строку и столбец, на...

Поменять местами строки и столбцы в матрице.
Дана матрица размером 7x4. Переставляя её строки и столбцы, добейтесь того,...

Поменять местами определённые строки в матрице
8. Напишите программу, которая находит первое положительное число матрицы и...


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

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

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