IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Матрицы
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Вова

Репутация: -  0  +


решите пожалуйста задачу - очень надо!
Определить номера тех строк целочисленной матрицы A(n x k) , которые совпадают с массивом D(k) . Если таких строк нет, выдать соответствующее сообщение.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Вова

Репутация: -  0  +


Цитата(Dr. Froze @ 12.05.2007 22:43) *

решите пожалуйста задачу - очень надо!
Определить номера тех строк целочисленной матрицы A(n x k) , которые совпадают с массивом D(k) . Если таких строк нет, выдать соответствующее сообщение.

почему не отвечаете?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Цитата
почему не отвечаете?

Интересный вопрос!Прости,но пока тебе никто не обязан..показывай что делал.


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Вова

Репутация: -  0  +


вот что есть...нихрена не работает...а сдавать уже послезавтра(
М
пользуемся тегами


uses crt;
var i,j,n,k,rez:integer;
D:array [1..10] of integer;
A:array[1..10,1..10] of integer;
flag1:boolean;
function flag(g,s:integer;U:array of integer):boolean;
var h:integer;
begin

flag:=false;
for h:=1 to g do
if s=U[h] then flag:=true;
end;
begin
clrscr;
flag1:=false;
readln(k,n);
for j:=1 to k do readln(D[j]);
writeln;
for i:=1 to n do
begin
writeln;
for j:=1 to k do
begin
readln(A[i,j]);
end;
end;
rez:=0;
for i:=1 to n do
begin
rez:=0;
for j:=1 to k do
begin
if flag(n,A[i,j],D)=true then rez:=rez+1;
end;
if rez=n then begin writeln(' nomer stroki ',i);flag1:=true;end;
end;
for j:=1 to k do write(' ',D[j]);
writeln;
for i:=1 to n do
begin
writeln;
for j:=1 to k do
write(A[i,j],' ');
end;
if not(flag1) then writeln('nety');
readln;
end.


Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


А может так?
const
n=3;
var
flag: boolean;
A: array [1..n,1..n] of Integer;
D: array [1..n] of integer;
i,j,k: integer;
begin
flag:=true;
for i:=1 to n do readln(D[i]);

for i:=1 to n do begin
for j:=1 to n do begin
readln(A[i,j]);
end;
end;

for i:=1 to n do begin
for j:=1 to n do begin
if A[i,j]=D[j] then if j=n then writeln(i)else continue else begin
flag:=false;break; end;
end;
end;


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Вова

Репутация: -  0  +


я плохо разбираюсь в паскале, но она не работает...там когда начинаешь вводить данные, то ... вобщем нужно чтобы программа понимала сколько строчек и столбцов ты хочешь ввести...а там вводи сколько хочешь...и нет предела...нужно ограничить. помогите пожалуйста...а то отчислят нах(
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Цитата
я плохо разбираюсь в паскале, но она не работает...

у меня все прекрасно работало!Ты бы не поленился разобраться в коде...
сначала поочередно вводим массив D потом A.lдалее пробегаемся в цикле и сравниваем!

Сообщение отредактировано: Артемий -


Эскизы прикрепленных изображений
Прикрепленное изображение

--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





Группа: Пользователи
Сообщений: 7
Пол: Мужской
Реальное имя: Вова

Репутация: -  0  +


да, прости пожалуйста, туплю. Большое тебе спасибо, очень помог!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 20.09.2020 3:16
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name