Viết chương trình nhập toạ độ 2 điểm A và B, vẽ đường thẳng đi qua A và B.
0 bình luận về “Viết chương trình nhập toạ độ 2 điểm A và B, vẽ đường thẳng đi qua A và B.”
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.
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.