4. Viết câu lệnh rẽ nhánh tính:
a.

Mã:

program za;

uses crt;

var x,y,x2,y2,z:real;

begin

clrscr;

write('x,y: ');

readln(x,y);

x2:=x*x;

y2:=y*y;

if(x2+y2<=1)then

z:=x2+y2;

if(x2+y2>1)and(y>=x)then

z:=x+y;

if(x2+y2>1)and(y<x)then

z:=0.5;

write('z = ',z:8:3);

readln;

end.
b. Dùng công thức tính khoảng cách d từ điểm (x,y) đến tâm (a,b),

rồi so sánh d với bán kính r, nếu d=r thì điểm (x,y) thuộc đường tròn

tâm (a,b) bán kính r, ngược lại thì không
program zb;

uses crt;

var x,y,r,a,b,d,z:real;

begin

clrscr;

write('Nhap diem (x,y): ');

readln(x,y);

write('Nhap tam (a,b): ');

readln(a,b);

write('Nhap ban kinh r (r>0): ');

readln(r);

d:=sqrt(sqr(x-a)+sqr(y-b));

if(d=r)then

z:=abs(x)+abs(y)

else

z:=x+y;

write('z= ',z:8:2);

readln;

end