PASCAL. Составить программу, содержащую ветвления и определяющую, при надлежит ли точка с координатами x и y заштрихованной области
Приложения:
![](https://st.uroker.com/files/569/5690fcd60749304138e3174a698ebc10.png)
![](https://st.uroker.com/files/6b8/6b80c2ab9105f7096615b7f7948e86ab.png)
![](https://st.uroker.com/files/6b0/6b0c9e807fea7842a6f30119729735dd.png)
Ответы
Ответ дал:
0
2.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 4
y = 1
Да
7.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=-6)and
((y<=7)and(y>=2)and(x<=-1)or(y<=2)and(y>=-3)and(x<=-3))
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = -2
y = 1
Нет
6.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(x>=0)and(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 3
y = -3
Да
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 4
y = 1
Да
7.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=-6)and
((y<=7)and(y>=2)and(x<=-1)or(y<=2)and(y>=-3)and(x<=-3))
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = -2
y = 1
Нет
6.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(x>=0)and(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 3
y = -3
Да
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад