Надо из матрицы получить одном. массив.

@A_N_16 · Регистрация: 23.12.2009

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

Дана действительная матрица А(7,8). Необходимо из её элементов получить одномерный массив В(7*8),элементы которого получаются переписыванием матрицы А(7,8) по строкам.Если не сложно то и блок схему.

@lera8 · 27.12.2009, 16:07

Вот ваша задача, если не понятно что спрашивайте

Pascal

var
a: array [1..30,1..30] of real;
b: array [1..80] of  real;
i,j,m,n,k,x,c:integer;
begin
 writeln('Введите размер матрицы');
 readln(n,m);
    writeln('Исходная матрица');
    for i:=1 to n do
      for j:=1 to m do
        a[i,j]:=random*10;
        
    for i:=1 to n do begin
       writeln;
      for j:=1 to m do
        write(a[i,j]:5:2);
    end; writeln;
     k:=m*n;   c:=0;
    for i:=1 to n do
     for j:=1 to m do begin
      c:=c+1;
      b[c]:=a[i,j];
    end;
  writeln('Массив B');
 for i:=1 to k do
  write(b[i]:6:2);
 end.

@tururui · 27.12.2009, 16:20

Еще вариант:

Pascal

const
  n=7;
  m=8;
  VAR
A: array [1..n,1..m] of integer;
B:array [1..n*m] of integer;
i,j:byte;
begin
writeln('Ishodn. massiv');
randomize;
for  i:=1  to  n  do
 begin
   for  j:=1  to  m  do
   begin
   A[i,j]:=random(11)-2;
   WRITE(A[i,j]:3);
      end;
   writeln;
 end;
 writeln('Polucennii massiv');
for  i:=1  to  n  do
  for  j:=1  to  m  do
   B[(i-1)*m+j]:=A[i,j];
 for i:=1 to n*m do
 write(B[i]:3);
 readln;
end.

@A_N_16 0 / 0 / 0 Регистрация: 23.12.2009 Сообщений: 8
		1
	Надо из матрицы получить одном. массив. 27.12.2009, 15:22. Показов 2248. Ответов 2 Метки нет (Все метки) Дана действительная матрица А(7,8). Необходимо из её элементов получить одномерный массив В(7*8),элементы которого получаются переписыванием матрицы А(7,8) по строкам.Если не сложно то и блок схему. 0

	27.12.2009, 16:20

Надо из матрицы получить одном. массив.

Решение