Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
slamm3tal
0 / 0 / 0
Регистрация: 17.12.2017
Сообщений: 8
1

Дана действительная квадратная матрица порядка 2n. Не используя дополнительные массивы, получить новую матрицу

17.12.2017, 19:44. Просмотров 292. Ответов 1
Метки нет (Все метки)

Дана действительная квадратная матрица порядка 2n. Не используя дополнительные массивы, получить новую матрицу, переставляя ее блоками размера n*n соответственно:

Название: 12.jpg
Просмотров: 18

Размер: 2.9 Кб


Дело в том, что у меня уже есть код, но при запуске на экран выводится только изначальный массив, а вместо конечного(с переставленными блоками) - нулевой.

Код:
Delphi
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
uses
  SysUtils,
  windows,
  Math;
 
const n=4;
type mas=array[1..n,1..n] of integer;
 
procedure fill(var a:mas);
var i,j:integer;
begin
  Randomize;
  for i:=1 to high(a) do
   for j:=1 to high(a) do
    a[i,j]:=RandomRange(1,6);
end;
 
procedure outm(var a:mas);
var i,j:integer;
begin
  for i:=1 to high(a) do
  begin
    for j:=1 to high(a) do
    write(' ',a[i,j]);
    writeln;
  end;
  writeln;
end;
 
procedure usl(var a:mas);
var i,j:integer;
begin
   for i:=1 to n do
     for j:=1 to n do
     begin                                                                                                                
       a[n+i,j]:=a[i,n+j];
       a[i,n+j]:=a[i,j];
       a[i,j]:=a[n+i,n+j];
       a[n+i,n+j]:=a[n+i,j];
     end;
end;
 
VAR b:mas;
 
BEGIN
  fill(b);
  outm(b);
  usl(b);
  outm(b);
  readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2017, 19:44
Ответы с готовыми решениями:

Дана действительная квадратная матрица порядка 2n
Дана действительная квадратная матрица порядка 2n. Не используя дополнительные массивы, получить...

Дана действительная квадратная матрица порядка n
Дана действительная квадратная матрица порядка n. Вычислить сумму тех из её элементов,...

Задана квадратная матрица порядка n. Получить транспонированную матрицу
Задана квадратная матрица порядка n. Получить транспонированную матрицу Заранее большое...

Данные действительные числа A1, ., A (N), действительная квадратная матрица порядка N (N> 8)
Данные действительные числа A1, ..., A (N), действительная квадратная матрица порядка N (N> 8)....

Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной
Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной. Описать с помощью...

1
Puporev
Модератор
57149 / 43620 / 30152
Регистрация: 18.05.2008
Сообщений: 103,996
18.12.2017, 12:59 2
Цитата Сообщение от slamm3tal Посмотреть сообщение
Дана действительная квадратная матрица
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
uses
  SysUtils;
const n=4;
type mas=array[1..n,1..n] of real;
 
procedure fill(var a:mas);
var i,j:integer;
begin
Randomize;
for i:=1 to high(a) do
for j:=1 to high(a) do
a[i,j]:=9*random;
end;
 
procedure outm(a:mas);
var i,j:integer;
begin
for i:=1 to high(a) do
 begin
  for j:=1 to high(a) do
  write(a[i,j]:5:2);
  writeln;
 end;
writeln;
end;
 
procedure usl(var a:mas);
var k,i,j:integer;
    x:real;
begin
k:=n div 2;
for i:=1 to k do
for j:=1 to k do
 begin
  x:=a[i,j];
  a[i,j]:=a[k+i,k+j];
  a[k+i,k+j]:=a[k+i,j];
  a[k+i,j]:=a[i,k+j];
  a[i,k+j]:=x;
 end;
end;
 
var b:mas;
begin
fill(b);
outm(b);
usl(b);
outm(b);
readln;
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2017, 12:59

Дана квадратная матрица А порядка n
Разработайте алгоритм и программу, реализующую этот алгоритм. Основные функции программы оформите в...

Дана квадратная матрица A порядка n
Дана квадратная матрица A порядка n.Найдите суммы тех строк матрицы, на главной диагонали которой...

Дана действительная квадратная матрица порядка 2n. Получить новую матрицу, переставляя её блоки размера n x n!
Дана действительная квадратная матрица порядка 2n. Получить новую матрицу, переставляя её блоки...


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

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

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