Question

Cho đường tròn (O;R) và đường thẳng a bất kì,d là khoảng cách từ tâm O đến đường thẳng a.Viết chương trình nhập vào d và R rồi nêu ra vị trí tương đối của đường thẳng a và đường tròn(O)

Answer 1

Var d,R:real;

Begin

Repeat

Write('Nhap d = ');readln(d);

Write('Nhap R = ');readln(R);

Until (d > 0) and (R > 0);

If d > R then write('Duong thang a va duong tron khong giao nhau');

If d = R then write('Duong thang a va duong tron tiep xuc nhau');

If d < R then write('Duong thang a va duong tron cat nhau');

Readln;

End.