1.Lập chương trình đọc vào tọa độ của các 3 điểm A, B, C trong mặt mẳng Oxy. Tính độ dài các đoạn thẳng AB, BC và AC. bằng ngôn ngữ lập trình pascal giúp tôi với mn à :( , help me !

1 câu trả lời

program concho;

var a,b,c,d,n,i:real;

begin
writeln('nhap toa do diem A,B,C');
readln(a,b,c,d,n,i);

writeln('AB:= ',sqrt(sqr(c-a)+sqr(d-b)):2:1,' BC:= ',sqrt(sqr(n-c)+sqr(i-d)):2:1,' AC:= ',sqrt(sqr(n-a)+sqr(i-b)):2:1);

readln

end.