[MushGUN]

вот задание: (уже 4-ый день не могу написать прогу(((()
на плоскости случайным образом заданы своими координатами 30 точек. Ранг точки равен количеству точек, которые расположены не выше и не ниже справа от данной точки.Написать прогу которая подсчитывает количество точек каждого ранга.

ну никак не написать напишите если кто может на Паскале
(в учебниках также смотрел но ниче не нашел....)

и совет можете дать плз
каким образом вычислить длину слова в тексте, который введен с клавиатуры, и как найти количество слов у которых определенное количество символов

[AlexSku]

Если нужны точки левее (с меньшим X) и ниже (c бОльшим Y), то вот код (правда, не проверял).

Код:

type
  RangPoint = record
    p: TPoint;
    rang: Integer;
  end;

var Points: array[1..30] of RangPoint;
procedure TForm1.FormCreate(Sender: TObject);
var i, j: Integer;
begin
  Randomize;
  for i:= 1 to 30 do Points[i].p:= Point(Random(100), Random(100));

  for i:= 1 to 30 do
  begin
    Points[i].rang:= 0;
    for j:= 1 to 30 do
      if (Points[j].p.X < Points[i].p.X) and (Points[j].p.Y > Points[i].p.X) then
        Inc(Points[i].rang);
  end;
end;

[MushGUN]

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

[DungeonLords]

Никогда не думал, что задам такой вопрос!

Короче, я читаю текстовой файл. Там у меня записано

C:\VA\1.exe

так вот у меня эта строка содержится в переменной name:string


(задача) а мне нужно присвоить переменной put:string путь к файлу (в данном случае путь выглядит так: C:\VA\)

[lmikle]

Код:

put := ExtractFilePath(name);