Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 2
Регистрация: 07.06.2013
Сообщений: 52
1

Даны три точки A, В и С. Составить алгоритм, определяющий, наименьшее расстояние между этими точками

10.06.2013, 07:28. Показов 1492. Ответов 8
Метки нет (Все метки)

Делать надо в Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2013, 07:28
Ответы с готовыми решениями:

Три точки на плоскости заданы своими координатами. Между какими точками расстояние наименьшее?
Три точки на плоскости заданы своими координатами. Между какими точками расстояние наименьшее?

Построить множество точек со своими координатами (х,у). Найти наибольшее и наименьшее расстояние между этими точками
помогите пожайлуста написать програму

Даны точки в n-мерном пространстве Х=(x1,x2,...,xn) , Y=(y1,y2,...,yn) Написать программу нахождения расстояния между этими точками и вектора XY.
Массивы. Даны точки в n-мерном пространстве Х=(x1,x2,...,xn) , Y=(y1,y2,...,yn) Написать...

2. Даны две точки А(хи у^ и В(хг, у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат
2. Даны две точки А(х, у) и В(х1, у2). Составить алгоритм, определяющий, которая из точек...

8
2061 / 617 / 41
Регистрация: 23.10.2011
Сообщений: 4,468
Записей в блоге: 2
10.06.2013, 09:00 2
C++
#include <iostream>
#include <math.h>
using namespace std ;
class P
{
public :
P (float x, float y ) : x (x) , y (y) {}
float x ;
float y ;
float operator - ( P &l )
{
return pow (( pow (( this->x - l.x) , 2 ) + pow (( this->y - l.y ) , 2 )) , 0.5 ) ;
}
} ;
int main ()
{
P A ( 0 , 0 ) ;
P B ( 1 , 1 ) ;
P C ( 2 , 2 ) ;
 
float r = A-B;
if(r > B-C) r = B-C;
if(r > C-A) r = C-A;
 
cout << r << endl ;
}
Добавлено через 9 минут
Портал из с++ в паскаль
0
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
10.06.2013, 09:02 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function min(x1,y1,x2,y2: Integer): Real;
begin
  min:=Sqrt(Sqr(x2-x1)+Sqr(y2-y1));
end;
{-------------}
Var
  ax,ay,bx,by,cx,cy: Integer;
BEGIN
Write('Введите координаты точки A: ');
Readln(ax,ay);
Write('Введите координаты точки B: ');
Readln(bx,by);
Write('Введите координаты точки C: ');
Readln(cx,cy);
Writeln('Минимальное расстояние между точками ');
If (min(ax,ay,bx,by)<min(bx,by,cx,cy)) and (min(ax,ay,bx,by)<min(ax,ay,cx,cy)) Then
Write('A и B = ',min(ax,ay,bx,by):2:2)
Else
If (min(bx,by,cx,cy)<min(ax,ay,bx,by)) and (min(bx,by,cx,cy)<min(ax,ay,cx,cy)) Then
Write('B и C = ',min(bx,by,cx,cy):2:2)
Else
Write('A и C = ',min(ax,ay,cx,cy):2:2);
Readln
END.
2
2061 / 617 / 41
Регистрация: 23.10.2011
Сообщений: 4,468
Записей в блоге: 2
10.06.2013, 09:07 4
Kodzaev, а целый тип у вас преобразуется в вещественный?
0
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
10.06.2013, 09:17 5
programina, нет. А зачем преобразовывать? Целый тип и так совместим с вещественным. Например:
Pascal
1
2
3
4
5
6
7
8
Var
  t: Real;
  n: Integer;
BEGIN
Readln(n);
t:=n;
Writeln(t);
END.
1
2061 / 617 / 41
Регистрация: 23.10.2011
Сообщений: 4,468
Записей в блоге: 2
10.06.2013, 09:23 6
Kodzaev, просто интересно стало, в паскале не разбираюсь
0
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
10.06.2013, 09:24 7
programina, а в C++ как-то иначе?
0
2061 / 617 / 41
Регистрация: 23.10.2011
Сообщений: 4,468
Записей в блоге: 2
10.06.2013, 09:35 8
Цитата Сообщение от Kodzaev Посмотреть сообщение
programina, а в C++ как-то иначе?
да, зависит от компилятора еще. Например, если в функцию pow() передавать целые аргументы типа int, то микрософтовский компилятор выдаст ошибку, а в mingw не будет ошибки, так как они преобразуются.
1
0 / 0 / 2
Регистрация: 07.06.2013
Сообщений: 52
10.06.2013, 09:53  [ТС] 9
Спасибо!!! Выручили +1
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2013, 09:53

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.
1. Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти...

Алгоритм, определяющий расстояние до точки
Даны две точки A(x1, y1) и B(x2 , y2 ) . Составить алгоритм, определяющий, которая из точек...

Получить две пары, соответствующие двум точкам на плоскости, вернуть расстояние между этими точками
Определить функцию,принимающую в качестве аргументов две пары,соответствующие двум точкам на...

Даны 4 точки. Определить какие треугольники, образованные этими точками, обладают максимальными и минимальными S и P
знает кто как сделать?


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

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

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