![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Lidroot |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация: ![]() ![]() ![]() |
Вообщем задача: Найти некоторые элементы(не вожно какие!) среди элементов матрицы, расположенных по периметру.
Я думаю это сделать гдето так: Код for i:=1 to 6 do for j:=1 to 6 do begin if (i:=1) and (k=0) then begin c(count):=a[i,j]; k:=1; inc(count); end; if (i:=6) and (k=0) then begin c(count):=a[i,j]; k:=1; inc(count); end; if (j:=1) and (k=0) then begin c(count):=a[i,j]; k:=1; inc(count); end; if (j:=6) and (k=0) then begin c(count):=a[i,j]; k:=1; inc(count); end; end; но мне кажется это громоздким. Может что нить еще можно сделать? Сообщение отредактировано: Lidroot - 31.10.2005 17:45 |
![]() ![]() |
APAL |
![]()
Сообщение
#2
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
Так как
Цитата не вожно какие! :For i:=1 to 6 do Write(a[i,1],#10#13,a[i,6],#10#13,a[1,i],#10#13,a[6,i],#10#13);
Интересно, что дает конструкция: Код c(count):=a[i,j]; k:=1; ? -------------------- |
volvo |
![]()
Сообщение
#3
|
Гость ![]() |
To: APAL
А дублироваться элементы не будут? ![]() Я бы сделал так: for i := 1 to n do
for j := 1 to n do
if (i in [1, n]) or (j in [1, n]) then begin
write(a[i, j]:5);
end;
|
APAL |
![]()
Сообщение
#4
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
Конечно будут! Угловые.
Но именно так я понял условия: Цитата не вожно какие! -------------------- |
Lidroot |
![]()
Сообщение
#5
|
Новичок ![]() Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата Интересно, что дает конструкция: c(count):=a[i,j]; k:=1; это я значения по периметру вношу в массив c. Цитата (не вожно какие!) Извините за ошибку ![]() И еще дублирования быть не должно! |
volvo |
![]()
Сообщение
#6
|
Гость ![]() |
Цитата дублирования быть не должно! Тогда так...const
n = 6;
a: array[1 .. n, 1 .. n] of integer =
(
(1, 2, 3, 4, 5, 6),
(1, 2, 3, 4, 5, 6),
(1, 2, 3, 4, 5, 6),
(1, 2, 3, 4, 5, 6),
(1, 2, 3, 4, 5, 6),
(1, 2, 3, 4, 5, 6)
);
var
i, j: integer;
k, count: integer;
arr: array[1 .. 4 * n] of integer;
procedure add_buffer(x: integer);
begin
inc(count);
arr[count] := X;
end;
begin
count := 0;
for i := 1 to n do add_buffer(a[1, i]);
for j := 2 to pred(n) do
add_buffer(a[j, n]);
for i := n downto 1 do add_buffer(a[n, i]);
for j := pred(n) downto 2 do
add_buffer(a[j, 1]);
for i := 1 to count do
write(arr[i]:4);
writeln;
end.
|
AruNimotsi |
![]()
Сообщение
#7
|
![]() мозгоклюй ![]() ![]() ![]() Группа: Пользователи Сообщений: 205 Пол: Мужской Реальное имя: Юра Репутация: ![]() ![]() ![]() |
Допустим массив NxM элементов (а не 6х6)
в общем случае поиск можно былобы организовать tak Код Fori:=1 to n do forj:=1 to m do if (i=1)or(j=1)or(i=n)or(j=m) then begin end; и заметьте - никакого дубляжа ![]() -------------------- Иногда ответ ближе чем то место где мы его ищем..
|
volvo |
![]()
Сообщение
#8
|
Гость ![]() |
To: AruNimotsi
Этот способ уже приводился... Пост №4 внимательно читай. Кстати, при твоем способе порядок следования элементов сохранится? А что автору надо? Так что подумай, прежде чем что-то написать !!! И Внимательно читай задание и дополнения к нему. |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 18:23 |