PASCAL. Составить программу, содержащую ветвления и определяющую, при надлежит ли точка с координатами x и y заштрихованной области
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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
Да