Hãy lập chương trình tính tọa độ trung điểm M của đoạn thẳng AB . Với tọa đọ 2 điểm A(xa,ya) và B(xb,yb) được nhập từ bàn phím . Kết quả in ra màn hình đúng đến 2 chữ số thập phân?

2 câu trả lời

uses crt;
var xa, ya, xb, yb : integer;

begin
    clrscr;
    write('Toa do diem A = ');
    readln(xa, ya);
    write('Toa do diem B = ');
    readln(xb, yb);
    
    write('Toa do diem M = ', (xa + xb) / 2 : 0 : 1, ' ', (ya + yb) / 2 : 0 : 1);
    readln
end.

uses crt;

var xa,ya,xb,yb,xm,ym: integer;

begin

clrscr;

writeln ('Nhap toa do cua A:');

readln(xa,ya);

writeln ('Nhap toa do cua B:');

readln(xb,yb);

xm:=(xa+ya)/2;

ym:=(xb+yb)/2;

writeln ('Toa do trung diem M cua AB=',xm,ym:4:2);

readln;

end.