Технологии
Даны четыре действительных числа: x1, y1, x2, y2. Напишите функцию distance(x1, y1, x2, y2), вычисляющую расстояние между точкой (x1. y1) и (x2, y2)Считайте четыре действительных числа и выведите резу - вопрос №1686294
октябрь 30, 2015 г.
-
Всего ответов: 1
-
Язык не указали… Пускай будет паскаль:
var x1,y1,x2,y2:real;
function distance(x1,y1,x2,y2:real):real;
begin
distance := sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
writeln(distance(x1,y1,x2,y2):10:3);
end.
Похожие вопросы