cho đường tròn tâm o(a,b) bán kính r và điểm i(x,y) .hãy viết chương trình đưa ra thông báo " điem i thuoc duong tron tam o " ,nếu điểm i thuộc đường tròn tâm o hoặc câu thông báo "diem i khong thuoc duong tron tam o " nếu điểm i thuộc đường tròn tâm o ( với x,y,a,b,r được nhập từ bàn phím ) Giúp e vs ạ .E đang cần gấp
2 câu trả lời
uses crt;
var x,y,a,b,r:real;
begin
clrscr;
write('x,y,a,b,r=');readln(x,y,a,b,r);
if sqrt(sqr(x-a)+sqr(y-b))=r then writeln('Diem i thuoc duong tron tam O') else writeln('Diem i khong thuoc duong tron tam O') ;
readln
end.
var x,y,a,b,r : real;
begin
writeln('Nhap x,y,a,b,r');
readln(x,y,a,b,r);
if ((x-a)*(x-a)+(y-b)*(y-b)<>r*r) then write('Diem i khong thuoc duong tron tam O')
else write('Diem i thuoc duong tron tam O');
readln;
end.
