Не получается разобраться в программе с указателями

[sunny_alice]

Ага, кажется, поняла. Я думала наоборот все *)
Значит если я сделаю pr2^:=1; вместо pr1^:=1;, то выведется 8.5 1.0 1.0?


а почему после вот этой строчки:

pnt1^.x:=x-1.0;

в результат все равно выводится начальное 0.5?

[Daramant]

Ага, кажется, поняла. Я думала наоборот все *)
Значит если я сделаю pr2^:=1; вместо pr1^:=1;, то выведется 8.5 1.0 1.0?

Да, верно.

в результат все равно выводится начальное 0.5?

Смотри:

  pnt1^.x:=0.5;
  pnt1^.y:=9.5;
  for i:=1 to 3 do
    begin
      new(pnts[i]);  { Выделяем память }
      pnts[i]^:=pnt1^; { Записываем в ячейку памяти, на которую указывает указатель pnts[i], значение ячейки, на которую указывает указатель pnt1. }
                     { pnt1 и pnts[i] имеют тип - record (запись), поэтому копируются все данные, находящиеся в записи, т.е. значения x и y }
      with pnts[i]^ do
        begin
          pnt1^.x:=x-1.0; { про y я верно написал, а про x опечатка, данная строка эквивалентна строке pnt1^.x:=pnts[i]^.x-1.0 }
{т.е. мы меняем значение pnt1^.x, а в pnts[i]^.x остается старое значение (0.5), т.к. pnt1 и pnts[i] указывают на разные участки памяти. }
          y:=y+2.0;
        end
    end;
  writeln(pnts[1]^.x:5:2, pnts[3]^.y:5:2); { здесь, т.к. мы не меняли значение pnts[1]^.x - оно осталось равным 0.5 }
  readln;

[sunny_alice]

Значит, если бы вместо

pnts[i]^:=pnt1^;

было

pnts[i]:=pnt1;

то значение х изменилось бы по формуле?

[Daramant]

то значение х изменилось бы по формуле?

Да, все элементы массива pnts и переменная pnt1 указывали бы, на одну и ту же ячейку памяти.

[sunny_alice]

Daramant, спасибо тебе большое, я разобралась наконец вроде-бы с этими дурацкими указателями))
Не знаю, что бы я без тебя делала))
ps: тему удалить нужно?

[Daramant]

Daramant, спасибо тебе большое, я разобралась наконец вроде-бы с этими дурацкими указателями))
Не знаю, что бы я без тебя делала))

Не за что).

ps: тему удалить нужно?

Зачем, пусть будет, может у кого еще будут вопросы, он прочитает и тоже разберется.