Question

Cho 2 điểm A( xA, yA ) và B( xB, yB). Tính khoảng cách từ A đến B

Answer 1

uses crt;
var xa,ya,xb,yb,kc:real;
begin
clrscr;
write('Nhap toa do diem A:'); readln(xa,ya);
write('Nhap toa do diem B:'); readln(xb,yb);
kc:=sqrt(sqr(xa-ya)+sqr(xb-yb));
writeln('AB=',kc:4:2);
readln;
end.

Answer 2

uses crt;
var xa,ya,xb,yb,kc:real;
begin
clrscr;
write('Nhap toa do diem A:'); readln(xa,ya);
write('Nhap toa do diem B:'); readln(xb,yb);
kc:=sqrt(sqr(xa-xb)+sqr(ya-yb));
writeln('AB=',kc:4:2);
readln;
end.