Расстояние между точками. Изображения

@Утконос · Регистрация: 22.11.2015

Author24 — интернет-сервис помощи студентам

При написании программ у меня возник вопрос: как работать в паскале в какими-то изображениями? не работать с графикой что-то создавая, как в graph, а с уже созданными изображениями(картинками к примеру). К примеру найти расстояние между двумя точками( в пикселях). Даже если не конкретный ответ, то может почитать где можно?

@Puporev · 07.02.2017, 17:45

Можно так.
Грузим 2 рисунка в окно и измеряем расстояние между ними мышкой.

Pascal

uses graphABC;
 
var x1,y1,x2,y2,s:integer;
    
procedure MouseDown(x,y,mb:integer);
begin
x1:=x;
y1:=y;
end;
procedure MouseMove(x,y,mb:integer);
begin
x2:=x;
y2:=y;
end;
procedure MouseUp(x,y,mb:integer);
begin
s:=round(sqrt(sqr(x2-x)+sqr(y2-y1)));
textout(100,100,'Расстояние='+inttostr(s));
end;
var p:Picture;
begin
p:=Picture.Create('home1.png');
p.Draw(0,0);
p.Draw(400,200);
onmousedown:=MouseDown;
onmousemove:=MouseMove;
onmouseup:=MouseUp;
end.

@Утконос · 07.02.2017, 18:01 **[ТС]**

Puporev, Спасибо за ценную помощь. Только пронга так у меня и не работает. Не находит рисунок. Можно это исправить?

@Puporev · 07.02.2017, 18:03

так загрузи какой-то рисунок, какой у тебя есть, конечно программа мой у тебя не найдет.

@Утконос · 07.02.2017, 18:10 **[ТС]**

Puporev, так я конечно поменял на свой))) но все равно. Ладно попробую ееще

@Puporev · 07.02.2017, 18:15

Можно проще, по 2 кликам мышью.

Pascal

uses graphABC;
 
var x1,y1,x2,y2,k,s:integer;
   
procedure MouseDown(x,y,mb:integer);
begin
if k=0 then
 begin
  x1:=x;
  y1:=y;
  k:=1;
 end
else if k=1 then
 begin
  x2:=x;
  y2:=y;
  k:=2;
 end;
if k=2 then
 begin 
  s:=round(sqrt(sqr(x2-x1)+sqr(y2-y1)));
  textout(100,100,'Расстояние='+inttostr(s));
  k:=0;
 end; 
end;
var p:Picture;
begin
k:=0;
p:=Picture.Create('home1.png');
p.Draw(0,0);
p.Draw(400,200);
onmousedown:=MouseDown;
end.

@Puporev · 07.02.2017, 18:25

Сообщение от Утконос

так я конечно поменял на свой))) но все равно.

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

@Утконос · 07.02.2017, 18:45 **[ТС]**

Puporev, Получилось! Спасибо за помощь. Кстати, вы не знаете можно ли здесь вместо integer использовать real. И обходиться без round? без округления, точнее? Но в целом я просто интересуюсь. Задача решена. Кстати у меня выходит не целое изображение, а фрагмент. можно это исправить?

@Puporev · 07.02.2017, 18:56

Сообщение от Утконос

вместо integer использовать real. И обходиться без round?

Конечно можно, просто расстояние будет дробное число, типа 256.589
Второе нужно посмотреть, я тоже каждый день этим не занимаюсь.

@Утконос · 07.02.2017, 19:01 **[ТС]**

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

Конечно можно, просто расстояние будет дробное число, типа 256.589

Я тоже так думал. Но когда начал менять все перестало сходиться и работать. Я и спросил может подвох какой

@Puporev · 07.02.2017, 19:09

второе.

Pascal

p:=Picture.Create('Star.bmp');
window.Width:=p.Width;
window.Height:=p.Height;
p.Draw(0,0);

Добавлено через 1 минуту
С расстоянием никаких проблем.

Pascal

uses graphABC;
 
var x1,y1,x2,y2,k:integer;
    s:real;
procedure MouseDown(x,y,mb:integer);
begin
if k=0 then
 begin
  x1:=x;
  y1:=y;
  k:=1;
 end
else if k=1 then
 begin
  x2:=x;
  y2:=y;
  k:=2;
 end;
