Матрица. Сформировать вектор по условию

furt123 · 15.12.2013, 00:24

Задана матрица A (m*n). сформировать вектор В, элементами которого являются эл-ты матр А, удовлетворяющие условию с≤|aij|≤d.
вот сделал формирование самой матрицы. а как отсюда вектор этот вытащить не догоняю..

const
n1 = 20; m1 = 20;

type
index1 = 1..n1;
index2 = 1..m1;
matrix = array[index1, index2]of real;

var
n, i: index1;
m, j: index2;
A: matrix;

begin
write('введите кол-во строк n= ');readln(m);
write('введите кол-во столбцов m= ');readln(n);
writeln('_____________________________________');
writeln('исходная матрица А');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=-30+random(50);
write(a[i,j]:4);
end;
writeln;
end;
writeln('_____________________________________');
end.

furt123 · 15.12.2013, 00:27

в среде Pascal ABC net. соответственно.

Vladimir_S · 15.12.2013, 09:24

Цитата:

Сообщение от furt123

а как отсюда вектор этот вытащить не догоняю..

Да легко. Вот только понять бы, в чем великий замысел перепутывания параметров n и m (запрашивается одно, вводится другое и т.п.)? Чтобы коварный враг ничего не понял? Ну я, уж извините, эту дурость убрал. И еще. Ввод данных и формат вывода у Вас сделаны для матрицы с элементами типа Integer, а в то же время матрица объявляется, как Real. Ни к чему это. Исправил.

Код:

const
 n1 = 20;
 m1 = 20;

type
 index1 = 1..n1;
 index2 = 1..m1;
 index3 = 1..n1*m1;
 matrix = array[index1, index2] of Integer;
 vector = array[index3] of Integer;

var
 n, i: index1;
 m, j: index2;
 k : index3;
 A: matrix;
 B: vector;
 c, d : real;
 N_B : byte;

begin
 write('n= ');
 readln(n);
 write('m= ');
 readln(m);
 writeln('_____________________________________');
 writeln('Matrix:');
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     A[i,j]:=-30+random(50);
     write(A[i,j]:4);
    end;
   writeln;
  end;
 writeln('_____________________________________');
 write('c= ');
 readln(c);
 write('d= ');
 readln(d);
 writeln('_____________________________________');
 N_B:=0;
 for i:=1 to n do
  for j:=1 to m do
   if (A[i,j]>=c) and (A[i,j]<=d) then
    begin
     Inc(N_B);
     B[N_B]:=A[i,j];
    end;
 writeln('Array:');
 for k:=1 to N_B do write(B[k]:4);
 writeln
end.

furt123 · 15.12.2013, 15:15

спасибо большое!) за замечания в том числе) учту на будущее.
всё работает только A[i,j] "по модулю" добавлю)

15.12.2013, 00:24	#1 (permalink)
furt123 Member Регистрация: 06.12.2013 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Матрица. Сформировать вектор по условию Задана матрица A (m*n). сформировать вектор В, элементами которого являются эл-ты матр А, удовлетворяющие условию с≤\|aij\|≤d. вот сделал формирование самой матрицы. а как отсюда вектор этот вытащить не догоняю.. const n1 = 20; m1 = 20; type index1 = 1..n1; index2 = 1..m1; matrix = array[index1, index2]of real; var n, i: index1; m, j: index2; A: matrix; begin write('введите кол-во строк n= ');readln(m); write('введите кол-во столбцов m= ');readln(n); writeln('_____________________________________'); writeln('исходная матрица А'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=-30+random(50); write(a[i,j]:4); end; writeln; end; writeln('_____________________________________'); end.

15.12.2013, 00:27	#2 (permalink)
furt123 Member Регистрация: 06.12.2013 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	в среде Pascal ABC net. соответственно.

15.12.2013, 15:15	#4 (permalink)
furt123 Member Регистрация: 06.12.2013 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо большое!) за замечания в том числе) учту на будущее. всё работает только A[i,j] "по модулю" добавлю)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070