Поменять местами части матрицы выше/ниже главной диагонали

@Garee2 · 20.01.2017, 07:01. **Показов** 939. **Ответов** 7

Студворк — интернет-сервис помощи студентам

Массивы, дана матрица размерности Ann.
Поменять на квадратной матрице часть выше главной диагонали (лишь одну строку) ту, что идет до середины, с той, что идет после середины ниже главной (так же -- лишь одну строку).

@Joy · 20.01.2017, 08:22

Сообщение от Garee2

Поменять на квадратной матрице часть выше главной диагонали (лишь одну строку) ту, что идет до середины, с той, что идет после середины ниже главной (так же -- лишь одну строку)

нарисуйте как вы это видите?

@Garee3 · 20.01.2017, 08:46

Сообщение от Joy

нарисуйте как вы это видите?

вот задание в графическом виде:

@Joy · 20.01.2017, 10:37

Garee3, ну и где тут строки?

и если n-четное, где середина?

если ничего не напутал, как-то так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const n=8;
var
  a:array [1..n,1..n] of integer;
  i,j:integer;
begin
  randomize;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(10);
      write(a[i,j]:4);
    end;
    writeln
  end;
  writeln('Полученная матрица:');
  for i:=1 to n div 2 do Swap(a[i,i+1],a[n+1-i,n-i]);
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:4);
    writeln
  end;
end.

@Garee3 · 24.01.2017, 09:07

Сообщение от Joy

если ничего не напутал, как-то так:

в задании размер матрицы нужно вводить. что-то на подобии этой программы:

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
var
  a : array[1..100,1..100] of integer;
  n, i, j, t : integer;
begin
  randomize;
  write('n= ');
  readln(n);
  writeln('До:');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(100);
      write(a[i,j]:3);
    end;
    writeln;
  end;
  for i:=1 to (n div 2) do begin
    t:=a[i,i];
    j:=(n div 2) + (n mod 2) + i;
    a[i,i]:=a[j,j];
    a[j,j]:=t;
  end;
  writeln('После:');
  for i:=1 to n do begin
    for j:=1 to n do begin
      write(a[i,j]:3);
    end;
    writeln;
  end;
end.

@Joy · 24.01.2017, 10:00

Сообщение от Garee3

в задании размер матрицы нужно вводить

исправьте на ввод размера.
Вы привели другой алгоритм(не как на рисунке)

@Garee · 19.02.2017, 12:52

Сообщение от Joy

если ничего не напутал, как-то так

нужно заменить функцию Swap (которой нет в паскале) на функцию, которая присутствует в паскале

@Joy · 19.02.2017, 15:36

Сообщение от Garee

нужно заменить функцию Swap (которой нет в паскале) на функцию, которая присутствует в паскале

встроенная функция Swap в PascalABC.Net есть.

Добавлено через 54 минуты
это в код вставьте

Pascal
1
2
3
4
5
6
7
8
procedure Swap(var a,b:integer);
var 
  t:integer;
begin
  t:=a;
  a:=b;
  b:=t;
end;

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Garee2 Заблокирован

	Поменять местами части матрицы выше/ниже главной диагонали 20.01.2017, 07:01. Показов 939. Ответов 7 Метки нет (Все метки) Массивы, дана матрица размерности Ann. Поменять на квадратной матрице часть выше главной диагонали (лишь одну строку) ту, что идет до середины, с той, что идет после середины ниже главной (так же -- лишь одну строку). 0