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

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

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

 
 Ответить  Открыть новую тему 
> Задача по теме двумерные массивы, Помогите пожалуйста решить ЗАДАЧУ=)
Диана
сообщение 18.03.2008 17:33
Сообщение #1


Гость






Задан двумерный массив 4 на 4. Найти минимальный элемент каждого столбца и написать его в новый (одномерный) массив. rolleyes.gif
 К началу страницы 
+ Ответить 
Гость
сообщение 18.03.2008 18:36
Сообщение #2


Гость






!help.gif
 К началу страницы 
+ Ответить 
Zzzz...
сообщение 18.03.2008 19:04
Сообщение #3


///
**

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

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



VAR
w,i,j,min:integer;
a:array[1..4,1..4] of integer;
q:array[1..20] of integer;
BEGIN
assign(input,'input.in');
reset(input);
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
read(a[i,j]);
end;
end;

for i:=1 to 4 do
begin
min:=20000;
for j:=1 to 4 do
begin
if min>a[j,i] then
begin
min:=a[j,i];
inc(w);
q[w]:=min;
end;
end;
end;
END.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
renesko1
сообщение 18.03.2008 19:38
Сообщение #4


поиск
****

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

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


Может я и придраюсь, но зачем новый массив делать размером 20 элементов ведь в итоге туда запис.
4 min элемента из 1 матрицы ?


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Zzzz...
сообщение 18.03.2008 19:43
Сообщение #5


///
**

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

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


я всегда беру с запасом....привычка)..но по-мойму это не так много заберет памяти?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
renesko1
сообщение 18.03.2008 19:45
Сообщение #6


поиск
****

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

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


В принципе да, но зачем ?
(Типичная занудная фраза : представь что таких массивов милионны)


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Диана
сообщение 18.03.2008 20:39
Сообщение #7


Гость






Zzzz..., спасибо большое respect2.gif
 К началу страницы 
+ Ответить 
Michael_Rybak
сообщение 18.03.2008 20:54
Сообщение #8


Michael_Rybak
*****

Группа: Модераторы
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

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


Цитата
я всегда беру с запасом....привычка)..но по-мойму это не так много заберет памяти?


Цитата
В принципе да, но зачем ?


на олимпиадах это иногда спасает. конечно, головой лучше думать, но лишним не будет накинуть десяток элементов.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 18.03.2008 20:58
Сообщение #9


Perl. Just code it!
******

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

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


Цитата
на олимпиадах это иногда спасает. конечно, головой лучше думать, но лишним не будет накинуть десяток элементов.


Это юмор такой или я чего-то недопонял ? blink.gif


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Zzzz...
сообщение 18.03.2008 21:37
Сообщение #10


///
**

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

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


скорее всего этим хотели сказать если думать не хочешь ставь на максимум!)

Сообщение отредактировано: Zzzz... - 18.03.2008 21:37
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 18.03.2008 21:42
Сообщение #11


Perl. Just code it!
******

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

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


оффтоп

в общем-то я уже понял, что с чувством юмора у меня туговато в последнее время)


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Michael_Rybak
сообщение 18.03.2008 22:18
Сообщение #12


Michael_Rybak
*****

Группа: Модераторы
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

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


нет, это не юмор.

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

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

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Zzzz...
сообщение 18.03.2008 22:22
Сообщение #13


///
**

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

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


народ может кто-нить купит лодку,а?...че-то уже сплошной офф пошел...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Michael_Rybak
сообщение 18.03.2008 22:29
Сообщение #14


Michael_Rybak
*****

Группа: Модераторы
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

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


у нас офф, у тебя флуд ;) кто захочет - ответит в любом случае.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
renesko1
сообщение 19.03.2008 18:30
Сообщение #15


поиск
****

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

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


Молчание золото ( smile.gif )

Сообщение отредактировано: renesko1 - 19.03.2008 18:33


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 



- Текстовая версия 20.06.2025 7:48
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"