11/05/2018, 11:12
có a chị nào giỏi pascal giúp em bài này với:
đề: viết chương chình tính độ dài đoạn thẳng AB, biết tọa độ hai điểm A(xa,ya) và B(xb,yb). Em viết nhưng toàn kêu lỗi có ai giúp em đc k,thanks! var AB,xa,xb,ya,yb,,C,x,y:real; begin read(xa,xb,ya,yb,x,y); AB:=(xb-xa,yb-ya); C:=(yb-ya,xa-xb); 0:=(x-xa)*(yb-ya)-(y-ya)*(xa-xb); write(giúp em ...
đề: viết chương chình tính độ dài đoạn thẳng AB, biết tọa độ hai điểm A(xa,ya) và B(xb,yb). Em viết nhưng toàn kêu lỗi có ai giúp em đc k,thanks!
var AB,xa,xb,ya,yb,,C,x,y:real;
begin
read(xa,xb,ya,yb,x,y);
AB:=(xb-xa,yb-ya);
C:=(yb-ya,xa-xb);
0:=(x-xa)*(yb-ya)-(y-ya)*(xa-xb);
write(giúp em điền cái này)
END.
var AB,xa,xb,ya,yb,,C,x,y:real;
begin
read(xa,xb,ya,yb,x,y);
AB:=(xb-xa,yb-ya);
C:=(yb-ya,xa-xb);
0:=(x-xa)*(yb-ya)-(y-ya)*(xa-xb);
write(giúp em điền cái này)
END.
