Viết chương trình nhập toạ độ 2 điểm A và B, vẽ đường thẳng đi qua A và B.
1 câu trả lời
uses crt;
var x1,y1,x2,y2:longint;
begin
clrscr;
write('Nhap toa do diem A: ');readln(x1,y1);
write('Nhap toa do diem B: ');readln(x2,y2);
writeln('Doan thang AB co do dai: ',sqrt(sqr(x2-x1)+sqr(y2-y1)):0:2);
readln
end.
