Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Вывести координаты!

Автор: Polosat 5.06.2006 13:25

Напечатать координаты точек, попадающих в заштрихованную фигуру, если координата х изменяется от –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.



Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: Polosat 5.06.2006 23:50

Собсно вот что надумал, но как то странно...

(((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))))