Дана матрица A и вектор B порядка N. Поулчить вектор С, i-ый элемент которого..

@Nomath · Регистрация: 19.10.2010

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

Уважаемые форумчане)

Помогите написать пожалуйста =)

Дана матрица A и вектор B порядка N. Поулчить вектор С, i-ый элемент которого TRUE, если в i-ой строке матрицы нет чисел равных Bi, и FALSE - в противном случае. Вывести исходные данные и результат. Получение элемента вектора оформить подпрограммой.

А то у меня что-то не клеится...(

@Puporev · 19.10.2010, 18:19

Pascal

uses crt;
const nmax=20;
type mas= array[1..nmax] of integer;
     matr=array[1..nmax] of mas;
     vec=array[1..nmax] of boolean;
function Elm(st,vk:mas;n:byte):boolean;
var i,j:byte;
    f:boolean;
begin
f:=true;
for i:=1 to n do
for j:=1 to n do
if st[i]=vk[j] then
 begin
  f:=false;
  break;
 end;
Elm:=f;
end;
var a:matr;
    b:mas;
    c:vec;
    m,n,i,j,jmn:byte;
    p:longint;
begin
clrscr;
randomize;
repeat
write('Размер матрицы и вектора до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
writeln('Исходный вектор B:');
for i:=1 to n do
 begin
  b[i]:=random(20);
  write(b[i]:4);
 end;
writeln;
writeln;
writeln('Вектор С:');
for i:=1 to n do
 begin
  c[i]:=Elm(a[i],b,n);
  write(c[i],' ');
 end;
readln
end.

@Nomath · 19.10.2010, 18:57 **[ТС]**

Спасибо большое! =)

@Nomath · 12.11.2010, 14:30 **[ТС]**

хм. у меня снова возник вопрос))

насколько я понял, тут ввели не матрицу, а вектора. Может из-за этого он при nmax больше 5 везде выводит false, что по сути несовпадает с нужным результатом.
Как это исправить, не нарушая программу? Или вместо векторов нужно прописать матрицу?

@Puporev · 12.11.2010, 14:39

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

тут ввели не матрицу,

А это что?

Pascal

writeln('Исходная матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;

не матрица?

@Nomath · 12.11.2010, 14:48 **[ТС]**

мне сказали это набор векторов.
но ***, с чего они это взяли я точно не понял, решил уточнить..

Ну ладно, тут мои сомнения отпали =) а что делать с неправильными ответами?

@Puporev · 12.11.2010, 17:48

Объявлена матрица как массив векторов

Pascal

1 2	type mas= array[1..nmax] of integer;//вектор-строка матрицы matr=array[1..nmax] of mas;//матрица массив векторов

Но это на самой матрице никак не отражается, просто с каждой строкой матрицы можно работать отдельно как с линейным массивом и все.

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

а что делать с неправильными ответами?

А что за неправильные ответы?

@Nomath · 26.11.2010, 14:30 **[ТС]**

при значении n больше 5 в получаемых результатах везде пишется false, хотя в некоторых строчках нет совпадений..

@Puporev · 26.11.2010, 14:53

Пардон, это я задание не так понял, я проверял все элементы вектора для каждой строки.

Pascal

uses crt;
const nmax=20;
type mas= array[1..nmax] of integer;
     matr=array[1..nmax] of mas;
     vec=array[1..nmax] of boolean;
function Elm(st,vk:mas;n,k:byte):boolean;
var i,j:byte;
    f:boolean;
begin
f:=true;
for i:=1 to n do
if st[i]=vk[k] then
 begin
  f:=false;
  break;
 end;
Elm:=f;
end;
var a:matr;
    b:mas;
    c:vec;
    m,n,i,j,jmn:byte;
    p:longint;
begin
clrscr;
randomize;
repeat
write('Размер матрицы и вектора до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i][j]:=random(10)+1;
     write(a[i][j]:4);
    end;
   writeln;
 end;
writeln;
writeln('Исходный вектор B:');
for i:=1 to n do
 begin
  b[i]:=random(10)+1;
  write(b[i]:4);
 end;
writeln;
writeln;
writeln('Вектор С:');
for i:=1 to n do
 begin
  c[i]:=Elm(a[i],b,n,i);
  write(c[i],' ');
 end;
readln
end.

@Nomath · 26.11.2010, 15:06 **[ТС]**

Работает!))

спасибо огромное!))

@Nomath · 03.12.2010, 15:12 **[ТС]**

вот блин, прям заинтересовало))

а если не набор векторов а именно марицу делать? получается в каждой строке матрицы анализировать на наличие в ней i-того числа вектора?

@Puporev · 03.12.2010, 15:14

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

вот блин, прям заинтересовало))

Вот и разбирайся, что ты все спрашиваешь, интересное нужно самому исследовать, или не лезть совсем, а разжованное не глядя хавать.

@Nomath · 03.12.2010, 15:31 **[ТС]**

тоже верно)

лан, пойду искать)

@Nomath 0 / 0 / 0 Регистрация: 19.10.2010 Сообщений: 9
	03.12.2010, 15:31 [ТС]	13
	тоже верно) лан, пойду искать) 0

@Nomath 0 / 0 / 0 Регистрация: 19.10.2010 Сообщений: 9
	19.10.2010, 18:57 [ТС]	3
	Спасибо большое! =) 0

@Nomath 0 / 0 / 0 Регистрация: 19.10.2010 Сообщений: 9
	12.11.2010, 14:30 [ТС]	4
	хм. у меня снова возник вопрос)) насколько я понял, тут ввели не матрицу, а вектора. Может из-за этого он при nmax больше 5 везде выводит false, что по сути несовпадает с нужным результатом. Как это исправить, не нарушая программу? Или вместо векторов нужно прописать матрицу? 0

@Nomath 0 / 0 / 0 Регистрация: 19.10.2010 Сообщений: 9
	12.11.2010, 14:48 [ТС]	6
	мне сказали это набор векторов. но ***, с чего они это взяли я точно не понял, решил уточнить.. Ну ладно, тут мои сомнения отпали =) а что делать с неправильными ответами? 0

@Nomath 0 / 0 / 0 Регистрация: 19.10.2010 Сообщений: 9
	26.11.2010, 14:30 [ТС]	8
	при значении n больше 5 в получаемых результатах везде пишется false, хотя в некоторых строчках нет совпадений.. 0

@Nomath 0 / 0 / 0 Регистрация: 19.10.2010 Сообщений: 9
	26.11.2010, 15:06 [ТС]	10
	Работает!)) спасибо огромное!)) 0

@Nomath 0 / 0 / 0 Регистрация: 19.10.2010 Сообщений: 9
	03.12.2010, 15:12 [ТС]	11
	вот блин, прям заинтересовало)) а если не набор векторов а именно марицу делать? получается в каждой строке матрицы анализировать на наличие в ней i-того числа вектора? 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	03.12.2010, 15:14	12
	Сообщение от Nomath вот блин, прям заинтересовало)) Вот и разбирайся, что ты все спрашиваешь, интересное нужно самому исследовать, или не лезть совсем, а разжованное не глядя хавать. 0

Опции темы