Lập trính tính trong pascal

Question

Dùng pascal, lập trình tính

       { / x/ + /y/  nếu điểm x, y thuộc hình tròn có bán kính r (r>0), tâm (a,b)

z=    { x + y trong trường hợp còn lại

 

 

Answer 1

var            x,y,a,b,r,kc,z:real;
begin
               write('nhap toa do diem: ');readln(x,y);
               write('nhap toa do tam duong tron:');readln(a,b);
               write('nhap ban kinh duong tron:');readln(r);
               kc:=sqrt(sqr(a-x)+sqr(b-y));
               if kc<=r then z:=abs(x)+abs(y) else z:=x+y;
               write(z);
               readln;
end.</pre>

Chúc bạn học tốt!