Помогите пожалуйста!!!!Составить программу вычисления расстояния между двумя точками.Формула вычисления имеет следующий вид.
Answers & Comments
fikort
Var z,x1,x2,y1,y2:real; begin writeln('Введите x1 и y1'); readln(x1,y1); writeln('Введите x2 и y2'); readln(x2,y2); z:=sqrt(sqr(sqr(X1)-sqr(x2)))+(sqr(Sqr(y1)-sqr(y2))); writeln(z); end.
Answers & Comments
z,x1,x2,y1,y2:real;
begin
writeln('Введите x1 и y1');
readln(x1,y1);
writeln('Введите x2 и y2');
readln(x2,y2);
z:=sqrt(sqr(sqr(X1)-sqr(x2)))+(sqr(Sqr(y1)-sqr(y2)));
writeln(z);
end.