Вычислите расстояние между двумя точками с данными координатами: (x1,y1) и (x2,y2)
5-9 класс
|
Формула для нахождения расстояния: картинка снизу
И всё это в паскаль. Спасибо.
Program Rastoyanie;
var x1,x2,y1,y2,S:real;
begin
write('введите координаты');
readln(x1,x2,y1,y2);
S:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(s);
readln;
end.
Надеюсь на лучший ответ:)
Другие вопросы из категории
2запишите команду для изменение внешнего вида таблицы
3запишите команду с помощью которой можно изменить формат символа
Контрольный пример: х=-5, у=15; х=2, у=3; х=8, у=11.
файла стало Е:\ГЕОГРАФИЯ\ФОТО\РЕКИ\Днепр.jpg.Каково полное имя каталога,в котором хранился файл до перемещения? ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО!!!!!!
Читайте также
(x2,y2), (x3,y3). Напишите программу, позволяющую выяснить, какие из них находятся на максимальном расстоянии друг от друга, и вывести на печать значение этого расстояния. Вычисление расстояния между двумя точками оформите в виде процедуры.
2) Даны действительные числа Х и Y. Напишите программу, позволяющую вычислить значение следующего выражения:
Z=(signX + signY)*sign(X+Y),
начала координат.
прочертить путь выполнения алгоритма для следующих значений параметров:
А) X1= -1, Y1=6, X2=1, Y2=6.
Б) X1=6, Y1=7, X2=1, Y2=6
Решить задачи, составить программы:
1.Найти сумму цифр целого четырехзначного числа, и определить число,
цифры которого записаны в обратном порядку по отношению к исходному.
2.По введенному с клавиатуры аргументу вычислить значение функции.
3.Поменять местами значения двух переменных.
4. Написать программу ввода четырех чисел и вычисления их среднего арифметического.
5. Написать программу для вычисления дискриминанты квадратного уравнения.
6.Из железной полосы длиной L метров нужно изготовить обруч. На
соединение концов уходит D метров полосы. Написать программу вычисления
радиуса обруча.
7.Найти площадь конца, по введенным внешним и внутренним радиусам.
8.Найти расстояние между двумя точками по их координатам
плоскости.
Пожалуйста помогите,очень надо,успеть до 23.00(