[Pascal] Проблема с указателями

[Arkuz]

Привет. Что-то я запутался. Мне нужно присвоить один указатель другому, я не пойму почему ошибка...
Подскажите...

Вроде по коду ясно, что я присваиваю указателю tmp на тип real указатель x[i], i-ый элемент которого тоже указатель на тип real.

const
  n = 10;
type
  preal = ^real;
  v= array [1..n] of preal;
procedure pr(var x:v);
var
  i,j:integer;
  tmp:^real;
begin
 new(tmp);
  for i:=1 to n do
      for j:=1 to n do
        if x[i]^=x[j]^ then
          begin
             writeln(i,' ',j);
             tmp^:=x[i]^;
             tmp:=x[i]; // ПОЧЕМУ здесь я не могу присвоить???
          end;
 dispose(tmp);
end;

var
  mas:v;  {massiv ukazateley na REAL}
  i:integer;
//    pmas - указатель на массив типа real
begin
  for i:=1 to n do
    begin
     new(mas[i]);
     pmas^[i]:=random(100);
     mas[i]^:=pmas^[i];
     write(pmas^[i]:0:2,'  ');
     writeln(mas[i]^:0:2);
    end;
  pr(mas);
  readln;
end.

[DomiNick]

У меня ругается тока на

 pmas^[i]:=random(100);

Что оно хоть делать-то должно..?

[Arkuz]

Сообщение от DomiNick

У меня ругается тока на

 pmas^[i]:=random(100);

У меня не ругается... Но это другой вопрос...

Что оно хоть делать-то должно..?

Это не столь важно. Главное присвоение между указателями не получается, а мне это нужно.
Просто у меня есть необходимость указателю на real присвоить значение указателя на real (но только второй является i-ым элементом массива).

Всё... Но не получается...

[Sazary]

Где у вас объявление типа pmas? Где выделение памяти под него? А нету.
Вот, добавил и то и другое.

const
  n = 10;
type
  preal = ^real;
  v= array [1..n] of preal;
  arr = array[1..n] of real;
  parr = ^arr;
procedure pr(var x:v);
var
  i,j:integer;
  tmp:^real;
begin
 new(tmp);
  for i:=1 to n do
      for j:=1 to n do
        if x[i]^=x[j]^ then
          begin
             writeln(i,' ',j);
             tmp^:=x[i]^;
             tmp:=x[i];
          end;
 dispose(tmp);
end;

var
  mas:v;  {massiv ukazateley na REAL}
  i:integer;
   pmas : parr;

begin
  for i:=1 to n do
    begin
     new(mas[i]);
     new(pmas);
     pmas^[i]:=random(100);
     mas[i]^:=pmas^[i];
     write(pmas^[i]:0:2,'  ');
     writeln(mas[i]^:0:2);
    end;
  pr(mas);
  readln;
end.

[Arkuz]

Посмотрел - вроде всё в коде сделано, а все равно ругается...

program Project1;
uses
  crt;
const
  n = 10;
type
  preal = ^real;
  v = array [1..n] of preal;
  digit = array [1..n] of real;

procedure pr(var x:v);
var
  i,j:integer;
  tmp:^real;
begin
 new(tmp);
   for i:=1 to n do
      for j:=1 to n do
        if x[i]^=x[j]^ then
          begin
             writeln(i,' ',j);
             tmp^:=x[i]^;
             tmp:=x[i]; //ругается здесь
             writeln(tmp^:0:2,'   zamena');

          end;
 dispose(tmp);
end;

var
  mas:v;  {massiv ukazateley na REAL}
  pmas:^digit; {ukazatel na massiv REAL}
  i:integer;
begin
  clrscr;
  randomize;
  new(pmas);
  for i:=1 to n do
    begin
     new(mas[i]);
     pmas^[i]:=random(100);
     mas[i]^:=pmas^[i];
     write(pmas^[i]:0:2,'  ');
     writeln(mas[i]^:0:2);
    end;
  pr(mas);
  readln;
end.

[DomiNick]

У меня теперь уже не ругается... Просто не совсем там объявил этот "pmas"...

2 часа ночи было, попутал спросония...


Только зачем "new(pmas);" в цикле делать - он же вроде один должен быть..?

[Sazary]

Сообщение от DomiNick

Только зачем "new(pmas);" в цикле делать - он же вроде один должен быть..?

Так 3:30 ночи у меня было )

У меня нигде сейчас не ругается )

[Arkuz]

Мужики ничего не пойму. У вас не ругается, у меня ругается. Ни в делфях не могу консольное приложение откомпилить ни в паскале.... Не знаю что делать...

[DomiNick]

Arkuz, видимо у Вас плохой программ... Скачайте хороший -->Ссыль<--

[Sazary]

Arkuz, приложите скрин, где будет хорошо видна ошибка.
Хоть посмотрим на нее.