Добавил:
Eatmore
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:написанные программы / лаба №2 с отчетом все варианты. / lab2 (13) / LAB2(13)
.PAS program v13;
var x,y,r1,r2:real;
begin
writeln('vvedite x,y,r1,r2');
readln(x,y,r1,r2);
if (r1<=0)or(r2<=0) then writeln('ne imeet smisla')
else
if ((sqr(r2)>=sqr(x)+sqr(y))and(x<=0)and(x>=-r2)and(y<=r2)and(y>=0))or
((sqr(r2)<=sqr(x)+sqr(y))and(x>=0)and(x<=r1)and(y>=-r1)and(y<=0)and(sqr(r1)>=sqr(x)+sqr(y)))
then writeln('da')
else writeln('net');
readln;
end.
var x,y,r1,r2:real;
begin
writeln('vvedite x,y,r1,r2');
readln(x,y,r1,r2);
if (r1<=0)or(r2<=0) then writeln('ne imeet smisla')
else
if ((sqr(r2)>=sqr(x)+sqr(y))and(x<=0)and(x>=-r2)and(y<=r2)and(y>=0))or
((sqr(r2)<=sqr(x)+sqr(y))and(x>=0)and(x<=r1)and(y>=-r1)and(y<=0)and(sqr(r1)>=sqr(x)+sqr(y)))
then writeln('da')
else writeln('net');
readln;
end.