p1608.pas

来自「高手写的所有acm例程 在acm.zju.edu.cn 上的题目的例程」· PAS 代码 · 共 3 行

program z1608;
{$APPTYPE CONSOLE}
var
        a,b,r1,r2       :extended;

procedure work;
var
        l,x,y   :extended;
begin
        readln(a,b,r1,r2);
        if (2*r1+0.001>a)or(2*r1+0.001>b)or(2*r2+0.001>a)or(2*r2+0.001>b) then
        begin
                writeln('No');
                exit;
        end;
        l:=sqrt(sqr(a-r1-r2)+sqr(b-r1-r2));
        if l<r1+r2+0.01 then
                writeln('No')
        else
                writeln('Yes');
end;

begin
        while not eof do
                work;
end.