Сформировать из матрицы, симметричную относительно главной диагонали

@Kirysha · Регистрация: 30.09.2014

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

При помощи случайных чисел ввести одномерный массив 5x5. Считая этот массив верхним треугольником матрицы, сформировать из матрицы,симметричную относительно главной диагонали.Вывести на экран верхний треугольник матрицы и сформированную матрицу.
Заранее спасибо))))

@bormant · 02.10.2014, 07:36

"Одномерный массив 5х5" -- это что за оксюморон?

@Kirysha · 02.10.2014, 07:40 **[ТС]**

bormant, Я перепутал там ввести одномерный массив с размерностью 55

@bormant · 02.10.2014, 08:07

Pascal

const n1=55; n=10; 
var
  a: array [1..n1] of Integer;
  b: array [1..n] of Integer;
  i, j, k: Integer;
begin
  for k:=1 to n1 do a[k]:=-99+Random(199);
  k:=1;
  for i:=1 to n do for j:=i to n do begin b[i,j]:=a[k]; Inc(k); end;
  for i:=1 to n do begin for j:=1 to n do Write(b[i,j]:4); WriteLn; end;
  WriteLn;
  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 begin for j:=1 to n do Write(b[i,j]:4); WriteLn; end;
end.

@Kirysha · 02.10.2014, 08:13 **[ТС]**

bormant, Пишет ошибку 1-мерный массив имеет другое количество индексирований

@bormant · 02.10.2014, 08:16

Если при выводе верхнего треугольника нижние нули выводить не нужно, то строку 10 поменять на

Pascal

1	for i:=1 to n do begin for j:=1 to n do if j<i then Write('':4) else Write(b[i,j]:4); WriteLn; end;

Добавлено через 1 минуту
Строку 4 заменить на

Pascal

1	b: array [1..n,1..n] of Integer;

@Kirysha · 02.10.2014, 08:22 **[ТС]**

bormant, туже самую ошибку пишет(

Добавлено через 1 минуту
bormant, все разобрался,спасибо)

@bormant · 02.10.2014, 08:24

См. выше.

@Kirysha 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 16
		1
	Сформировать из матрицы, симметричную относительно главной диагонали 02.10.2014, 07:20. Показов 1345. Ответов 7 Метки нет (Все метки) При помощи случайных чисел ввести одномерный массив 5x5. Считая этот массив верхним треугольником матрицы, сформировать из матрицы,симметричную относительно главной диагонали.Вывести на экран верхний треугольник матрицы и сформированную матрицу. Заранее спасибо)))) 0

@bormant Модератор 7539 / 4399 / 2785 Регистрация: 22.11.2013 Сообщений: 12,605 Записей в блоге: 1
	02.10.2014, 07:36	2
	"Одномерный массив 5х5" -- это что за оксюморон? 0

@Kirysha 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 16
	02.10.2014, 07:40 [ТС]	3
	bormant, Я перепутал там ввести одномерный массив с размерностью 55 0

@Kirysha 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 16
	02.10.2014, 08:13 [ТС]	5
	bormant, Пишет ошибку 1-мерный массив имеет другое количество индексирований 0

@Kirysha 0 / 0 / 0 Регистрация: 30.09.2014 Сообщений: 16
	02.10.2014, 08:22 [ТС]	7
	bormant, туже самую ошибку пишет( Добавлено через 1 минуту bormant, все разобрался,спасибо) 0

@bormant Модератор 7539 / 4399 / 2785 Регистрация: 22.11.2013 Сообщений: 12,605 Записей в блоге: 1
	02.10.2014, 08:24	8
	См. выше. 0

Опции темы