Получить действительную квадратную матрицу порядка 8, элементами которой расположенные по заданной схеме

@Mustkill · Регистрация: 14.09.2016

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

Даны действительные числа a1,...,a64. Получить действительную квадратную матрицу порядка 8, элементами которой являются числа a1,..., a64, расположенные в ней по схеме

Под б

@Puporev · 23.09.2016, 10:10

Pascal

const n=8;
var a:array[1..n*n] of real;
    b:array[1..n,1..n] of real;
    i,j,k:integer;
begin
randomize;
writeln('Последовательность А');
for i:=1 to n*n do
 begin
  a[i]:=10*random;
  write(a[i]:5:2);
 end;
writeln;
k:=0;
i:=0;
repeat
inc(i);
if odd(i) then //если строка нечетная
for j:=n downto 1 do//идем с конца
 begin
  inc(k);
  b[i,j]:=a[k]
 end
else //если четная строка
for j:=1 to n do
 begin
  inc(k);
  b[i,j]:=a[k];
 end;
until k=n*n;
writeln('Матрица змейкой сверху вниз, справа налево');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:5:2);
  writeln;
 end;
end.

@Mustkill 0 / 0 / 0 Регистрация: 14.09.2016 Сообщений: 23
		1
	Получить действительную квадратную матрицу порядка 8, элементами которой расположенные по заданной схеме 22.09.2016, 06:29. Показов 2973. Ответов 1 Метки нет (Все метки) Даны действительные числа a1,...,a64. Получить действительную квадратную матрицу порядка 8, элементами которой являются числа a1,..., a64, расположенные в ней по схеме Под б Миниатюры 0

Опции темы

Получить действительную квадратную матрицу порядка 8, элементами которой расположенные по заданной схеме

Решение