Товарищи, помогите разобраться с указателями

[scibern]

Помогите пожалуйста кусочек кода на С++ перевести на Паскаль:

void gosthash_compress(unsigned long *h, unsigned long *m)
{
      unsigned long r;
      unsigned long l;
      r = h[i];			       
      l = h[i + 1];
}

вот этот код нужно перевести в аналогичный паскаль
Не могу понять, как переменной определенного типа можно присвоить значение указателя? Всех заранее благодарю за ответы...


Модератор: тег CODE

[Doc]

здесь h и m - это указатели на начало массива, а r и l переменные, которым присваиваются элементы массива h

procedure gosthash_compress(var array [1..h] of longint, array [1..m] of longint) //хотя m может быть вовсе и не массивом
var r,l:Longint;
i:Integer;
begin
r:=h[i]; 
l:=h[i + 1];
end;

Вроде должно быть так.

[Sazary]

Doc Думаю, все-таки так:

procedure gosthash_compress(h: array [1..hMAX] of longint, m : array [1..mMAX] of longint)

где hMAX и mMAX - правые границы массивов.
Ведь h и m - сами массивы, а не индексы.

[Doc]

верно, просто давно на паскале не писал

[scibern]

все дело в том, что мне нужно в процедуру передать указатели, а не значения; каким образом потом присвоить переменной r значение элемента массива, на который указывает h, например?

[Sazary]

scibern Вот небольшой пример работы с указателями в паскале. Думаю, это то, что вам нужно.

uses crt;
type mass = array[1..4] of longint;
type ukm = ^mass;
var mas : mass;
k : integer;

procedure gosthash_compress(h : ukm);
var r,l,i : longint;
 begin
 i:=2;
 r := h^[i];
 l := h^[i+1];
 writeln(r,'  ',l);
 end;

begin
clrscr;
for k:=1 to 4 do
 begin
 mas[k] := k;
 write(mas[k]:5);
 end;
writeln;
writeln('---------');

gosthash_compress(@mas);

readln;
end.

[scibern]

Большое спасибо, за ответ

[Sazary]

Вот этот кусок:

void gosthash_compress(unsigned long *h, unsigned long *m)
{
      unsigned long r;
      unsigned long l;
      r = h[i];			       
      l = h[i + 1];
}

..по идее, должен выглядеть как-то так:

type massiv = array[1..10] of longint;
ukmass = ^massiv;
uklong = ^integer;
var
i,j : longint;
A : massiv;
{.....}
procedure gosthash_compress(h : ukmass; m : uklong);
 var  r,l : longint;
 begin
 r := h^[i];
 l := h^[i+1];
 end;
{........ всякое разное.....}
begin
{...}
gosthash_compress(@A,@j);
{....}
end.