указатели

[tina22222]

Добрый день, помогите пожалуйста разобраться с задачей)))

procedure Fil(var Y : Vector);
var
  i : integer;
begin
  for i := low(Vector) to High(Vector) do begin           \\ Не могу понять смысл этой строки(((
    New(Y[i]);
    Y[i]^ := random 
end;

и не могу нигде найти инфу о Vector

[Stilet]

Ее нужно искать в твоей программе. В данном случае это какой-то массив описанный типа:

type 
 preal = ^real;
 Vector = array of preal;

Ну или похоже.

А смысл этой строки:
low(Vector) - получить номер первого элемента массива
High(Vector) - получить номер последнего элемента массива.

[tina22222]

Большое спасибо)))

[tina22222]

Помогите пожалуйста найти ошибку в программе:
функцию, которая бы возвращала первый из элементов вектора х, ссылающихся на отрицательные числа или nil

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Ref = ^Real;
  Vector = Array[1..100] of Ref;

procedure FillVectorRandom(var Y : Vector);
var
  i : integer;
begin
  for i := low(Vector) to High(Vector) do begin
    New(Y[i]);
    Y[i]^ := random * random(11);
    Write(Y[i]^:1:2,' ') ;
  end;
end;

function neql(Y : Vector) : Ref;
var i : integer;
begin
  neql:= nil;
 for i := low(Y) to High(Y) do
   if Y[i]^<0 then begin
     neql := Y[i];
     Exit;
   end;
end;
var
  X : Vector;
begin
  Randomize;
  FillVectorRandom(X);
  WriteLn('Mamimum = ', neql(x));
  ReadLn;
end.

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

Модератор.

[Serge_Bliznykov]

О. узнаю свой код...
отсюда: делфи указатели

А какое отношение Вы имеете к христик ?!

пробуйте

function FindFirstNegative(Y : Vector) : RtrRe;
var i : integer;
begin
 FindFirstNegative := nil;
 for i := low(Y) to High(Y) do
   if Y[i]^<0 then begin
     FindFirstNegative := Y[i];
     Exit;
   end;
end;

var
  X : Vector;
  pNeg : RtrRe;
begin
  Randomize;
  FillVectorRandom(X);
  pNeg := FindFirstNegative(x);
  if pNeg = nil then
    WriteLn('Нет отрицательных элементов в векторе!')
  else
    WriteLn('Первый отрицательный элемент = ', pNeg^:2:7);
  ReadLn;
end.

[tina22222]

да мы однокурсники))))

только я немного ее код переделываю))

ошибка здесь:

 WriteLn('Mamimum = ', neql(x));

[Serge_Bliznykov]

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

Ошибка здесь:

 WriteLn('Mamimum = ', neql(x));

смотрите мой пост выше. там исправленный код.
только замените везде в моём коде RtrRe на Ref

[tina22222]

и последнюю задачку).
Дано описание: type RtrRe = ^Real; Vector = Array [1..100] of RtrRe;
Считая, что все элементы вектора X отличны от Nil, построить логическую функцию Same (X), которая проверяет, есть ли в векторе X хотя бы две одинаковые ссылки.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type RtrRe = ^Real;
       Vector = Array[1..100] of RtrRe;

function same(a : Vector; m:integer): boolean;
var  i,j:integer;
     f:boolean;
begin
 f := false;
 i := 1;
 while(i<m)and not f do
   begin
    j:=i+1;
    while(j<=m)and not f do
    if a[j]^=a[i]^ then f:=true
    else j:=j+1;
   end;
 if not f then i:=i+1;
same:=f;
end;
var
 X : Vector;
 m,i : integer;
BEGIN
 randomize;

 if (same(X,m))
 then
 WriteLn('Vector soderzhit odinakovie silki')
 else
 WriteLn('Vector ne soderzhit odinakovie silki');
 ReadLn;
END.

ошибок не выдает, но и не работает(

[Serge_Bliznykov]

что значит - не работает?!
а Вы исходный массив (Vector) заполнить не забыли?!!
да и переменная m будет содержать мусор (ну или ноль, в лучшем случае, если об этом сам компилятор позаботится!).

Запомните. Прежде чем читать из ЛЮБОЙ переменной, нужно в неё предварительно что-то записать!! Всегда!


кроме того, насколько я корректно понял условие задания - Вам надо найти одинаковые ссылки.
А Вы ищете одинаковые значения. Это далеко не одно и то же!

Да и ещё, сразу предупреждаю.
Если будете заполнять через new() в цикле, то для каждого элемента выделится своя память, соответственно все указатели будут отличаться (т.е. same) всегда будет false )