Напишите функцию, которая будет принимать координаты двух точек (в двумерной декартовой системе координат) и возвращать расстояние между этими точками.
Координаты будут передаваться в функцию в виде строки из четырех чисел через запятую:
«x1,y1,x2,y2» , где x1,y1 — координаты первой точки, а x2,y2 — координаты второй.
Примечание: если расстояние окажется числом с плавающей запятой, его нужно округлить до сотых (например, 2.34).
Примеры
shortestDistance(«1,1,2,1») ➞ 1 shortestDistance(«1,1,3,1») ➞ 2 shortestDistance(«-5,1,3,1») ➞ 8 shortestDistance(«-5,2,3,1») ➞ 8.06
Варианты решения
import math def shortestDistance(txt): x1, y1, x2, y2 = (int(num) for num in txt.split(‘,’)) return round(math.sqrt((x1 — x2) ** 2 + (y1 — y2) ** 2), 2)
def shortestDistance(txt): a, b, c, d = map(int, txt.split(«,»)) return round(((c — a) ** 2 + (d — b) ** 2) ** 0.5, 2)
Источник: pythonist.ru
Определение расстояния между двумя точками на Земле (Между координатами) с помощью python
Вычислить расстояние между двумя точками с данными координатами
Для решения задачи необходимо вспомнить формулу для нахождения расстояния между двумя точками, заданными координатами:
Формула расстояния между двумя точками на плоскости
Далее пишем программу:
program z_2; var x1,y1,x2,y2,L: real; begin write(‘Введите координаты первой точки (x1, y1) через пробел: ‘); read(x1, y1); write(‘Введите координаты второй точки (x2, y2) через пробел: ‘); read(x2, y2); writeln(‘Расстояние: ‘, sqrt(sqr(x2-x1)+sqr(y2-y1))); end.
Текст задачи:
Информатика. 10 класс. Базовый уровень. (Семакин И. Г., Хеннер Е. К., Шеина Т. Ю.)
Работа 3.1, Уровень 1, Задача №2
Источник: easyinformatics.ru
Написать программу вычисления расстояния между двумя точками с координатами
здраствуйте. Моей подруге сказали написать программу на Pascal, а я его еще не изучал. помогите решить задачу.
условия:
составить программу вычисления расстояния между двумя точками, заданными на плоскости их координатами
Участник клуба
Регистрация: 03.12.2009
Сообщений: 1,013
program zad1; var y1,y2,d,x1,x2:real; begin writeln(‘задайте координаты первой точки’); readln(x1,x2); writeln(‘задайте координаты второй точки’); readln(y1,y2); d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); writeln(‘расстояние между этими точками=’,d:0:1); end.
Последний раз редактировалось Базиля; 19.01.2010 в 15:21 .
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,691
var x1, x2, x3, x4: real; begin writeln(‘Введите координаты 2х точек через прбел ‘); readln(x1,x2,x3,x4); writeln(‘Расстояние между точками = ‘,sqrt(sqr(x3-x1)+sqrt(x4-x2))); end.
Участник клуба
Регистрация: 03.12.2009
Сообщений: 1,013
А если на плоскости то у Kostia все правильно, я не внимательно прочитал условие и сделал для оси
Расстояние между двумя точками с заданными координатами
P.S. исправил свой код
Kostia
| sqrt(sqr(x3-x1)+sqrt(x4-x2))); |
не правильная формула, возможно просто описка вышла
Последний раз редактировалось Базиля; 19.01.2010 в 15:21 .
Пользователь
Регистрация: 04.12.2009
Сообщений: 83
а полностью код ей можете написать, а то она не поняла ничего)) дальше она писать будет))
до неё дошло)) спасибо за помощь)
Последний раз редактировалось Saka; 19.01.2010 в 15:23 .
Участник клуба
Регистрация: 03.12.2009
Сообщений: 1,013
Saka
У Kostia и так полностю код написан
Посмотри на мой, может мой устроит, но он чутка побольше
Пользователь
Регистрация: 04.12.2009
Сообщений: 83
я понял уже, по глупости не посмотрел на ответы, а написал то что она попросила, потом посмотрел и объяснил))
Спасибо за помощь товарищи) От девушки — поцелуи в щечки за быстрые ответы)
Последний раз редактировалось Saka; 19.01.2010 в 15:28 .
Форумчанин
Регистрация: 18.10.2009
Сообщений: 185
writeln(‘задайте координаты первой точки’); readln(x1,x2); writeln(‘задайте координаты второй точки’); readln(y1,y2)
writeln(‘задайте координаты первой точки’); readln(x1,y1); writeln(‘задайте координаты второй точки’); readln(x2,y2)
На С# пишу лучше чем на русском.
«У меня правильнописание хромает. Оно хорошее, но почему-то хромает.»
Форумчанин
Регистрация: 02.12.2009
Сообщений: 309
Program Distance; Var X1, Y1, X2, Y2, D: Real; Begin WriteLn(‘Введите координаты первой точки’); ReadLn(X1, Y1); WriteLn(‘Введите координаты второй точки’); ReadLn(X2, Y2); D := Sqrt(Sqr(X2 — X1) + Sqr(Y2 — Y1)); WriteLn(‘Расстояние между точками = ‘, D:2:2); ReadLn; End.
Регистрация: 05.11.2016
Сообщений: 1
Помогите
здравствуйте мне на дом дали задание по Pascal и я забыл всё что проходили по этой теми.Задание звучит так :Вычислить расстояние между двумя точками с данными координатами x1, y1 и x2, y2.Помогите пожалуйста
Источник: www.programmersforum.ru