if k=2 then
 begin 
  s:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  textout(100,100,'Расстояние='+floattostr(s));
  k:=0;
 end; 
end;
var p:Picture;
begin
k:=0;
p:=Picture.Create('Star.bmp');
window.Width:=p.Width;
window.Height:=p.Height;
p.Draw(0,0);
onmousedown:=MouseDown;
end.

Добавлено через 4 минуты

Сообщение от Утконос

Я и спросил может подвох какой

Читать нужно, думать и тренироваться, на халяве далеко не уедешь.

@Утконос · 07.02.2017, 19:17 **[ТС]**

Puporev, с расстоянием и правда без проблем. А вот со вторым... У меня когда я заменил на это отрылось окно с

Добавлено через 1 минуту
неполным изображением. Тут же свернулось. Одна из строк стала желтой(никогда такого не видел

Добавлено через 33 секунды
а затем открылось с неполным изображением и все повисло. Ужас

@Puporev · 07.02.2017, 19:27

Ну так не грузи что-то страшное. Я грузил 1024х768, нормально.
Вот что ты грузишь, если можно скинь архив файла.

@Утконос 4 / 5 / 0 Регистрация: 22.11.2015 Сообщений: 143
	07.02.2017, 19:17 [ТС]	12
	Puporev, с расстоянием и правда без проблем. А вот со вторым... У меня когда я заменил на это отрылось окно с Добавлено через 1 минуту неполным изображением. Тут же свернулось. Одна из строк стала желтой(никогда такого не видел Добавлено через 33 секунды а затем открылось с неполным изображением и все повисло. Ужас 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2017, 19:27	13
	Ну так не грузи что-то страшное. Я грузил 1024х768, нормально. Вот что ты грузишь, если можно скинь архив файла. 0

Расстояние между точками. Изображения

Решение

Решение

@Утконос 4 / 5 / 0 Регистрация: 22.11.2015 Сообщений: 143
		1
	Расстояние между точками. Изображения 07.02.2017, 17:07. Показов 1388. Ответов 12 Метки нет (Все метки) При написании программ у меня возник вопрос: как работать в паскале в какими-то изображениями? не работать с графикой что-то создавая, как в graph, а с уже созданными изображениями(картинками к примеру). К примеру найти расстояние между двумя точками( в пикселях). Даже если не конкретный ответ, то может почитать где можно? 0

@Утконос 4 / 5 / 0 Регистрация: 22.11.2015 Сообщений: 143
	07.02.2017, 18:01 [ТС]	3
	Puporev, Спасибо за ценную помощь. Только пронга так у меня и не работает. Не находит рисунок. Можно это исправить? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2017, 18:03	4
	так загрузи какой-то рисунок, какой у тебя есть, конечно программа мой у тебя не найдет. 1

@Утконос 4 / 5 / 0 Регистрация: 22.11.2015 Сообщений: 143
	07.02.2017, 18:10 [ТС]	5
	Puporev, так я конечно поменял на свой))) но все равно. Ладно попробую ееще 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2017, 18:25	7
	Сообщение от Утконос так я конечно поменял на свой))) но все равно. Файл нужно или положить в одну папку с программой, либо указать в коде полный путь к нему. 1

@Утконос 4 / 5 / 0 Регистрация: 22.11.2015 Сообщений: 143
	07.02.2017, 18:45 [ТС]	8
	Puporev, Получилось! Спасибо за помощь. Кстати, вы не знаете можно ли здесь вместо integer использовать real. И обходиться без round? без округления, точнее? Но в целом я просто интересуюсь. Задача решена. Кстати у меня выходит не целое изображение, а фрагмент. можно это исправить? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2017, 18:56	9
	Сообщение от Утконос вместо integer использовать real. И обходиться без round? Конечно можно, просто расстояние будет дробное число, типа 256.589 Второе нужно посмотреть, я тоже каждый день этим не занимаюсь. 0

@Утконос 4 / 5 / 0 Регистрация: 22.11.2015 Сообщений: 143
	07.02.2017, 19:01 [ТС]	10
	Сообщение от Puporev Конечно можно, просто расстояние будет дробное число, типа 256.589 Я тоже так думал. Но когда начал менять все перестало сходиться и работать. Я и спросил может подвох какой 0