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

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

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

> Матрица и массив, Никак не пойму......
сообщение
Сообщение #1





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

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


Кто-нить помогите решить задачку. Текст следующий: Даны целочисленная матрица X[1:n,1:m] и целочисленный массив Z[1:r]. Обнулить элементы матрицы X, которых нет в массиве Z и запомнить обнулённые элементы. Буду очень благодарен за помощь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

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


uses crt;
const
n=10;
m=10;
r=10;
type
coor=record
x,y:byte;
end;
var
x:array[1..n,1..m] of integer;
z:array[1..r] of integer;
mem:array[1..n*m] of coor;
max:integer;
i,j,k:byte;
b:boolean;
begin
clrscr;
for i:=1 to n do
begin
for j:=1 to m do
begin
x[i,j]:=random(10);
write(x[i,j],' ');
end;
writeln;
end;
writeln('-------------------------------------');
for k:=1 to r do
begin
z[k]:=random(10);
write(z[k],' ');
end;
writeln;
writeln('-------------------------------------');
b:=false;
max:=0;
for i:=1 to n do
for j:=1 to m do
begin
for k:=1 to r do
if z[k]=x[i,j] then
b:=true;
if b=false then
begin
x[i,j]:=0;
inc(max);
mem[max].x:=j;
mem[max].y:=i;
end
else
b:=false;
end;
for i:=1 to max do
write('x=',mem[i].x,' y=',mem[i].y,'| ');
readln;
end.


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
fanatik   Матрица и массив   22.10.2006 3:02
мисс_граффити   что значит запомнить?   22.10.2006 3:05
SuperMozg   Если я правильно понял, то надо запомнить индексы …   22.10.2006 4:00
Bokul   uses crt; const n=10; m=10; r=10; t…   22.10.2006 4:13
volvo   Ребята, это все прекрасно, конечно, но решение …   22.10.2006 4:22
SuperMozg   Заметьте, о величинах M, N и R ничего не сказано…   22.10.2006 4:39
Bokul   SuperMozg, что-то мне кажется, что твоя прога не с…   22.10.2006 4:43
volvo   Ты на чем компилировал? FPC? На TP будет больше...…   22.10.2006 4:50
Bokul   FPC   22.10.2006 4:52
volvo   Bokul, не стал я ждать до завтра, сделал сегодня :…   22.10.2006 6:08
Bokul   Впечетляет. volvo, кодом поделишься?   22.10.2006 6:12
volvo   Поделюсь, только причешу малость ( может, еще быст…   22.10.2006 6:24
volvo   Bokul, вот такой код получился (код тестовый, поэ…   22.10.2006 15:04
fanatik   Ребята, спасибо! Вы мне очень помогли :good: …   22.10.2006 15:57
Bokul   volvo, начал разбираться. Вот, что-то я не понимаю…   22.10.2006 23:04
volvo   :blink: Ну, да... Я почему-то пропустил слово …   22.10.2006 23:21


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

 





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