Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Указатели

Автор: Анютка 14.04.2006 21:30

Совершенно не разбираюсь в указателях, а препод, как на зло, задал мне задачу именно на эту тему. mega_chok.gif Может кто-нибудь поможет мне её решить? Заранее благодарна.
Вот задача:
Найти в двумерном массиве максимальное число и вернуть из подпрограммы-процедуры поиска указатель на это значение.

Автор: APAL 14.04.2006 21:43

http://forum.pascal.net.ru/index.php?showtopic=6730

Автор: Анютка 15.04.2006 15:57

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

Автор: volvo 15.04.2006 16:06

APAL, только вот динамические массивы здесь совсем ни при чем...

Type
arrType = array[1 .. n, 1 .. n] of integer;
pInt = ^Integer;

Function max(var arr: arrType): PInt;
var i, j, max_val: integer;
begin
max_val := arr[1, 1]; max := @arr[1, 1];
for i := 1 to n do
for j := 1 to n do
if arr[i, j] > max_val then begin
max_val := arr[i, j];
max := @arr[i, j]; { <--- Вот тут мы и берем адрес максимума }
end;
end;
Анютка,
Все определения, которых не хватает - добавь сама... Основную программу тоже...

Автор: Анютка 15.04.2006 18:43

volvo, большое спасибо!