Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
OwwwwO
0 / 0 / 0
Регистрация: 06.03.2017
Сообщений: 15
1

Как сортировать координаты?

26.03.2017, 18:37. Просмотров 1005. Ответов 2
Метки нет (Все метки)

1. На форму поместить N точек (каждая точка помещается на форму по нажатию левой кнопки мыши и имеет номер 1..N). Упорядочить точки по возрастанию / убыванию координаты X. Начало работы алгоритма - по нажатию правой кнопки мыши, результат выдать в окно функцией TextOut.
P.S. Напишите код или скиньте программу.
0
Вложения
Тип файла: 7z Рисование точек.7z (913.2 Кб, 2 просмотров)
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2017, 18:37
Ответы с готовыми решениями:

Как сортировать таблицы ?
Подскажи как сортировать Table в алфавитном порядке по разным колонкам?

Заданы координаты острых углов прямоугольного треугольника и длина его катета. Определить координаты третьей вершины, длину всех сторон, площадь и угл
Здравствуйте, дорогие программисты!!! Я снова к вам за помощью. Вот такая у...

Даны координаты центра круга и его радиус, а также координаты точки. Лежит ли эта точка внутри круга?
Даны координаты центра круга и его радиус, а также координаты точки. Лежит ли...

Записать координаты контура в линейный динамический список. Вычислить площадь контура и координаты ее веса
Записать координаты контура в линейный динамический список. Вычислить площадь...

Как получить координаты по цвету
Как получить координаты X, Y по цвету какого-нибудь объекта на экране?...

2
Puporev
Модератор
56066 / 42949 / 29709
Регистрация: 18.05.2008
Сообщений: 101,892
26.03.2017, 19:30 2
Лучший ответ Сообщение было отмечено OwwwwO как решение

Решение

Можно так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
type Point=record
           x,y,n:integer;
           end;
tochki=array of Point;
var
  Form1: TForm1;
  n:integer;
  a:tochki;
implementation
 
{$R *.dfm}
procedure MySort(var a:tochki;n,k:integer);
var i,j:integer;
    t:Point;
begin
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if ((k=1)and(a[i].X>a[j].X))
or ((k=2)and(a[i].X<a[j].X))then
 begin
  t:=a[i];
  a[i]:=a[j];
  a[j]:=t;
 end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
inc(n);
setlength(a,n);
a[n-1].x:=X;
a[n-1].y:=Y;
a[n-1].n:=n;
with Canvas do
 begin
  Brush.Color:=clRed;
  Brush.Style:=bsSolid;
  Ellipse(x-2,y-2,x+2,y+2);
  Brush.Style:=bsClear;
  TextOut(x-4, y-15, inttostr(n));
  Memo1.Lines.Add(inttostr(n+1)+'. '+'x='+inttostr(X)+' y='+inttostr(Y));
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 MySort(a,n,1);
 for i:=0 to n-1 do
 Memo2.Lines.Add(inttostr(a[i].n)+'. '+'x='+inttostr(a[i].x)+' y='+inttostr(a[i].y));
end;
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
MySort(a,n,2);
 for i:=0 to n-1 do
 Memo3.Lines.Add(inttostr(a[i].n)+'. '+'x='+inttostr(a[i].x)+' y='+inttostr(a[i].y));
end;
1
Puporev
Модератор
56066 / 42949 / 29709
Регистрация: 18.05.2008
Сообщений: 101,892
26.03.2017, 19:32 3
Проект.
0
Вложения
Тип файла: rar Рисование точек_2.rar (750.6 Кб, 2 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2017, 19:32

Как узнать, координаты мыши?
Только на над формой когда находится, а за её пределами, т.е. по экрану вообще.

Как задать координаты точки?
Здравствуйте. Помогите, никак не могу додуматься, как записать координаты...

Как найти координаты элемента в матрице
Допустим дана матрица 10х10 и нужно найти максимальный элемент и его координаты...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru