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.