Напечатать координаты точек, попадающих в заштрихованную фигуру, если координата х изменяется от –3.2 до 3.4 с шагом х=0.4, а координата у меняется от –3.5 до 4.0 с шагом у=0.5.
Есть сама программа только никак не могу правильно подобрать условие.
program rg;
uses graph;
var a,b:real; c:integer;
begin
a:=-3.2;
c:=1;
repeat
b:=3.4;
repeat
if {Условие вывода координат} then
begin
writeln ('(',a:4:2, ';' ,b:4:2, ')');
C:=c+1;
if ( c mod 24)=0 then begin
writeln('Enter');
readln;
end;
end;
b:=b+0.5;
until b>4;
a:=a+0.4;
until a>3.4;
readln;
end.
end.
Собсно вот что надумал, но как то странно...
(((sqr(a)+sqr(b)<=9) and (b>=0) and (a<=0) or
((sqr(a)+sqr(b)>=9) and (a>=-2) and (b<=4)) or
((sqr(a)+sqr(b)<=9) and (b<=a-3) and (a<=0) and (b<=0)) or
((b>=a-3) and (b<=-1) and (sqr(a)+sqr(b)<=9))))