Выяснить принадлежность точки закрашенной области

@Ronf · Регистрация: 15.03.2012

Author24 — интернет-сервис помощи студентам

Результат работы программы вывести в виде текстового сообщение.

Выяснить принадлежность точки закрашенной области

@КонецСвета · 17.03.2012, 14:35

Pascal

uses crt;
var r1,r2,x,y: real;
    b: boolean;
begin
write('r1='); readln(r1);
write('r2='); readln(r2);
write('x='); readln(x);
write('y='); readln(y);
b:=((y>0) and (x<0) and (sqr(x)+sqr(y)<sqr(r2))) or
   ((x>0) and (y<0) and (sqr(x)+sqr(y)>sqr(r2))) and
   (sqr(x)+sqr(y)<sqr(r1));
write(b);
readln;
end.

@Ronf 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 16
		1
	Выяснить принадлежность точки закрашенной области 17.03.2012, 11:24. Показов 2862. Ответов 1 Метки нет (Все метки) Результат работы программы вывести в виде текстового сообщение. 0

	17.03.2012, 14:35

Опции темы

Выяснить принадлежность точки закрашенной области

Решение