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

Квадратная матрица, симметричная относительно главной диагонали, задана верхним треугольником в виде одномерно

14.06.2017, 07:43. Показов 1589. Ответов 1
Метки нет (Все метки)

Квадратная матрица, симметричная относительно главной диагонали, задана верхним треугольником в виде одномерного массива. Восстановить исходную матрицу и вывести ее по строкам.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2017, 07:43
Ответы с готовыми решениями:

Задана квадратная матрица порядка n и число K. Разделить элементы К-строки на максимальный элемент, расположенный на главной диагонали.
Задана квадратная матрица порядка n и число K. Разделить элементы К-строки на максимальный элемент,...

Является ли квадратная матрица симметричной относительно побочной диагонали.
Определить является ли заданная квадратная матрица n-го порядка симметричной относительно побочной...

Проверить, является ли квадратная матрица симметричной относительно побочной диагонали
Здравствуйте!Подскажите пожалуйста как проверить является ли квадратная матрица симметричной...

Определить, является ли заданная квадратная матрица n-го порядка симметричной относительно побочной диагонали
Результаты поиска на форуме и в поисковиках не подсказали особо, как правильно подходить к...

__________________
1
Модератор
63332 / 47044 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
14.06.2017, 08:55 2
Лучший ответ Сообщение было отмечено gr1313 как решение

Решение

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
54
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..55] of integer;
    b:array[1..10,1..10] of integer;
    m,n,i,j,k:integer;
begin
val(Edit1.Text,n,i);
if(i<>0)or not(n in [2..10]) then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
m:=(n*n+n) div 2;
with StringGrid1 do
 begin
  fixedrows:=0;
  rowcount:=1;
  fixedcols:=0;
  colcount:=m;
  defaultcolwidth:=30;
 end;
with StringGrid2 do
 begin
  fixedrows:=0;
  rowcount:=n;
  fixedcols:=0;
  colcount:=n;
  defaultcolwidth:=30;
 end;
randomize;
//заполняем массив верхнего треугольника
for i:=1 to m do
 begin
  a[i]:=10+random(90);
  StringGrid1.Cells[i-1,0]:=inttostr(a[i]);
 end;
//заполняем верхний треугольник матрицы
k:=0;
for i:=1 to n do
for j:=i to n do
 begin
  inc(k);
  b[i,j]:=a[k];
 end;
//заполняем ниже главной диагонали симметрично
for i:=2 to n do
for j:=1 to i-1 do
b[i,j]:=b[j,i];
//выводим матрицу
for i:=1 to n do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=inttostr(b[i,j]);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.06.2017, 08:55

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

Определить, является ли заданная квадратная матрица n-го порядка симметричной относительно побочной диагонали.
Определить, является ли заданная квадратная матрица n-го порядка симметричной относительно побочной...

Определить, являеться ли заданная квадратная матрица n-ого порядка симметричной относительно побочной диагонали
Определить, являеться ли заданная квадратная матрица n-ого порядка симметричной относительно...

Определить является ли целочисленная матрица симметричной относительно главной диагонали.
Определить является ли целочисленная матрица симметричной относительно главной диагонали. При...

Определить, является ли целочисленная матрица симметричной относительно главной диагонали
Определить является ли целочисленная матрица симметричной относительно главной диагонали. При...


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

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

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