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

В каждой из матриц поменять местами две строки

15.05.2016, 19:16. Показов 1397. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В каждой из матриц: А(3 строки, 4 столбца) и В(5 строк, 5 столбцов) поменять местами две строки: в матрице А - строки 2 и 3, в матрице В - строки 2 и 4. Для обмена в матрице строк с произвольными номерами использовать процедуру.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.05.2016, 19:16
Ответы с готовыми решениями:

Найти в каждой строке матриц минимальный элемент и поменять его местами с последним элементом строки соответственно
Даны матрицы А(4,5).В(5,5).Найти в каждой строке матриц минимальный элемент и поменять его местами...

В каждой из матриц поменять местами две строки
В каждой из матриц A(4x3),B(5x4) поменять местами две строки: в А вторую и третью строки,в В-первую...

В каждой из заданных матриц поменять местами строки, содержащие самый и наименьший элемент
Даны две матрицы А и В одинакового порядка N. В каждой из заданных матриц поменять местами строки,...

В каждой из матриц: A (5 строк, 4 столбца) и В (4 строки, 3 столбца) поменять местами два столбца
В каждой из матриц: A (5 строк, 4 столбца) и В (4 строки, 3 столбца) поменять местами два столбца:...

3
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
15.05.2016, 23:51 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
type
    TLine = Array[Byte] Of ShortInt;
    TArray = Array[Byte] Of TLine;
    TMatrix = record
        arr: TArray;
        n, m: Byte;
    end;
procedure PrintMatrix(const matr: TMatrix);
var
    i, j: Byte;
begin
    with matr do
        for i := 0 to n - 1 do
        begin
            for j := 0 to m - 1 do
                Write(arr[i, j]:4);
            WriteLn;
        end;
end;
procedure GenerateMatrix(var matr: TMatrix);
var
    i, j: Byte;
begin
    with matr do
    begin
        repeat
            Write('Input n=');
            ReadLn(n);
        until (n > 0);
        repeat
            Write('Input m=');
            ReadLn(m);
        until (m > 0);
        for i := 0 to n - 1 do
            for j := 0 to m - 1 do
                arr[i, j] := Random(199) - 99;
    end;
    PrintMatrix(matr);
end;
procedure SwapLines(var x, y: TLine);
var
    z: TLine;
begin
    z := x;
    x := y;
    y := z;
end;
var
    a, b: TMatrix;
begin
    Randomize();
    WriteLn('Matrix A:'); GenerateMatrix(a);
    WriteLn('Matrix B:'); GenerateMatrix(b);
    with a do
        if (n > 2)
        then
            SwapLines(arr[1], arr[2])
        else
            WriteLn('Not enough lines to swap!');
    WriteLn('New matrix A:'); PrintMatrix(a);
    with b do
        if (n > 3)
        then
            SwapLines(arr[1], arr[3])
        else
            WriteLn('Not enough lines to swap!');
    WriteLn('New matrix B:'); PrintMatrix(b);
end.
1
0 / 0 / 0
Регистрация: 17.09.2015
Сообщений: 2
29.05.2016, 19:26  [ТС] 3
А в каком месте программы находится процедура Для обмена в матрице строк с произвольными номерами?
0
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
29.05.2016, 23:32 4
Порапа, procedure SwapLines(var x, y: TLine);
1
29.05.2016, 23:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2016, 23:32
Помогаю со студенческими работами здесь

Поменять местами две строки
Как можно поменять местами 2 строки? ID - autoincrement (идея - просто поменять местами ID-ники)

Поменять местами две строки матрицы
Дан двумерный массив. Поменять местами первую и третью строки.

Поменять местами две строки матрицы
1. Сформировать случайным образом целочисленный двумерный массив и поменять местами две строки

Поменять местами две строки матрицы
1 6 7 2 5 8 3 4 9. Язык программирования Си.


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

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

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