Помощь - Поиск - Пользователи - Календарь
Полная версия: Указатели
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Анютка
Совершенно не разбираюсь в указателях, а препод, как на зло, задал мне задачу именно на эту тему. mega_chok.gif Может кто-нибудь поможет мне её решить? Заранее благодарна.
Вот задача:
Найти в двумерном массиве максимальное число и вернуть из подпрограммы-процедуры поиска указатель на это значение.
Анютка
Я уже читала этот топик, учебники различные тоже читала... Только вот задачу решить все равно не могу sad.gif
volvo
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;
Анютка,
Все определения, которых не хватает - добавь сама... Основную программу тоже...
Анютка
volvo, большое спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.