ПОМОГИТЕ ОЧЕНЬ СРОЧНО. ЗАДАЧА ПО ТУРБО ПАСКАЛЮ Вычислить с точностью до десятых
ПОМОГИТЕ ОЧЕНЬ СРОЧНО.
ЗАДАЧА ПО ТУРБО ПАСКАЛЮ
Вычислить с точностью до десятых,длину отрезка,заданного координатами своих концов (Х1,Y1) и (Х2,Y2).Все значения координат по модулю не превышают 1000.
Ввод: Четыре действительных чисел X1,Y1,X2,Y2 через пропуск.
Вывод: длина отрезка.
Пример
Ввод: 0 4 5 0
Вывод:6
Гость
Ответ(ы) на вопрос:
Гость Var x1,y1,x2,y2,l:real;
begin
readln(x1,y1,x2,y2);
l:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
writeln(l:5:1);
end.
Пример:0 3 4 0
5.0
Не нашли ответ?
Похожие вопросы