массив указателей. Паскаль

[лололо]

Задан массив указателей на действительные числа. Описать логическую функцию, которая проверяет, есть ли хотя бы две ссылки на один элемент(число). Для проверки вывести массив указателей. Помогите пожалуйста

[Serge_Bliznykov]

услышали условие задачи издалека? Но все было слышно отчётливо?
Или Вам одногруппник условия по телефону диктовал?

Короче, подозреваю, что вместо "показателей" имеются в виду УКАЗАТЕЛИ (ссылочный тип данных, хранящий в себе указатели на другие переменные).

[лололо]

uses crt;
type p=^real;
     ar=array[1..100] of p;
     par=^ar;
var pa:par;
    el:p;
    n,i:byte;
    c:char;
begin
     write('number of elements-');
     readln(n);
     getmem(pa,n*4);
     writeln('random or keyboard? R/else');
     readln(c); randomize;
     if upcase(c)='R' then
     for i:=1 to n do begin
     new(pa^[i]);
     pa^[i]^:=random(1000)+random(1000)*0.001;
     write(pa^[i]^:6:1);
     end
     else
     for i:=1 to n do begin
     new(pa^[i]);
     write('input ',i,' th element: ');
     readln(pa^[i]^);
     end;
     for i:=1 to n do begin
     write(pa^[i]^:6:1);
     end;
     writeln;

вот кусочек программы, я вот только не знаю, как сделать проверку



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Ага. значит, всё таки, массив УКАЗАТЕЛЕЙ!

Поясните, что означает:

две ссылки на один элемент(число).

если речь идёт о том, что ссылки равны друг другу (т.е. ссылаются на одну и ту же переменную памяти), то это одно.
А если ссылки ссылаются на разные адреса памяти, но и в одной ячейке и в другой ячейке находится одно и то же число (хоть ячейки и разные), то это другое.

короче,
надо сравнивать pa^[i] c pa^[j]
или нужно сравнивать значения pa^[i]^ с pa^[j]^ ??

[лололо]

Ссылки ссылаются на разные адреса памяти, но и в одной ячейке и в другой ячейке находится одно и то же число (хоть ячейки и разные), тогда как должна выглядеть функция?

for i:=1 to n do
     begin
     for j:=1 to n do
     if (pa^[i]^=pa^[j]^) and (pa^[i]<>pa^[j])
     then a:=a+1; # - тут неправильно считает

Для проверки вывести массив указателей - это как и где писать?

program laba11;
uses crt;
type p=^real;
     ar=array[1..100] of p;
     par=^ar;
var pa:par;
    a:real;
    el:p;
    n,i,j:byte;
    c:char;
function fun(a:real):real;
     begin
     for i:=1 to n do
     begin
     for j:=1 to n do
     if (pa^[i]^=pa^[j]^) and (pa^[i]<>pa^[j])
     then a:=a+1;
     end; if a>=2 then writeln('yes');
     if a<2  then writeln('no');
     end;
begin
     write('number of elements-');
     readln(n);
     getmem(pa,n*4);
     writeln('random or keyboard? R/else');
     readln(c); randomize;
     if upcase(c)='R' then
     for i:=1 to n do begin
     new(pa^[i]);
     pa^[i]^:=random(1000)+random(1000)*0.001;
     end
     else
     for i:=1 to n do begin
     new(pa^[i]);
     write('input ',i,' th element: ');
     readln(pa^[i]^);
     end;
     for i:=1 to n do begin
     write(pa^[i]^:6:1);
     end;
     writeln;
     fun(0);
     readln;
     end.

так???