Работа с указателями и динамической памятью в Паскале.

[maliyusha]

Здравствуйте! Пожалуйста,помогите решить задачу или направить в нужное русло:
Указатели. Имеется массив указателей на целые числа (вектор ХР), заданный следующим образом:

Код:

TYPE
    XP = ^INTEGER;
    VectXP = ARRAY [0..n] of XP;

Разместить в памяти n (от 10 до 100) чисел, на которые будут ссылаться элементы вектора ХР.
1.Написать функцию Мах для нахождения наибольшего из чисел n, на которые ссылаются элементы вектора ХР. Вывести это число.
Пример объявления указателей и использования их в программе:

Код:

TYPE
     PWord = ^WORD;  
     ArrayPWord = ARRAY [0..$03FF] of PWord;
     PArrayPWord = ^ArrayPWord;
VAR
     P : Pointer; {нетипизированный указатель}
     PW : PWord; {указатель на тип Word}
     PAPW : PArrayPWord; {указатель на динамический массив,
                                    хранящий в себе указатели на тип Word}
     W, D : WORD; {переменные типа Word}
BEGIN
     ...
     New (PW); {определяем и помещаем в переменную PW адрес,
                      по которому будет размещено число типа WORD}
     PW^ := 64; {по адресу, полученному выше, размещаем число 64}
     ...
     W := PW^ + D;{в переменную W помещаем сумму числа 64 и   переменной D}
     Dispose (PW); {высвобождаем ячейку памяти}
     ...
END.

[Sla]

И?
Не хватает только примера описания функции

[Dimka]

По-моему ещё не хватает работы с массивом указателей.

[maliyusha]

Беда =(

[Sla]

а ты табань в сторону учебников...

[maliyusha]

Да там нет ничего путного
Посмотрите,пожалуйста, все правильно? Так должно работать по условию задачи? А то тут с миру по нитке =)

Код:

Uses crt;
type
  XP=^INTEGER;
  VectXP=ARRAY [1..100] of XP;
  PVectXP=^VectXP;

 function Max(A:PVectXP; Size:integer):integer;
  var
   i,r:integer;
   begin
    if Size>0 then
     begin
      r:=A^[1]^;
      for i:=2 to Size do if A^[i]^>r then r:=A^[i]^;
     end
      else r:=0;
     Max:=r;
   end;
var
  n,i: integer;
  Arr: PVectXP;
begin
 clrscr;
  write('Vvedite koli4estvo elementov ot 10 do 100: ');
  read(n);
  GetMem(Arr, sizeof(XP)*n);
  for i:=1 to n do
   begin
    New(Arr^[i]);
    write('vvedite ',i,' 4islo: ');
    read(Arr^[i]^);
   end;
  writeln('maximum =  ',Max(Arr,N));
   readln;
  for i:=1 to n do Dispose(Arr^[i]);
  FreeMem(Arr,sizeof(XP)*n);
   readln;
end.