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

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

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

> Процедуры и функции
сообщение
Сообщение #1


Гость






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


Гость






Оля, это ж обычный TypeCast - приведение двумерной матрицы к одномерному массиву:

const
n = 5;
m = 4;
type
vector = array[1 .. m] of integer;
matrix = array[1 .. n] of vector;

IntArr = array[1 .. 1] of integer;

function find_max(const arr: array of integer; const size: integer): integer;
var i, max: integer;
begin
max := arr[0];
for i := 1 to pred(size) do
if max < arr[i] then max := arr[i];
find_max := max;
end;


var
a: matrix;
i, j: integer;

begin
for i := 1 to m do begin
for j := 1 to n do begin
a[i, j] := random(100);
write(a[i, j]:4);
end;
writeln;
end;
writeln(find_max(IntArr(a[1, 1]), m*n));
end.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(volvo @ 17.12.2007 0:45) *

Оля, это ж обычный TypeCast - приведение двумерной матрицы к одномерному массиву:

const
n = 5;
m = 4;
type
vector = array[1 .. m] of integer;
matrix = array[1 .. n] of vector;

IntArr = array[1 .. 1] of integer;

function find_max(const arr: array of integer; const size: integer): integer;
var i, max: integer;
begin
max := arr[0];
for i := 1 to pred(size) do
if max < arr[i] then max := arr[i];
find_max := max;
end;
var
a: matrix;
i, j: integer;

begin
for i := 1 to m do begin
for j := 1 to n do begin
a[i, j] := random(100);
write(a[i, j]:4);
end;
writeln;
end;
writeln(find_max(IntArr(a[1, 1]), m*n));
end.



Я это решение проверил в Паскале, вроде всё работает. Так это и есть правильное решение? java script:emoticon(':cool:', 'smid_4')
Примечание: гость 'Гость' = гость 'DISQUE'.
 К началу страницы 
+ Ответить 

Сообщений в этой теме
DISQUE   Процедуры и функции   16.12.2007 20:59
Client   А в чем проблема? Как найти макс элемент-смотри в…   16.12.2007 21:03
DISQUE   В смысле, как связать максимальный элемент массива…   16.12.2007 21:09
andriano   Сперва надо разобраться, что такое массив, и что т…   16.12.2007 21:17
DISQUE   Допустим, что массив - структура данных array, а м…   16.12.2007 21:27
andriano   Т.е. массив может иметь роизвольную размерность, а…   16.12.2007 22:04
Гость   Т.е. массив может иметь роизвольную размерность, …   17.12.2007 2:26
volvo   andriano как всегда - в своем репертуаре :dry: …   16.12.2007 22:20
Айра   Смотри, одномерный массив выглядит, например, так…   16.12.2007 22:21
andriano   Значит ты можешь написать ф-ию, которая находим ма…   17.12.2007 2:45
Айра   А можешь привести полный вариант, а то я чет не п…   17.12.2007 4:23
volvo   Оля, это ж обычный TypeCast - приведение двумерной…   17.12.2007 4:45
DISQUE   Оля, это ж обычный TypeCast - приведение двумерно…   17.12.2007 15:24
Айра   :) volvo, я ж еще только учусь)) (у нас в униве…   17.12.2007 7:06
andriano   :) volvo, я ж еще только учусь)) (у нас в универе…   17.12.2007 22:40
DISQUE   Всё-таки это и есть решение?   19.12.2007 1:30
Malice   Всё-таки это и есть решение? Что ты как маленьки…   19.12.2007 1:37
DISQUE   Что ты как маленький ? Решение это или нет зависи…   19.12.2007 1:48
DISQUE   Огромное спасибо всем! Всё работает! :goo…   6.01.2008 6:32


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

 





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